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f he Games ■jSr* 





This is a simulation of the Acey 
Ducey card game. In the game, the 
dealer (the computer) deals two cards 
face up. You have an option to bet or 
not to bet depending on whether or not 
you feel the next card dealt will have a 
value between the first two. 

Your initial money (Q) is set to $100; 
you may alter Statement 110 if you 
want to start with more or less than 
$100. The game keeps going on until 
you lose all your money or interrupt the 
program. 

The original program author was Bill 
Palmby of Prairie View, Illinois. 



MET lUCEr CARD 6AHE 
CREATIVE COflPUTIHB SOftRISTQUR, HER JERSEY 



ACET-BKET IS PLATED III THE FOlLtUIMO BANNER 

THE DEALER (CIRPUTER) DEALS TyO CARDS FACE UP 

fOU NAVE Ut OPTION TO BET OR ROT l£T BEPEUUING 

OR MRETHER OR ROT YOU FEEL THE CARD HILL HAVE 

A VALINE IETUEEN THE FIRST IUD. 

IF TOO M NOT MART TO BET, INPUT A 

YW UU HAVE 100 DOLLARS 

HERE AR£ TDUR NEXT TUO CARDS 

2 
9 



25 



UNA! IS TDUR BET! 
OUEEI 

SWRT, TBU LOSE 

YOU I0U RAVE 73 DOLLARS 



HERE ARE TOUR REIT TUG CARDS 
4 
l« 

liUT IS TOUR lElt 23 
10 

SORRT, TOU LOSE 

TOU NDU RAVE SO DOLLARS 

HERE ARE TOUR NEXT TUB CARDS 
I 
MEEN 

UHAT IS TIHt BETt 

CHICKEN' ! 

HERE AIE TOUR NEXT (UO CARDS 
i 
M 

I1MAI IS TOIR BETT 20 
It 
SORRY, TOD LOSE 
TOO ROU RAVE 30 tGLLARS 

KEftE ARE TOUR NEXT TUO CARDS 
9 
JACK 

MAT IS TOOK KIT « 

MICRWM 

BfftE ARE TOUR NEXT TUO CARES 
JACK 

SUEER 

MAT IS TOUR BETt 

CHICKEN) I 



10 PRINT TM(24);"KEY 


DUCEY CARD GAtlE" 


20 PRINT TA8Ci5);"CREATIV£ C0APUTIN6 flOflRISTOUN, NEU JERSEY* 


21 PRINT 




22 PRINT 




23 raiKt 




30 r>»HtT-*C£T-DUCET IS PLAYER IN THE F0U0N1NR HitftMEII ■ 


40 rtlMPTKC BEALER (C0ftPNIER> REALS TUO CRRBS FACE UP" 


30 PRINT-TOM HAVE Alt OPTION TO BET OR HOT IET DEPENBINfl- 


40 MINT"** WHETHER OR NOR YOU FEEL THE CARD UIU HAVE" 


70 PR1NT"A VALUE IETUEEN THE FIRST TUO," 


fid PRINTNF YON 00 WOT UANT TO IET, IMPUT A 0- 


tOO J.T-100 




HO a« roo 




120 PRIHT-YOU NDU HAVE 


";8;" BOLLARS" 


130 PRIHT 




HO GOTO 260 




210 0-fl+fi 




220 BOTfl 12* 




210 Q"0-fl 




250 BOTO 120 




240 PRINT-HERE ARE YOUR KEXT TUO CARDS • 


270 A-I*#T < I +*R*#D( 1 > >*2 




210 IF A<2 mCK 270 




210 IF A>1 4 THEN 270 




300 B«INIU4»IM<1>>*2 




310 IF B<2 THEN 310 




320 IF B>14 THEN 300 




330 IF «>•! TNEN 270 




330 IF A<11 TNEN 400 




3*0 IF R-11 THEN 420 




370 IF A-12 THEN 440 




380 IF 4*13 THEN 440 


■ ■■";; ffch"*"'",., — -~<z3t 


3*0 IF A«14 THEN 4*0 


m* — ^— **y^^7 


400 PRINT A 




4 10 GOTO 300 




420 PR INT * JACK - 




430 8010 300 




440 PRINT"QBEEN" 




430 GOTO 300 




440 PRINt"KIR8* 




470 GOTO 500 




460 PfllKpiUE" 




300 IF B<11 THCN 330 




310 IF l-M THEN 370 




320 IF 1-12 THEN 390 




330 IF 1-13 THCN 410 


oIBb1b^obw ^Cj^^X 


340 IF Mil THEN 430 . 


0^0bh_ ^^*k> ^ 


330 PRINT 8 i 




340 GOTO 430 J 


flf 


370 PRINT-JACK" W 




5B0 ODTO 430 * 




390 PRIiirOUEEN- 




hSC-0 GOTO 650 




410 PRINT-KIM" 




420 GOTO 650 




430 PRINT-ACE" 




440 PRINT 




430 PRINT 




460 INPin-tlHAT 13 YOUR IET";N 


470 IF BOO TNEN 6B0 




475 PRINT-CHTCKMH" 




476 PRINT 




477 60T0 240 




480 IF JK"Q THEN 730 




470 PRINT*80RRY r MY FRIEND BUT TOU BET TOO rtUCH" 


700 PRINT"TCU HAVE ONLY 


",Q; m DOLLARS TO IET" 


710 GOTO 630 




730 C-INTU4»RN0U))*2 




740 IF C<2 THCN 730 




750 IF OI4 THEN 730 


»00 PRINT 


740 IF C<11 THEN 810 


910 IF C>A THEN 930 


770 IF C*11 THEN 830 


920 BOTO 970 


780 IF C-12 THEN 830 


930 If O-l THEN 970 


7»0 IF C«13 TNEN 870 


950 PRINT-TOO Willi* 


BOO If C-14 THEN MO 


940 BOTO 210 


810 PRINT C 


970 MUI B I8MV, TOU LOSE" 


620 60TD ?10 


900 IP H<0 TNEN 240 


830 PRINT" JACK" 


990 PRINT 


BIO GOTO ?10 


1000 PRINT 


850 PRINT-QUCEN" 


1010 PRWT'SQRRT, FRIEND BUI TOU BLEU 


840 BOTO ?10 


1020 IHPUI-TRT AGAIN (TES OR *0)-;A9 


870 PRINT-KINS 11 


1030 IF AB»"TES" THEN 110 


BOO GOTO flO 


TMO PRINT-OX HOPE TOR HAD FUR" 


BtO PRINT "ACE" 


1930 END 



/ 



YOUR UAIT 



This program will print out a different 
maze every time it is run and 
guarantees only one path through. You 
can choose the dimensions of the maze 
— i.e* the number of squares wide and 
long. 

The original program author was 
Jack Hauber of Windsor. Connecticut. 



AFIAZINB PROOBAft 
CREATIVE COHPUTIHG HaftRISTOUH, MEU JE*SE* 



UKAT ARE YOUR UIDTH AM LENGTH? 15,20 
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10 PRINT TAB^BK'AHAZING PRQGRAtt" 




20 PRIHI TABU5);'CREATIVE CONFUTING M1HRIST0UN, NEU JERSEY' 


30 PGI«T:Pfc[KT:PftlNT;P*IMT 




100 INPUT a UHAT ARE TOUR UtJTK AND 


LEN81H-;H,V 


102 IF HOI AND V01 THEN 110 




104 MINT "HEANINBLESJ BIHENSIQNS. 


TRY AGAIN. -:G0I0 1O0 


110 DIN UlH f V) ,VCH 1 V> 




120 PRINT 




130 PRINT 




140 PRINT 




ISO PRINT 




IK 8<0iZ-0tX=IM(RNDU)*H*l> 




US FM 1*1 Tl H 




170 IF I-X TNEN 173 




171 PRINT ".-- "JI60T0 180 




173 PUNT ". T 




110 NEXT I 


040 0810 820 


no Mint *■■■ 


470 If R-N THEN 740 


115 C»1i«<X.1t»ClC»C+1 


680 If V(8t1,SK>0 THEN 740 


200 A-X<S*1i80IO 240 


683 IF SOV THEN 704 


210 IF RON THEN 240 


490 IF 1-1 THEN 730 


213 IF BOV THEN 230 


493 B-W6II0 630 


220 fi=1 sS=1 rQOTG 250 


700 If 11(1,8*1)00 THEN 730 


230 R-1lS*S*1iG0TO 2M 


710 X-IHT(8ND(1)*2+f) 


240 R"R#1 


720 ON X 80TQ 860,110 


250 IF IHft,S>*0 THEN 210 


730 GOTO 860 


260 If t-1-0 THEN 330 


740 If SOV THEN 760 


263 If U<R-1,S)O0 THEN 530 


750 IF 2-1 THEN 700 


270 If 8-1 "0 THEN 390 


755 0-1:8018 770 


280 IF V1R f 8M)0» THEN 310 


740 IF 11(1,8*1)00 THEN 7S0 


210 IF 8«H THEN 330 


770 GOTO 910 


300 IF U(R*1,$K>0 THEN 330 


780 GOTO 1000 


310 X»INT(tMM)t3t1) 


790 U(fi-l f S)"C 


320 ON X SOTO 790,820,840 


800 OCt1:VfR-],S)>2:R-R-! 


3S0 IF SOV THEN 340 


810 If C-H»V+1 THEN 1010 


334 IF Z«1 THEN 370 


815 QcOiGOTO 260 


338 Q»1:6DT0 330 


820 U(R,S-1)«C 


340 IF U(R,S+1K>0 THEN 370 


830 C-C+1 


330 X>INTttN»(1U3tt> 


840 V(R,8-U"1iS"3-HIFC"H+Vt1 THt 


360 ON X 60T0 710,820,910 


850 0-0t00TO 260 


370 X*IftT(tN)(l>t2+1} 


860 U(*+1,S)eC 


300 ON X GOTO 710,820 


870 C-C+IiIF U<ft,S)-0 THEN 880 


3f0 IF fC-M THEN 470 


875 V(R,S)-3:60T0 890 


400 IF Utt+1,S)O0 THEN 470 


880 V(R v S)-2 


403 If SOV THEN 420 


890 R-t»1 


410 If Z-l THEN 430 


900 If OH*V*l THEN 1010 


4J3 B-IteOTO 430 


905 GOTO 530 


420 IF U<ft,S*1K>0 THEN 430 


910 IF 8>1 THEN 940 


430 N*INT4RNDfl>*3tl) 


920 y(R,S*n-CiC-C91iIF V(ft,St=0 


440 ON X 60TO 790,860,910 


938 V<I,S)=3:80T0 950 


430 X^INT(RNDM)«2*1) 


940 VtR.S)-! 


460 ON X 80T0 710,860 


950 3>8*1llf C=H»V+1 THEN 1010 


470 IF SOV THEN 490 


955 SOTO 260 


480 If 2«1 THEN 320 


V60 1-1 


485 Q*1i80TC 500 


970 IF V(R f 5)-0 THEN 980 


410 If UCR,S+1)O0 THEN 320 


975 V(R,$)t3t8-0tGOT0 1000 


300 X*IHT(RUll)t2t1) 


9B0 V<*,SWj8»0tA»l!S*1(QOT0 250 


510 OH X 60TO 790 P f10 


1000 80TO 210 


320 60TO 790 


1010 FOR J'l TO V 


530 If 8-1-0 TNEN 670 


1011 PAINT -I"; 


540 If W(R,9-l)O0 THEN 670 


1012 FOR I=l TO H 


543 If ft»H THEN *1t 


1013 IF V<I,J)<2 THEN 1030 


517 If U(ft+1,SK>0 THEN 410 


1020 PRINT • ■; 


330 If 8<>V THEN 360 


1021 SOTO 1040 


352 If 2-1 THEN 390 


103O PRINT * I"; 


554 fl'ltUTO 370 


1848 WIT I 


360 IF L(R,S*1K>0 THEN 590 


1041 PRINT 


S70 X*INT<tNi<t)*3H) 


1043 FOR 1-1 TO H 


380 ON X 0010 820 f 8AO r 110 


1843 IF VQ f J>-0 THEN 1040 


390 X>INT<RH8<1)«2*1) 


1030 IF V<I,J)-2 THEN 1040 


600 ON X GOTO 820,860 


1051 FRINT "1 •; 


610 If SOV THEN 630 


1052 GOTO 1070 


420 If Z*1 THEN 460 




025 Q'H60T0 440 


1*70 NEXT I 


430 If tl(X f 8tn<>0 THEN 460 


1871 HUNT "•" 


640 X-lN((8H8(n«2*l) 


1072 NEXT J 


650 ON X 80TO 820,910 


1073 ENO 



1010 



THEM ?40 



Animal 



Unlike other computer games in 
which the computer picks a number or 
letter and you must guess what it is. in 
this game you think of an animal and 
the computer asks you questions and 
tries to guess the name of your animal. 
If the computer guesses incorrectly, it 
will ask you for aquestion that differen- 
tiates the animal it guessed from the 
one you were thinking of. In this way 
the computer "learns" new animals. 
Questions to differentiate new animals 
should be input without a question 
mark. 

This version of the game does not 
have a SAVE feature. If your system 
allows, you may modify the program to 
save array A$, then reload the array 
when you want to play the game again. 
This way you can save what the 
computer learns over a series of 
games. 

At any time if you reply "LIST" to the 
question "ARE YOU THINKING OF AN 
ANIMAL," the computer will tell you all 
the animals it knows so far. 

The program starts originally by 
knowing only FISH and BIRD. As you 
build up a file of animals you should 
use broad, general questions first and 
then narrow down to more specific 
ones with later animals. For example, if 
an elephant was to be your first animal, 
the computer would ask for a question 
to distinguish an elephant from a bird. 
Naturally there are hundreds of 
possibilities, however, if you plan to 
build a large file of animals a good 
question would be "IS IT A MAM- 
MAL." 

This program can be easily modified 
to deal with categories of things other 
than animals by simply modifying the 
Initial data in Line 530 and thedialogue 
references to animal in Lines 10, 40, 50, 
130, 230, 240, and 600. In an 
educational environment, this would 
be a valuable program to teach the 
distinguishing characteristics of many 
classes of objects — rock formations, 
geography, marine life, cell structures, 
etc. 

Originally developed by Arthur 
Luehrmann at Dartmouth College, 
Animal was subsequently shortened 
and modified by Nathan Teichholtz at 
DEC and Steve North at Creative 
Computing. 



MtlHAL 
CREATIVE CONFUTING K0RRIST0UN, NEU JERSEY 



PLAT *QUES8 THE ANIHAL' 

THINK OF AN ANIHAL Ml THE COHPUTER WILL TRY 10 GUESS IT. 

ME TOU THIHKIHS Of AN ANIHALT T 

SUES IT SUIHT HO 

IS II A BIRD! NO 

THE ANIMAL YOU UERE THINKING OF HAS A T ELEPHANT 

PLEASE TYPE IN A QUESTION IHAT UOULD DISTINGUISH A 

ELEPHANT FltON A BIRD 

I DOES IT LIRE PEANUTS 

FOR A ELEPHANT THE ANSUER UOULD BE T YES 

ARE YOU TNIHKINS OF UN ANIHALT YES 

DOES IT SUIHT YES 

IS IT A FISH? NO 

THE ANIMAL YOU UERE THINKING OF UAS A T SEAL 

PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A 

SEAL FROM A FISH 

T DOES IT HAVE SCALES 

Fit A SEAL THE ANSUER UOULD IE T NO 

ARE YOU TNIHKINS OF AN ANIHALT YES 

OBES IT SKINT ND 

DOES IT LIKE PEANUTS? HO 

IS IT A BIRBT NO 

THE ANIMAL YOU HERE THINKING OF UAS A ? LION 

PLEASE TYPE IN A QUESTION THAT UOULD DISTINGUISH A 

LION FROM A BIRD 

T DOES IT ROAN 

FIR A LION THE ANSUER UOULB BE ? YES 

ARE TOO THINKING Of AN INIBALT YES 

■KS IT SUINT YES 

BBSS IT HAVE SCALES? NO 

IS IT A SEAL? NO 

THE ANIHAL YOU WERE THINKING Of UAS A ? OCTOPUS 

PLEASE TYPE IN A QUESTION THAT UOULD IISTINQUISH A 

OCTOPUS FRBH A SEAL 

? BOES IT HAVE EIGHT TENTACLES 

FOR A OCTOPUS THE ANSUER UOULI BE f YES 

ARE YBU THINKING Of AN ANIHALT YES 

BOES IT SUIHT HB 

BOES IT LIKE PEANUTS? YES 

IS IT « ELEPHANT? YES 

UHY NOT TRY ANOTHER ANIHALT 

ARE YOU THINKING OF AM ANIHAL? YES 

BOES IT SUIHT NO 

DOES IT LIKE PEANUTS? NO 

DOES IT ROART NO 

IS IT A BIRD? NO 

THE ANIHAL YOU UERE IHINKIH6 flF UAS A ? UUMPUS 

PLEASE TYPE IN A QUESTION THAT UOULB DISTINGUISH A 
UUHPUS fSOH A BIRB 

? IS ITS LAST NAME YOB 

fflR A UUMPUS THE ANSUER UGULD BE ? YES 

ARE YOU THINKING Of AN ANIHAL? LIST 



ANIMALS I ALREADY KNQU ARE i 

ELEPHANT FISH LION 

UUMPUS 

ARE YOU THINKING OF AN AHIHAL? NO 
ARE rOU THINKING OF AH AHIHAL? 

BREAK IN 130 
OK 



SEAL 



OCTOPUS 



BIRD 



■ 



PRINT TABU2);"AHIrAL* 

PRINT TAIU3>;"CREATNE COHPUTINO H0RRI5T0UN, NEN JERSEY' 
PIINTi PRIRTf PRIM 
PRINT "PLAT 'BfJESB THE AH THAI/" 

PRINT THINK OF M AtflNAL MB THE COMPUTER LULL TRY TO 8UC5S IT. 1 
PRINT 

OIK A4C200) 
FOR I"0 TO 3 
REM ABO) 
) KEXT I 

N'VALtAHOIl 

REM MIR CONTROL SECTION 

INPUT "ARE YOU THINKING OF AM ANIrtAL";At 

IF AM'LIBT" THE* 400 

IF IEFTK»,IK>*Y" THEN 139 

Ml 

O0SUB 399 

IF LEN<Al<K>>-0 THEI W 

IF L£FTI<AB(1C} p 2) = ll \Q a THEM 170 

PRINT "IS IT A *;RIGHTt(At(it> r LEmAt(pn>-2>; 

I**POT A* 

At-l£FTt<AI,l> 

IF M*"Y* THEN PUNT "UHY NOT TRY ANOTHER ANIRALt"! GOTO 120 

INPOT "THE ANIMAL YOU MERE THINKIM Of WAS A a ;V* 

PRINT "PLEASE TYPE IN A QUESTION THAT UOULD BI8TIR6UISI A" 
VI;* FROM A H ;RI6HTICAICK> r UMCA«OC>}-2> 
XI 
"FOR A *;y*; w THE AJtSUER WOULD IE 



PRIXT 
INPUT 
PRINT 
INPUT At 

At>LEFTKA*,1)t IF 
IF ••«•■/• THEN »*' 
IF AI--R" THEN Bt«' 

Z1«UAUABC0M 

AK0)"STR*Ut+2> 

A«<21)*A0<K) 



i 



N # 

T" 



Y* ANB AtO-M" THEN 280 



340 Af(Z1tt)«*\A"m 

370 A$fK>-n^m**\"*Alt8TR4<Z1+1)*-\-tBt*STR0CZm"V" 

3(0 SOTO 120 

3f0 REH SUBROUTINE TO PRINT QUESTIONS 

400 Qt»A$(K) 

410 FOR Z<3 TO LEN(Of) 

415 IF NIDt<flt,Z»1>0"\* THEN PRIrtT HID*iQ* P Z, IJ ; : HiXl I 

420 IBPUT Cf 

430 tt*urmttAt 

440 IF WO't" ANB CIO'N* THEN 410 

450 T4"*\*»CI 

ASS FOR X"3 TO IEN<0$>~1 

460 IF HIH(0* t X f 2>-Tf THEM 480 

470 NEXT X 

475 STOP 

410 FOR Y*X*1 TO LE«(«) 

4*0 IF ff»t(0M t 11a |a \* THEN 310 

300 NEXT Y 

303 STOf 

510 K"VAL<NIDHaO P X*2 f Y-X-2)> 

320 RETURN 

330 RATA ■4* f "\0BOC3 IT 9NtN\Y2\»\% OAFISH VUfaMW* 

HO PRINT* PRINT "AHIRALS I ALREAIY KNOU AMEi" 

413 X-0 

410 FOt 1*1 TO 200 

420 IF LEFT$<AMI),2K>"\A* THEN 430 

624 PRINT TAB<12»X»; 

430 FOR 2*3 TO IEN<A*<I)> 

640 IF NlM<AtCl),Z»1K> fll V* THEN PRINT 

44S X*X+1t IF X>3 THEN X-Ot PRINT 

430 NEXT X 

460 PRINT 

670 PRINT 

6BD 60T0 120 

9 ft END 



rtlD$<AtU>,2 r 1);t NOT I 



V 



t - 



My Side 



My 
Home 


6 

OOO 


5 

000 


4 
ooo 


3 

000 


2 

000 


1 
ooo 


Your 

Home 




ooo 

1 


ooo 
2 


000 

3 
Your 


ooo 

4 

Side 


ooo 
5 


ooo 
6 


l 



Awari is an ancient African game 
played with seven sticks and thirty-six 
stones or beans laid out as shown 
above. The board is divided into six 
compartments or pits on each side. In 
addition, there are two special home 
pits at the ends. 

A move is made by taking all of the 
beans from any (non-empty) pit on 
your own side. Starting from the pit to 
the right of this one, these beans are 
'sown' one in each pit working around 
the board anticlockwise. 

A turn consists of one or two moves. 
If the last bean of your move is sown in 
your own home you may take a second 
move. 

If the last bean sown in a move lands 
in an empty pit, provided that the 
opposite pit is not empty, all the beans 
in the opposite pit. together with the 
last bean sown are 'captured' and 
moved to the player's home. 

When either side is empty, the game 
is finished. The player with most beans 
in his home has won. 

In the computer version, the board is 
printed as 14 numbers representing the 
14 pits. 

3 3 3 3 3 3 



3 3 3 3 3 3 

The pits on your (lower) side are 
numbered 1-6 from left to right. The 
pits on my (the computer's) side are 
numbered from my left (your right). 

To make a move you type in the 
number of a pit. It the last bean lands in 
your home, the computer types 
'AGAIN?' and you then type in your 
second move. 

The computer's move is typed, 
followed by a diagram of the board in 
its new state. The computer always 
offers you the first move. This is 
considered to be a slight advantage. 

There is a learning mechanism in the 
program that causes the play of the 
computer to improve as it plays more 
games. 

This version of Awarl is adopted from 
one originally written by Geoff Wyvill of 
Bradford, Yorkshire, England. 



HMI) 
CREATIVE COflPOIIHO KOfiftlSrOUff, *£U JtfiSET 



J 1 


3 3 

reus BOVE* 3 

3 3 


3 3 

M HOVE IS 2 
3 4 



1 3 

I OUR MQVET 4 

3 4 
I 

3 3 

AflAIK? I 

3 4 


4 

nr ftovE is i 

5 



YOUR HOVET 2 

1 



3 3 

3 3 

3 3 

3 

4 

3 O 




1 





1 



4 
YOUR KOVET 3 

5 
4 

4 12 

AfiftlMf 5 

5 
4 

4 10 

(IT HOVE IS 5 

10 
7 

15 110 



1 



O 4 



2 2 1 



AMIKT 3 

I 
? 

1 

HI HOVE IS 4,1 

I 1 I 



YOUR lOUEt 3 

I 1 
8 

1 

ASIIUr 4 

1 1 



1 

HY HOVE IS 3 

1 
10 



Y6UR ROVET 4 

1 O 2 



It 



I 



MI HOVE IS 4,4 

I 1 
14 



YOUR IOVEY 3 
1 



14 








2 

1 

2 

t 

1 
I 

I 

l 

2 
1 

2 
1 



fl»«E OVER 

YOU HIM II 3 POIN 



3 3 3 



3 3 3 

YOUR ROVET 

BREAK IN 110 



10 





10 


10 



11 



\2 



n 



1 
o 



15 



15 



\T 



6 



5 HUNT TA8(34>; 
7 PRINT TAS( 1S>; 



AUARI" 
'CREATIVE 



10 
15 
20 
25 
30 
35 
40 
45 
50 
55 
60 
45 
70 
75 

do 

95 
90 
tt 

too 
110 

12 'j 
130 
144 
150 
200 
205 
210 
215 
221 
223 
230 
235 
200 



COMPUTING NORRiSTOUIt, HEY JERSEr 



lit* 

DIN inj)pfi(UJ,H5Q>:ltEAD N 

PRINT illllTlCM 

fORi'O TO I2tl(l>-3INEXT I 

C-OiF1N)*0ll(tJ>"0tB(6)*O 

605UB 5C0 

PRINT "TOUR N0V£";i8O5U3 110 

IF E*0 THEN SO 

If H«H THEN 80SUB 100 

IF E-0 THEN 60 

PRINT -NY HOVE IS B ;t00SUB 800 

if £=0 THEN 80 

If rt-H THEN PR1N1 VjlSOlUB 

IF £>0 THEN 33 

PRINT ;PRINT H fiAME OVER" 

B"8(6>-8(13>iTF D<0 THEN PRINT "I UIN BY"; 'l;"P0IHT3 - l00TO 20 

H=Nt1:If ^0 THEN PR3KT "IftftUN GAhE^iGOTO 20 

PRINT "YOU UU IT-;B;-P01HTS-|flOTO 20 

PRINT "AGAih"; 

INPUT ftilf N<7 THEN IF H>0 THEN rt=H-1;60T0 130 

PRINT "RLEIAL ROVE":GGT0 10ft 

IF •<«>=<) THEN 120 

N B 6l60SUB 200 

GOTO 500 

K»HiflO$U8 600 

E"0»IF K>6 THEN K*K-7 

C-C+JtIF C<? THEN F(N>*FIN)«A+X 

FOR 1«| TO 5iIF BtUOO THEN 230 

NEXT I 

RETURN 

FOR W TO 12:IF 8<I)O0 THEN E»1i«ETURN 
GOTO 220 
PRINTtPRINI" "J 



303 
510 
315 
520 
325 
330 
333 
3R0 
513 
600 
605 
610 
613 
620 
625 
800 
805 
810 
815 
820 
825 
830 
835 
840 
845 
830 
955 



870 

673 



885 



380 



-; :PR1nt lUJimrr 



580 



900 



FOR I«IZ TO 7 5TEP -llflOSUI 380 

NEXT I 

PRINTiI*13:6GSUB 

PRINT ■ 

FOR I«0 TO 5tG0SUB 

NEXT I 

PRINTiPRIHTiftEIURH 

IF IUK10 THEN PRINT ■ -; 

PRINT KI);tR£TURN 

P«B<H>(B<H>"0 

FOR P>P TO 1 S1EF -1sfr*ftt1iIF H>13 THEN MM4 

|{R>*l(H)tliNEXT P 

IF !»)■! THEN IF N<>6 THEM IF ROU MEN IF 1112-11)00 THEN 625 

RETURN 

l<Nl*i(H>*IU2-H>*UI<m«0iB(12-Hl«0lRETURN 

l-?t;NM3 

FOR 1-0 TO 13i0<n*BU>lN£XT I 

FOR J"7 TO 12:IF 8(J)*0 THEN 885 

8-tiN-Ji809UI 600 

FOR 1-0 TO 3HF l(I)-0 THEN 843 

L«B(I>tIlft«0 

IF L>13 THEN L»l-14tR»1 tBOTO 830 

IF B<L)=0 THEN IF LOi THEN IF LOU THEN R=BU2-UtR 

IF R>8 THEN R-R 

NEXT I 

G-B(l3>-B<6>-0iIF C>6 THEN 875 

K-JiIF K>6 THEN K-K-7 

FOR I"0 TO N-ltIF F(H>»6+K»IltI<FU)/4*<7-CH.1) THEN U«G-2 

NEXT I 

FOR I»0 

IF 8>«l 

NEXT J 

H=A:PRIHT 

FOR L=0 U 

EM 



TO 13:1U>"BU):NEXT 
THEN R=J*B=0 



CHR$U2+fl»;:G01 



200 
N-1*FRlNTB<I>!«m I 




FERMI 

BAGELS 
You 



wi 



In this game, the computer picks a 3- 
digit secret number using the digits Olo 
9 and you attempt to guess what it is. 
You are allowed up to twenty guesses. 
No digit is repeated. After each guess 
the computer will give you clues about 
your guess as follows: 

PICO One digit is correct, but in 

the wrong place 
One digit is in the correct 
place 
No digit is correct 

learn to draw inferences 
from the clues and, with practice, you'll 
learn to improve your score. There are 
several good strategies for playing 
Bagels. After you have found a good 
strategy* see if you can improve it. Or 
try a different strategy altogether and 
see if it is any better. Wh ile t he program 
allows up to twenty guesses, if you use 
a good strategy it should not take more 
than eight guesses to get any number. 
The original authors of this program 
are D. Resek and P. Rowe of the 
Lawrence Hall of Science. Berkeley, 
California. 

BAGELS 
CREATIVE COMPUTING HQRRISTOUN, NEU JERSEY 



UOULD TOU LIKE TH£ RHUS IYES 



NO)? YES 



1 AH THINKING OF A 1HREE-BI6IT HUABER. TRY TO BUES5 
HY NUHBER AH I UILL DUE YOU CLUES AS FOUOUS: 

PICO - ONE DIGIT CORRECT BUT IN THE URONQ POSITION 
FEfirt I - ONE USir CORRECT AND IN THE RIGHT POSITION 
BAGELS - NQ DIGITS CORRECT 



C.K. 1 HAVE A NUHBER IN HIND. 
GUESS ft t T 123 



FERNI 
UUfcSS ft 2 
PICO FEftlU 
OUESS I 3 
FERHI FERHi 
GUESS I 4 
FERHI FERHI 
GUESS I 5 
YOU 001 1TM 



? 724 
t 82? 



? n? 



1 62? 



PLAT ABAIN (YE5 OR NO)? YES 

O.K. 1 HAVE A NUflBER IN ttlND. 

GUESS l< T n? 

bag as 

GUESS 12 t 654 

PICO 

GUESS 13 T 236 

PICO PICO 

GUESS 14 T 613 

PICO 

GUESS 15 1 327 

FERNI FERfll 

OUESS ft 4 t 328 

FERNI FERNI 

OUESS ft 7 ? 32? 

FERNI FERM 

GUESS I a T 325 

TOU GOT HIM 

PLAT AGAIN (YES OR H0)t YES 
O.K. I HAVE A NUMBER IN HIND. 



QIESS 1 1 


f 


456 


PICO 






GUESS 1 2 


t 


123 


FE&HI 






OUESS 1 3 


1 


147 


too aoi niiv 






PLAY AGAIN (YES 


OR N0>T YES 


O.K. I HAVE 


A NUHRER IN MR* 


GUESS 1 1 


? 


15? 


BAGELS 






&UES3 1 2 


T 3-:/ 


PICO 






OUESS 1 3 


? q:s 


BAGELS 






GUESS ft 4 


1 


476 


PICO fERHl 






GUESS ft 3 


f 


407 


PICO HiRrtl 






GUESS ft 6 


t 


740 


PICO FERNI 






GUESS ft 7 


t 


704 


PICO PICO 






GUESS ft a 


T 


406 


PICO PICO FERNI 


¥ 


OUESS 1 ? 


j 


604 


PICO PICO PICO 




GUESS n 10 


t 


460 


YOU GOT mil 






PLAT AGAIN (YES 


OR NO)! JtO 


A 4 POINT IA6ELS BUfFN 


HOPE TOU HAB 


FUN. BYE. 



5 PRINT TA8(3J>;"8AGElS" 

10 PRINT TAN15);"CREATIVE COMPUTING rtQHRISIOUN, HEW JERSEY - 

REN ••» BASLES NUMBER GUESSING 6ANE 

REN Of ORIGINAL SOURCE UNKNOWN BUI SUSPEC1EI TO BE 

REN ##t LAURENCE HALL OF SCIENCE, U.C* GERKELY 

DIN A1U) t A(3>,l<3> 

Y*0:T*255 

PRINTsPRINTtPRINT 

INPUT "MOULD YOU LIKE THE RULES (TES OR H0)";Af 

IF LEFTHA»,I)«'N- THEN 150 
) PRlNTiPRINT "I AN THINKING OF A THREE-DIGIT NUNBER- TRY TO GUESS' 



IS 

20 

25 

JO 

40 

30 

M 

90 

100 

110 

120 

130 

150 

no 

143 

170 

ISO 

ivo 

200 
210 
220 
230 
240 
245 
250 
240 
270 
280 
285 
290 
2?5 
300 
310 
320 
J30 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
440 
470 



UILL GIVE TOU 
DIGIT CORRECT 
CORRECT 

CORRECT 



CLUES AS FOLLOWS*- 

BUT IN THE UR0N6 POSITION" 

AND IN THE RIGHT POSITION" 



t HAVE A HUftBEJt IN NINO.* 



130 

3iAt(2)"ASC(NID4<A1 l 2 r U*iN£XI I 
3 

300 

J00 



490 

300 

505 

320 

530 

340 

345 

550 

540 

570 

510 

390 

600 

605 

410 

615 

620 

63ft 

650 

660 

6*0 

690 

700 

720 

730 

740 

730 

999 



PRUT "NY NUflBER AND I 

PRINT - PICO - ONE 

PRINT " FERHI ■ ONE HIGH 

PRINT * BAGELS * NO B1GITS 

FOR 1-1 TO 3 

A(U«INT(10*RHDU)I 

IF !-!■• THEN 200 

FOR J«1 TO t-l 

IF AUMAU) THEN 160 

NEXT J 

NEXT [ 

PtINT:PRINT "O.K. 

FOR 1=1 TO 20 

PRINT "GUESS ft"JI t 

INPUT At 

IF LEM*t)03 THEN 

FOR Z*1 TO 

FOR J=l TO 

IF A1IJX48 THEN 

IF AUJJ>57 THEN 

fe( J) NHL J J -4B 

NEXT J 

6UT0 320 

PRINT -UHATT- 

6010 230 

IF B(1)*B<2) THEN 650 

IF B(2)*D<3* THEN 450 

IF 8(3)*ft<1> THEN 650 

C*0*B*0 

FOR J»1 TO 2 

IF A<J)OBU+D THEN 390 
C*C»1 

IF A<JH)OI(J> THEN 410 

C-C*1 

NEXT J 

IF A<1)OB<3) THEN 440 

C-C*t 

IF A(3)OB<U THEN 460 

C-C+l 

FOR J«1 TO 3 

IF A(J)OBU) IHEN 490 

D-DH 

NEXT J 

IF 0*3 THEN 6B0 

If C-0 THEN 543 

FOR JM !• C 

PRINT "PICO •; 

NEXT J 

IF 0=0 THEN 5SO 

FOR J«1 TO ft 

PRINT *FERrtl "! 

NEXT J 

IF C*8<>0 IHEN 600 

PRINT "BAGELS"; 

PRINT 

NEXT I 

PRINT "OH «LL" 

PRINT "THAT'S TU6NTY BUESSES, NY NUflBER UA3";100vAU)*10*A(2ttd(3] 

GOTO 700 



■TRY 
"OH, 
"HAS 

"TOU 



PRINT 

PRINT 

PRINT 

PRINT 

Y-Ytl 

INPUT "PLAY 

IF WYES- 

If Y«0 THEN 

PR INT: PRINT 

PRINT "NOPE 

END 



GUESSING A THREE-DIGIT HUHBER."lG0TO 
I FORGBT TO TElL YOU THAT THE NUHBER 
NO TUG DIGITS THE SANE.'lGQTO 230 
GOT ITIII'lPHWT 



230 
I HAVE 



IN HIND 1 



I (TES 
15« 



ASfll 

THEN 

730 

"A";Y;"POJ«T 

YOU HAB FUN. 



OR NOT J A* 



BAGELS 
BYE." 



BUFFI 1 



9 



This program creates a large banner 
on a terminal of any message you 
Input. The length of the message may 
be as long as a string variable permits 
in your version of BASIC. The letters 
may be any dimension you wish 
although the letter height plus distance 
from left-hand side should not exceed 
S inches. Experiment with the height 
and width until you get a pleasing 
effect on whatever terminal you are 
using. The permissable letters and 
characters are defined in the data 
statements 899 through 940. 

Many people seem to have trouble 
getting this program to work, however, 
after thorough checking we guarantee 
that the version presented have runs 
correctly. We suspect the problem is 
dependent upon the Basic itself and 
the way It reads and restores data files. 

This program was written by 
Leonard Rosendust of Brooklyn, New 
York. 



CREATIVE CMPUTIW WHRISIOSN, HEU JERSEY 



It IftPUT 


"HQfttfGHrAL";* 


I'D IHPUT 


"VEftHCAL-JY 


21 UMI 


*'CE*TEED*;Lt 


23 61=0; 


IF U>"P- TH€N G1 = 1 


23 input 


"CHARACTER (TYPE 'ALL 


2* PRIHT 


"STAUflEKT"; 


30 IMPUT 


At 


33 IRPUT 


"SET PAGE-JO* 


40 A-ASCUEFT*CAI t *)> 


30 REll 




6t reu 





IF YOU UA*r CHARACTER BEING 



70 FOR Til TO LEKCAt) 

80 PI'HIDtCAfJjt) 

90 FOR 0M TO 50 *.* 

n REAR Sf,Sm,S(2) f S<3),SM>,S<5) f S(6> f S<7) 
U IF P»*" ■ THEM 812 



100 


IF Pt*St IHEH 200 


120 


NEXT 


200 


RESTORE 


201 


»*ff| 


202 


IF fl***AU" THEN Xt*St 


205 FOR U"1 TO 7 


210 


FOR K-8 TO STEP -1 


230 


IF 2-M<S<U> THER 270 


240 


J<?-R)»0 


250 


OOTO 280 


270 


JCf-RMt SCU>*SIU)-2 4 K 


272 


IF S(U)M THEN 815 


280 REXT K 





445 FDR 11-1 TO X 




44? Midi TA8(l43-4.3«T)«81/(LE8lXimi); 




430 F8* 1-1 10 FIU) 




440 IF JIBI-O THEk 500 


1 


445 FOR ]>! TO I: PRINT XIJ; NEXT I 




47* OOTO 400 




500 FHt 1>1 TO T 




510 FH 11*1 TO LENUO) - 




320 PRINT ■ ";i NEXT II 




330 NEXT I 




600 NEXT I 




620 PRINT 




430 NEXT T1 




700 NEXT 1 




750 FOR H»l 10 2«Xl PRINT I NEXT H 




800 NEXT I 




804 FOR N>l TO 75* PRKIi NCXT K 




810 END 




812 FOR «■! TO 7»Xl PRINIi NEXT H 




813 OOTO S00 




815 F(D)»9-Ki 60TO 443 




899 BAT* " »,8,0,«,*,0,0,0 




900 DATA ■*", 305, 37, 33, 34, 35, 37, 505 




901 DATA *S",!25, 131, 258,236,290, 143, 101 




t02 DATA -£",312,274,274,274,274,238,238 




903 DAT* V, 2, 2, 2, 31 2, J,*, J 




904 MT* -||-,254,25?, 129,63,129,257, 234 




903 DAT* ■L',312, 257, 257, 237, 257, 257, 237 




904 DATA -S-, 49, 139, 274, 274, 274, 143,49 




907 DATA -0\t23,131,238,238,238,131,!23 




908 DAT* "A", 512, 7,9, 17, 33, 193,512 




909 DAI* "F',512, 18, 18, 18,18,2,2 




910 DAI* "X', 512, 17, 17, 41, 69, 131, 238 




911 PAT* "1", 512,274, 274, 274, 274, 274,239 




912 DATA "1- ,311,231, 238, 238, 238,131, 123 




913 DAT* -H-,312, 17,17,17,17,17,512 




914 DAT* -8" ,512,7,13,25, 13, 7,512 




913 DAT* "f, 3, 3, 2,354, 18, 11, 3 


> 


916 DATA "U",12B, 129, 257, 237, 257, 129, 128 




917 DAT* "R-,512, 18,18,30,82, 144,271 


PRlBTEDffH* 


918 DATA "P",SI2,I8,18,16,18, 18,13 




919 DAT* "0", 125,131, 258, 258, 322, 131, 381 




920 OAT* ■**, 8, 9, 17, 481, 17, 9, 8 




921 DATA "V, 44, 45, 129,257,129,65,44 




922 DATA "X", 388, 69, 41 ,17,41,69,388 




923 DATA "I", 386,322,290,274, 246, 262, 260 




924 BAT* "I", 258, 258, 258, 512, 238, 238, 250 




923 »*TA "C", 125,131,258,238,258, 131, 69 




926 RATA 'J",45, 129,237, 257, 257, 129,128 




927 DATA *1", 0,0, 261, 239, 512, 257, 23? 




928 DAT* •2",241,38?,322,290,274,247,24l 




929 DATA "•",69,41,17,512,17,41,49 




930 BATA "3", 64, 130,258,274,246,150,100 




931 RATA -4", 33,49, 41, 37, 35, 512,33 


b 


932 DATA "5", 140,274, 274,274,274,274,224 




933 DATA '4", 194, 291, 293,297,303,289, 193 




934 DAT* -7", 238, 130,44,34, 18,10,8 




933 DATA "8", 69,171, 274,274,274,171 ,49 




936 DATA "9",243, 136,74,42,24,10,7 




93? DATA "--,41,41, 41,41,41,41,41 


> 


938 BATA "(-,1,1,1,384,1,1,1 




939 DATA "0", 57, 49, 131 ,258, 131,69, 57 




940 DATA "-M, 1,129,449,129,1,1 




1000 STOP 



100? END 
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FFF 



SEE 
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Basketball 



This program simulates a game of 
basketball between Dartmouth College 
and an opponent of your choice. You 
are the Dartmouth captain and control 
the type of shot and defense during the 
course of the game. 

There are four types of shots: 
1. Long Jump Shot (30 ft), 2. Short 
Jump Shot (15 ft.). 3. Lay Up, and 
4. Set Shot. Both teams use the same 
defense, but you may call it: Press (6). 
Man-to-man (6.5). Zone (7), or None 
(7.5). To change defense, type "0" as 
your next shot. 

Note: The game is biased slightly in 
favor of Dartmouth. The average 
probability of a Dartmouth shot being 
good is 62.95% compared to a 
probability of 61.85% for their oppo- 
nent. (This makes the sample run 
slightly remarkable in that Cornell won 
by a score of 45 to 42. Hooray for the 
Big Red!) 

Charles Bacheller of Dartmouth 
College was the original author of this 
game. 



M5IETIM.L 

CREATIVE CONPUTINO ftORftlSTOUH, NEU JERSEY 



this is dawnouin c0lle6e basketball. ygu url be dartmouth 
captain and playhaner. call shots as follqust 1. long 
(30 ft.) jump shot; 2. short (15 ft.) juhp shot: 3, lat 
up; a. set shot. 

both teahs will use the sahe defense, call defease as 

follousi 6. press; 4,5 aah-to ham; 7. zone; 7.5 none, 
to change defease, just type as your next shot, 

your starting defense (jul get ? 



CHOOSE YOUR OPPONENT? COHHCLL 
CENTER JUHP 

CORNELL CONTRBLS THE TAP. 



JUHP SHOT. 

SHOT 15 OFF RIR. 

DARTMOUTH CONTROLS 



THE REBOUND* 



YOUR SHOTT 2 

JDHP SHOT 

SHOOTER IS FOULED. TWO SHOTS. 

SHOOTER HARES BOTH SHOTS. 

5C0RE; 2 10 C 



LAV UP. 

SHOT 13 HISSED. 

DARTMOUTH CONTROLS 



THE ftEBOUNB. 



YOUR SHOT? 3 
LAY UP. 
SHOT IS GOOD, 
SCOREt 4 TO 1 



TUO POINTS, 



LAY UP. 

SHOT IS HISSED. 

DARlnOUTH CONTNOLS 

LAY UP. 

SHOT IS HISSED. 

DARTMOUTH CONTROLS 



THE RESOUND 



THE REBQUNI 



YOUR SHOTT 4 

SET SHOT. 

SHOT IS OFF THE Rift. 

CORAELL CONTROLS THE REDOUND. 

SET SHOT. 

SHOT IS HISSED. 

CORHELL CONTROLS THE REBOUND. 

PASS BACK TO CORNELL GUARD. 

JUHP SHOT. 

SHOT IS OFF RIrt, 

DARTMOUTH CONTROLS THE REBOUND, 

YOUR SHOT? 2 
JUHP SHOT 
SHOT IS GOOD. 
SCORE! 6 TO 1 

SET SHOT, 
SHOT IS HISSED. 
CORNELL CONTROLS THE REDOUND. 
BACK TO CORNELL GUARD. 



JUHP SHOT. 

SHOT IS OFF RIH. 

DARTflQtMH CONTROLS 



THE RCDQUID. 



YOUR SHOTT A 

SET SHOT. 

SHOOTER FOULED. TUG SHOTS, 

SHOOTER HAKES BOTH SHOTS. 

SCORE} 8 TO 1 

JUHP SHOT. 

SHOT IS OFF R1H» 

DARTrtOuTH CONTROLS THE REDOUND, 

YOUR SHOTT 2 
JURP SHOT 

SHQT IS OFF TARGET. 
REBOUNB TO CORHELL 

LAY UP. 

SHOT IS HISSED, 

DARTHOUTH CONTROLS THE REBOUND. 



Later in the game .... 

YOUR SHOT? 4 

SET SHOT. 

SHOT IS GOOD. TU0 POINTS. 

SCOREi 3? TO 39 



JUHP SHOT. 
SHOT IS GOOD, 
SCOREi 3? TO 41 

YOUR SHOT? 2 

JUHP SHOT 

5H0T IS OFF TARGET. 

DARTHOUTH CONTROLS THE REDOUND. 

BALL PASSED BACK 10 YOU. YOUR SHOT? I 

JUHP SHOT 

SHOT IS SLOCKED, BALL CONTROLLED DY DARTHOUTH. 

YOUR SHOTT 2 

JUHP SHOT 

SHOOTER IS FOULED. TUG SHOTS. 

SHOOTER HAKES ONE SHOT AND HISSES ONE, 

SCORE} 38 TO 41 



JUHP SHOT, 

SNOT IS OFF RIrt. 

DARTHOUTH CONTROLS 



THf REBQUfcD. 



YOUR SHOT? 3 

LAY UP. 

SHOT BLOCKED. CORNELL'S BALL. 

JUHP SHOT. 

SHOT IS OFF SIN. 

DARTBDUTN CONTROLS THE REBOUND. 

YOUR SHOTT 

LAY UP. 

SNOT IB GOOD. TUO POINTS. 

SCOREi It TO 41 

JUHP SHOT. 

PLATER FOULU. TUO SHOTS. 
BOTH SHOTS HISSED. 
SCORE; AQ TO 41 

YOUR SHOTT 3 
LAY UP. 

SNOT BLOCKED. CORNELL'S BALL. 

JNHP SHOT. 
SNOT IS 0000. 
SCOREi 40 TO 43 

YOUR SHOT? 2 
JUHP SHOT 

SHOT IS OFF TARGET. 
REDOUND TO CORNELL 

SET SHOT. 
SHOT IS GOOD. 
SCOREt 40 TO 45 



THE REBOUND. 



SET SHOT. 

SHOT IS HISSED. 

DARTHOUTH CONTROLS 

YOUR SHOTT 2 
JUHP SHOT 

SNOT IS OFF TARGET. 
REBOUND ID CORNELL 



JUHP SHOT. 

PLATER FOULED. TUO SHOTS. 

SHOOTER HAKES ONE SHOT AND HISSES ONE. 

SCOREi 2 TO 1 



YOUR SHOTT 1 
JW1P SHOT 

:hargihg fqul 



DARrnOUTH LOSES BALL. 



YOUR SHOTT 3 

LAY UP. 

SHOOTER FOULED. TUO SHOTS. 

SHOOTER HAKES BOTH SHOTS. 

SCOREi 10 TO 1 



SET SHOT. 

SHOT IS HISSED. 

CORNELL CONTROLS 

SET SHOT, 

SHOT IS GOOD. 

SCORES 10 TO 3 

YOUR SHOTT 1 
JWIP SHOT 
SHOT IS GOOD. 
SCOREi 12 TO 3 



THE REBQUhD. 



YOUR SHOTT 2 

JUHP SHOT 

SHOT IS OFF TARGET. 

DARTHOUTH CONTROLS THE REBOUND. 

BALL PASSED BACK TO YOU. YOUR SHUT? 4 

SET SHOT. 

SHOT IS 6O0D. TUO POINTS. 

SCOREi *2 TO 4* 



LAT UP. 

SHOT IS HISSED. 

DARTHOUTH CONTROLS 

YOUR SHOT* J 



THE RtDUUHt 



***** END OF GAHE ***** 
FINAL SCORE: DARTHOUTH 42 CORNELL 43 



12 



5 PRINT TAB<31);"BASKETBALL" 

7 PRIM TAB<13);"C8EATIVE COMPUTING 

8 PRIHT;PRIMT;PRINT 



HOIRISTOUN, NEU JERSEY* 



10 
20 
30 
40 



"THIS IS BARTNOUTH COLLEGE 
" CAPTAIN Ml PLAYHAKER. 



2. 



i» FT.) JUHP SHOT 

UP; 4. SET SHOT.* 
BOTH TEAHS UILL USE IHE SAflE DEFENSE. CALL DEFENSE A3 
FOLLOUS: 4. PRESS; 4.5 MAN-TO HAH; 7. 20NE; 7.5 HONE. 

TO CHANGE IEFEIISE, JUST TYPE AS YOUR MX! 'SHOT* 4 
YOUR STAHTtHO DEFENSE HILL GE";OiIF D<6 THEN 2010 



;o* 



PJHHT 
PRINT 

PRINT 
PRINT 
40 PJttKF 

£^ PRINT 

72 PRINT 

74 INPUT 

7t PRINT 

00 INPUT "CHOOSE YOUR OPPONENT 

370- PRINT "CENTER JUHP" 

3*0 IF RltD1 1 >> 3/5 THEN 420 

PRINT 0$;" CONTROLS THE TAP.* 

8IT0 3000 

PRINT "GARTHOUTK CONTROLS THE TAP.' 

PRINT 

INPUT "YOUR SHOT";! 

P*0 

IF ZOINTU) THEN 455 

IF Z<0 OR Z>4 THEN 433 

BGTO 440 

PRINT •INCORRECT INSUER. RETYPE IT. ";sGOT0 430 

IF RHBUK.5 THEN 1000 

IF TOCO THEN 1000 

PRINT 

IF 8U)OS<0> THEN 310 

PRINT * ***** END OF SECOND HALF ***<*- 

PRINT "SCORE AT ENB OF REGULATION TIME*" 

print * MaiHQUTH";sm;o»;s«» 

PRINT 

PRINT 

T»?3 

OOTO 370 

PRINT * 

PRINT 

STOP 

PRINT 

PRINT 

PRINT 

RETURN 

ON 2 60T0 

OOTO 1300 

T"T*1 

IF T-59 THEN OOOO 

IF T«92 THEN 1044 

GOTO 1030 

GOSUB 400 

PRINT "JUflP SHOT" 

IF RND(1». 341*0/8 THEN 1090 

PRINT "SHOT IS 8008," 

fiOSUB 7000 

GOTO 3000 

IF RNDU)>.d82**/8THW 1200 

print wmmmm+mmm.^%A£Uj* 

IF l/4*RND(n>.43 THEN 1130 ^*^*U 
PRINT "BARTHOUTH CONTROLS THE REBQUNB." 
OOTO 1143 



BASKETBALL. YOU MILL BE BARTHOUTH" 
CALL SHOTS AS FOLLOWS: 1. LONG" 
SHORT (15 FT. J JUHP SHOT; 3, LAY" 




400 
410 

420 
425 
430 
440 

445 

444 

447 

433 

440 

480 

4W 

4*1 

4*2 

4*3 

4*4 

4*5 

4*4 

4*9 

300 

510 

515 

520 

400 

410 

420 

430 

1000 

1030 

104O 

1041 

1042 

1043 

1044 

1050 

1040 

1070 

1075 

1063 

1090 

1100 

1105 

1110 

1120 

1130 

1140 

1143 

1150 

1136 

1140 

1170 

1180 

1185 

1187 

1168 

1190 

1195 

1200 

1210 

1230 

1233 

1240 

1242 

1245 

1250 

1253 

1240 

1245 

1270 

1280 

1300 

1301 

1302 

1303 

1304 



1305 IF Z=0 THEN 2010 

1310 IF Z>3 THEN 1700 

1320 PRINT -LAY UP." 

1330 IF 7/G*RN9(1)>,4 THEN 1340 

1340 PRINT "SHOT IS 8000. TWO POINTS/ 

1345 80SUB 7000 

1335 OOTO 3000 

1340 IF 7/B*RNDU)>.7 THEN 1500 

1370 PRINT "SHOT IS OFF IHE RIH." 

1380 IF RND(1)>2/3 THEN 1415 

1390 PRINT 0*;- CONTROLS THE REBOUND." 



X 



)/ 



'8E8IH TWO MINUTE OUERTIriE PERIOD' 



* ***** ENB 

•FINAL SCORE! 



OF GAflE **•**" 
88ftTnouTH";suj;oo;s<0) 



••* TUO HINUTE3 LEFT IN THE UAhE > m 



1040,104(3 



PRINT "REBOUND TO ";0t 

GOTO 3000 

IF RND<1)>.40 THEN 1138 

GOTO 1300 

IF 0*4 THEN 5100 

PRINT "BALL PASSED BACK TO YOU. ■; 

GOTO 430 

IF RND<I)>.* THEN 11*0 

PRINT "PLAYER FOULEB, TUO SNOTS," 

60SUG 4000 

OOTO 3000 

PRINT "BALL STOLEN. ";0*;"'S BALL." 

GOTO 3000 

IF RND<1)>. 782*0/8 THEN 1250 

PRINT "SHOT IS BLOCKEB. BALL CONTROLLED BY 

IF RND(1)>.5 THEN 1242 

PRINT "BAftTNGUTR." 

GOTO 430 A 

PRINT o$;*." 

GOTO 3O0O 

IF 8HI(1». 843*0/8 THEN 1270 

PRINT 'SHOOTER IS FOULED, TUO SHOTS. - 

605UG 4000 

GOTO 3000 

PRINT "CHARGING FOUL. MRTHOUTH LOSES BALL/ 

GOTO 3000 

M*1 

IF T-50 THEN 8000 

IF T»92 THEN 1304 

OOTO 1305 

GOSUB 400 



1400 GOTO 3000 m N^ ^ & 




IMS PfilHT "DARTMOUTH COHTKCLS THE REBOUND." Vw ^Jl"d 1 ! 
1420 IF RNG<1».4 THEN 1440 T "TLt 


1430 GOTO 1300 | I ^Egf 


1440 PRINT -BALL PASSED BACK TO YOU,*; JL . Jh 


1430 GOTO 430 P^SS Pf 


1300 IF 7/i*RNI(n>.8?5 THEN 1400 h-*-^^f 


1510 PRINT "SHOOTER FOULED. TUO SHOTS.* , j 


1520 60SUB 4000 1 


1530 GOTO 3000 1 I 


1400 IF 7/B»RH8<11>.925 THEN 1430 I I 


1410 PRINT "SHOT BLOCKED. ";0*;"'S BALL." KBC*^^ 7 




1420 GOTO 3000 _ mrtm L J 




1430 PRINT "CHARGING FOUL. OARTHOUTH L05ES THE BALL," SEX ; ^ t — 




1440 GOTO 3000 M^ | 




1700 PRINT "SET SHOT,* #C3^SJ*»^1 1 




1710 GOTO 1330 li»fclrf*l 




2010 INPUT "YOUR NEU DEFENSIVE. ALI6NNENT IS"J* 1 rUl ff lgJfe^-^> 


2030 IF B<4 THEN 2010 1 fit «^ IB f|l 


2040 soro 425 jr7^^^\Vw _.<£3*>P# mt 


3ooo p»i tfP^Ji l^fflJ&lET* Va 


3005 t»t*i ^B IrtLg TBrTC |f™n 1 a 


3008 IF T=50 THIN BOOC ^^^ \LQ^rTLgC& llfiM 1 fl**-»»«-^_ 


3012 eoio 301 e jjf ^4y/T^**?^ ^?B 


J015 GDSUE 400 J*2&T\. Ail Tjfc^W^^rf 


30i8 pkih: ^— *j4M ^vNK ^*S&^ wmr 


3020 n*io/4*RNB<n+i nTjjiv cr*****— . Z^r + WW f 


3030 IF Zt>2 THEN 3500 \ ' ■■ i&v *^/ ;f ] I 


3040 PRINT "JUHP SHOT," 1 T" T tll^l^S^^^--^/ '** ' L^T^ 


3050 IF 8/D-RNB(U>.35 THEN 3100 Lr^T~RIBSM ? .^i^h^V \j LJjV^ 


J06O PKjwr "smc! :$ ooui:.' t-J 1 f^^ C^NJ^^V^ p5^» 


3080 GOSUB 4000 ^^SSW A^^t\ > M ^^^^ 


30*0 GOTO 425 f jffi»A \ M _^J^ 


3100 U B/D»RNDU».75 rHEN 3200 [ {^fflV t^l-'^ 


J1G5 PRINT "SKOT IS UFF ftlrt. J \ ^3|lll^»^ 


IWl if B/6"RHD<1».5 \r.iv 3130 * X _*^fj0^S 
3120 PRINT "BARTHOUTH CONTROLS THE REBOUND," ^mjfr^ 


3130 GOTO 425 4050 IF RN0(t)>.75 THEN 4100 


3150 PRINT 0$;- CONTROLS THE REIOUNB," 4040 PRINT "SHOOTER HAKES ONE SHOT AHB HISSES ONE.- 


3140 IF \s-~t THEN 5000 407O *Jn -P>=S(1-P) + 1 


3145 IF RH0(i».5 THEN 3173 4060 GOTO 4040 


3148 PRINT "PASS BACH TO ";0»;" GUAftB," 4100 PRINT "BOTH SHOTS HISSED." 


3170 GOTO 3000 4110 GOTO 4040 


3175 GOTO 3300 t 3000 IF RNB(1)>.73 THEN 301O 


32O0 IF B/D*RHB(1».9 THEN 3310 5005 GOTO 3143 


3210 PRINT -PLAYER FOULED, TUG SHOTS." 5010 PRINT "GALL STOLEN. EASY LAY UP FOR BARTHOUTH. 


3220 GOSUB 4000 5015 GOSUB 7000 


3230 GOTO 425 3030 GOTO 3000 


3310 PRINT "OFFENSIVE FOUL. BARTJIOUTH'S BALL." 


3320 GOTO 425 5100 IF RND<1».4 THEN 5120 


3300 IF Z1>3 THEN 3800 5110 GOTO 1140 


3510 PRINT "LAY UP." 5120 PRINT "PASS STOLEN IT ";0i;" EASY LAYUP." 


3520 IF 7/D*RNDll)>.413 THEN 3400 3130 GOSUB 4000 


3530 PRINT "SHOT IS GBOO." 3140 GOTO 425 


3540 GOSUB 4000 4000 S(0)*S10>42 


3550 GOTO 423 4010 PRUT "SCORE: ":S<1);"IO-;5<0> 


3400 PRINT "SHOT IS HISSED," *020 RETURN 


3410 GOTO 3110 ?Q0O S<1)=S<1>*2 


3800 PRINT "SET SHOT." 7010 GOSUB 4010 


38(0 6OT0 3320 7020 RETURN 


*0O0 REH FOUL SHOOTING 8000 PRINT ■ ***** END OF FIRST HALF ****«» 


4010 IF RH0<n>,49 THEN 4050 9010 PRINT "SCORE: DART«0UIH";8<n ;Q»;S(Ol 
4020 PRINT "SHOOTER HAKES BOTH SHOTS." 8015 PRINT 


4O30 S<1-P)=$<1-P)t2 8014 PRINT 


4040 GOSUB 4010 8020 GOIO 370 


4041 RETURN *?** m 
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Batnum 



The game starts with an imaginary 
pile ol objects, coins for example. You 
and your opponent (the computer) 
alternately remove objects from the 
pile. You specify in advance the 
minimum and maximum number of 
objects that can be taken on each turn. 
You also specify in advance how 
winning is defined: 1 . To take the last 
object or 2. To avoid taking the last 
object You may also determine 
whether you or the computer go first 

The strategy of this game is based on 
modulo arithmetic. If the maximum 
number ofobjectsa player may remove 
in a turn is M, then to gain a winning 
position a player at the end of his turn 
must leave a stack of 1 modulo (M+1) 
coins. If you don'tunderstand this, play 
the game 23 Matches first, then BAT- 
NUM, and have fun! 

BATNUM is a generalized version of 
a great number of manual remove-the- 
object games. The original computer 
version was written by one of the two 
originators of the BASIC language, 
John Kemeny of Dartmouth College. 



MTHUI 

CREATIVE C0HPUTIM6 MMI8T0WI, HEN JERSEY 



IMS PR06RAH IS A 'BATTLE OF NUMBERS' 
GArtE, WHERE THE COMPUTES IS YOUR OPPONENT 

THE SANE STARTS UITM AN ASSUMED PILE OF OBJECTS. 
YOU AMI YOUI OPPONENT ALTERNATELY REMOVE OBJECTS fROrt 
THE PILE. UINHIN6 IS BEFINEft IN ADVANCE AS TAKWfi THE 
LAST OBJECT OR HOT. YQU CAM ALSO SPECIFY SOME OTHER 
BE01NNU6 COMBITIONS. BON'Y USE ZERO, HOWEVER. IN 
PLAYIHfi THE 6AHE. 



ENTER PILE SUE? 23 
ENTER UIM OPTION - 1 10 
ENTER MM AND MAX ? 1,3 



TAKE LASf, 2 TO AVOID LAST: t 2 



ENTER START 
YOU* HOVE r 
COMPUTER TAKES 
YOUR HOVE * 3 
COMPUTER TAXES 
YOUR HOVE T 3 
COMPUTER TAKES 
YOUR HOVE 9 3 
COMPUTER TAKES 
YOUR HOVE t 3 
COMPUTER TAKES 
YOUR HOVE T 3 
COMPUTER TAKES 



OPTION - 1 COMPUTER FIRST, 2 YOU FIRST t 2 
2 

1 MO LEAVES 20 

1 ANB LEAVES U 

1 AHB LEAVES 12 

T ANB LEAVES 8 



I AHB LEAVES 4 
1 ANB LOSES. 



10 

20 

30 

110 

120 

130 

140 

150 

140 

170 

\u 



PRIMT TAB<33);-BATMUH* 
PRINT TAftfmrCAEATlUE 
PRIMT:PRIHT:PRIMT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRIHT 



'THIS PROGRAM IS 
'GAME, UHERE THE 



COMPUTING M0RRISTCUN, N£U JERSEY" 

A 'BATTLE OF NUMBERS'* 
COMPUTER IS YQUR OPPONENT" 



-THE BARE STARTS UITH AH ASSUHCI PILE Of OBJECTS.* 
■YOU ANB YOUR OPPONENT ALTERHATELY REHOVE OBJECTS FRCH" 
'THE PILE* VINNIHS IS DEFINED IN AAVANCE AS TAKING THE* 
HAST OBJECT OR NOT. YOU CAN ALSO SPECIFY SOME OTHER" 
-BE01NHINB CONDITIONS, BON'T USE 1ER0, H0UEUER, IN* 
"PUYINfi THE 6A«," 



200 
210 
220 
230 
240 
330 
350 
3*0 
370 



3*0 
410 
420 
430 
430 
440 
470 
410 
490 
910 
320 
530 
340 
330 
340 
370 
380 
3T0 
400 
410 
620 
430 
440 
650 
660 
670 



220 



2J0 



720 



'COMPUTER takes*;h;-ahd loses/ 



THEN 720 



PRINT 

SOTO 330 

FOR 1=1 TO 10 

PRINT 

NEXT I 

INPUT "ENTER PILE SI2E";N 

IF NOO THEN 370 

BOTO 330 

IF NQINKH) THEN 220 

IF N<1 THEN 220 

INPUT "ENTER U1N OPTION - 1 TO TAKE LAST, 2 TO AVUIB LAST: *li 

IF HO THEN 430 

IF DOS THEN 3*0 

INPUT "ENTER fllN AND MAX *[A,B 

IF A>B THEN 430 

IF ft<! THEN 430 

IF AOINT1A) THEM 430 

IF BOINT(B> THEN 430 

INPUT -ENTER START OPTION - 1 COMPUTER FIRST f 2 YOU fiRST ";S 

IF S«1 THEN S30 

IF 8<>2 THEN 490 

C»A*B 

IF S=2 THEN 370 

605UB 600 

IF i»l THEN 

60SUB 010 

IF U«1 THEN 

SOTO 350 

l«N 

IF HM THEH 630 

§■0-1 

IF N»l THEH 

IF N>A THEH 

U«l 

PRINT 

RETURN 

IF N>B 

■■I 

PRINT -COMPUTER TAKES';«; P AHB WINS." 

RETURN 

P»0-C*INTiO/C> 

IF P>=A THEN 750 

P*A 

IF P<*8 THEN 770 

P«B 

N'N-P 

PRIMT "CORPUTER TAKES";P;"AND LEAVE3";N 

U-0 

RETURN 

PRINT "YOUR MOVE *i 

INPUT P 

If POO TKEN 870 

PRINT "I TGLO YOU HOT TO USE JERO! COrtPUIER WIN5 BY FORFEIT. 

U>1 

RETURN 

IF POINT(P) THEN 920 

IF P>*A THEN ftO 

If P=N THEN 940 

60T0 ?2I 

IF P<-B THEN 940 

PRINT -ILLEGAL HOVE, REENTER IT "; 

60T0 820 

N-N-P 

IF NOO THEN 1030 

IF H*1 THEN 1000 

PRINT -TOUGH LUCK, YOU LOSE*' 

UM 
990 RETURN 
10OO PRINT "CONGRATULATIONS, TOU Uitir 

1010 U*l 

1020 RETURN 

1030 IF «>■• THEN 1040 

1040 N-N#P 

1030 SOTO 920 

1060 U-0 

1070 RETURN 

1080 ENB 



490 
700 
710 
720 
730 
?40 
750 
740 
770 
780 
790 



610 
820 
830 
640 
850 
860 
870 



8J0 
900 
910 
920 
930 
940 
950 
960 
970 
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Battle 



BATTLE is based on the popular 
game Battleship which is primarily 
played to familiarize people with the 
location and designation of points on a 
coordinate plane. 

BATTLE first randomly sets up the 
bad guys' fleet disposition on a 6 by 6 
matrix or grid. The fleet consists of six 
ships: Two destroyers (ships number! 
and 2) which are two units long, two 
cruisers (ships number 3 and 4} which 
are three units long and two aircraft 
carriers (ships number 5 and 6) which 
are four units long. The program then 
prints out this fleet disposition in a 
coded or disguised format (see the 
sample computer print-out). You then 
proceed to sink the various ships by 
typing in the coordinates (two digits, 
each from 1 to 6, separated by a 
comma) of the place where you want to 
drop a bomb, if you'll excuse the 
expression. The computer gives the 
appropriate responses (splash, hit, 
etc.) which you should record on a 6 by 
6 matrix. You are thus building a 
representation of the actual fleet dis- 
position which you wi II hopefully use to 
decode the coded fleet disposition 
printed out by the computer. Each time 
a ship is sunk, the computer prints out 
which ships have been sunk so far and 
also gives you a "SPLASH/HIT 
RATIO." 

The first thing you should learn is 
how to locate and designate positions 
on the matrix, and specifically the 
difference between "3,4" and "4,3." Our 
method corresponds to the location of 
points on the coordinate plane rather 
than the location of numbers in a 
standard algebraic matrix: the first 
number gives the column counting 
from left to right and the second 
number gives the row counting from 
bottom to top. 

The second thing you should learn 
about is the splash/hit ratio. "What is a 
ratio?" A good reply is "It's a fraction or 
quotient." Specifically, the splash/hit 
ratio is the number of splashes divided 
by the number of hits. If you had 9 
splashes and 15 hits, the ratio would be 
9/15 or 3/5. both of which are correct. 
The computer would give this 
splash/hit ratio as .6. 



The main objective and primary 
educational benefit of BATTLE comes 
from attempting to decode the bad 
guys' fleet disposition code. To do this, 
you must make a comparison between 
the coded matrix and the actual matrix 
which you construct as you play the 
game. 

The original author of both the 
program and these descriptive notes is 
Ray Westergard of the Lawrence Hall 
of Science, Berkeley. California. 



6 

5 

4 
3 
2 
1 




1 2 3 4 5 6 



BATTLE 
CREATIVE COHPUTINO BMBISTOUN, MEM JERSEY 

THE FOUOUIHG CODE OF THE BAB GUTS' FLEET DISPOSITION 
HAS 6EEH CAPTURED BUT HOT DECOUED: 



3 
5 

3 
3 




4 





1 




4 


4 


1 



DE-COLE IT ANB USE IT IF YOU CAN 

BUT KEEP THE IE-CODING RETHOD A SECftEI. 

START SAKE 
t 1,1 

A DIRECT HIT ON SHIP DUMBER t 

TRT AGAIN. 

t 4,1 

A DIRECT HIT ON SHIP NUMBER 3 

TBI AGAIN. 

t 3,1 

A DIRECT HIT IN SHIP NUMBER 3 
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IB* AGAIN. 

T 4,1 

A DIRECT HIT UK SHIP NUMBER 3 

AND IOU SUNK IT. HURRAH FOR THE G008 GUIS. 

SO FAS, THE IAD 6UYS HAI/E LOST 

J DESTROYERS), | CRUISERS), AHO AIRCRAFT CARRIERS). 

TOUR CURRENT SPLASH/HIT RATIO IS 
t 2,1 

SPLASH! THY MAIN. 
' 1,2 

A DIRECT HIT ON SHIP NUHBER 2 
W AGAIN. 
T 1,3 

A BIRECT HIT ON SHIP HUtUER 2 
AHD »0U SUHX IT. HURRAH FOR THE GOOD GUTS. 
80 FAR, THE JAB GUTS HAVE LOST 

1 DESTROYERS), I CRUISER(8), AHB AIRCRAFT CARRIERS). 

YOUR CURREHT SPLASH/HIT RATIO IS .1*646? 
T 3,7 

INVALID IHPUT. TRY AGAIN, 
T 3,4 

A BIRECT HIT ON SHIP NUMBER 5 

TRY AGAIN. 

7 4,6 

A BIRECT HIT ON SHIP NUHJJER 5 

TRY AGAIN. 

t 3,4 

A BIRECT HIT ON SHIP NUHBER 3 

TBI AGAIN. 

7 6,4 

A BIRECT HIT ON SHIP NUflBER J 

TRY A6AIH. 

? 6,4 

A BIRECT HIT OH SHIP NUMBER 3 

ANB YOU SUNK IT. HURRAH FOR THE GOOD OUTS. 

SB FAR, THE BAB GUTS HAVE LOST 

I DESTROYERS), I CRUISERS), ANB 1 AIRCRAFT CARRIERS). 

YOUR CURRENT SPLASH/HIT RATIO IS .0909091 
7 3,4 

SPLASH! TRY AGAIN. 
7 2,2 

A DIRECT HIT OH SHIP NUMBER 6 
m AGAIN. 
7 3,3 

A BIRECT HIT ON SHIP NUflBER 6 
TRY AGAIN. 
t 4,4 

A BIRECT HIT ON SHIP NUflBER 6 
ANB YOU SUNK IT. HURRAH FOS THE GOOD GUYS. 
SO FAR, THE BAB GUIS HAUf LOST 

1 0ESI8QYERSI, 1 CRUISERS), ANB 2 AIRCRAFT CARRIERS). 
YOUR CURRENT SPLASH/HIT RATIO IS .14285? 

tM 

YIU ALREADY PUT A HOLE IN SHIP NUflBER 1 AT THAI P01HI. 
SPLASHI TRY AGAIN. 
T 3,3 

A BIRECT HIT IN SHIP NUHBER 1 
ANB YOU SUNK IT. HURRAH FOR THE GOOD OUYS. 
SO FAR, THE BAB BUYS HAVE LOST 
? DESTROTER(S), I CRUISERS) p ANB 2 AIRCRAFT CARRIERS). 
YOUR CURRENT 8PLASM/HIT RATIO IS .2 
T2,3 

A DIRECT HIT 01 SHIP NUMBER 4 
TRY AGAIN. 
I 2,4 

4 DIRECT HIT OH SHIP NUHBER * 
TRY AGAIN, 
t 2,3 

A BIRECT HIT OH SHIP NUHBER 4 
ANB TOII SUHK IT. HURRAH FOR THE GOOD GUYS. 
SO FAR, THE BAB OUYS NAVE LOST 

2 DESTROYERS), 2 CRUISERS), AND 2 AIRCRAFT CARRIERS). 
YfjUt CURRENT SPLASH/HIT RATIO IS .146*6? 

YOU NAVE TOTALLY WIPED OUT THE BAB GUTS' FLEET 
UITH A FINAL 8PLABH/NIT RATIO OF .164*47 



3 PRINT TAB(33) {"BATTLE" 

7 PRINT IAS(13);"CREATIVE C0HPUIIN6 HORRISIOUH, HEU JERSEY- 
ID REN - BATTLE U8ITIEN BY RAY UESIERGARD 10/70 
2D REN COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF. 
3D REN PRSBUCEB AT THE LAURENCE HALL OF SCIENCE, BERKELEY 
4* REN DIN FU,41,H(4,6),A(4KB(4),C(4),L()) 
30 FOR X»1 TO * 

51 FOR Y'l TO * 

52 FU.Y1-0 

33 NEIT Y 

34 NEXT X 

60 FOR !■) TO 3 

70 H-4-I 

80 FOR J»l TO 2 

90 A*INT(**RND(l)*t) 

100 B-INTS*ftMD<U+l> 

110 B'INT(4«RND(IHI) 

120 IF FU,B)>0 THEN 90 

130 .1-0 

140 ON B 60T0 130,340,330,740 

130 B(l)-B 

160 BSWtBS)*? 

170 FOR k°t TO N 

1B0 IF fl>l THEN 240 

If* IF B(K)** THEN 230 

200 IF F(A,B(KI»D>0 THEN 230 
210 l(Ktn>l(K)H 

220 GOTO 2BD 

230 H-2 

2*0 IF B(IXB(2) ANB B(t)<B(3) THEN Z'BU) 

242 IF 112X1(1) AND B<2XB(J> THEN Z-B(2) 

2*4 IF 1(1X1(11 AHD 1(3X1(21 THEN Z-l(3) 

250 IF Z*l THEN 90 

260 IF F<*,Z-1»0 THEN 90 

2?0 B(Kt1»Z-l 

280 NEXT K 

290 F1A,B)"9-2»I-J 

300 FOR KM TO » 

310 F(A,B(K*1>>-F(A,B> 

320 NEXT K 

330 GOTO 999 

349 A(l)-A 

350 B1D-B 

3*0 A(21-0:A(3)-0i»(2)-0iB(31-« 

3?0 FOR K-1 TO N 

310 IF fl>1 THEN 460 

390 IF A(K)-1 OR HKI-I THEN 450 

409 IF f(A(K)-l,S(K)-l»0 THEN 430 

419 IF F(A(K)-l,ISI)>0 ANB F(AlK)-1,*(K))-f («(K),B<X)-1 ) THEN 430 

420 A(K+1»AIK)-I 

439 B(H*I)»B(K)-I 

440 60TO 330 
430 H-2 

4*9 IF A(1)>A(2) ANB A(1)>A(3) THEN Zl-A(1> 

4*2 IF A(2)>A(1) ANB A121>A(3) THEN Z1'A(2) 

4*4 IF A(3)>A(I> ANB A(3)>A(2) THEN Z1"A(3) 

470 IF B(1)>B(2) ANB B(t)>B(3> THEN Z2-B(!> 

474 IF l(2)>B(1) AMI l(?)>D(3) THEN 22-8(2) 

476 IF 8(3>>E(i) AND 1(3)>B(2) THEN Z2-B13) 

480 IF Z1>* OR Z2-6 THEN 90 

490 IF F(Z1«1,Z2*)»0 THEN 90 

3*0 If rill,Z2*t»l AMI F(Z1,Z2»W*F(21*1,Z2> THEN 90 

910 A(K*l)'2l*t 

320 KK»l)*Z2t1 

330 NEXT K 

349 GOTO 930 

559 *(l>>i 

3*0 A(2)-7ilt(3)'7 

370 FOR K-1 TO N 

389 IF H>1 THEN 440 

590 IF »<*>.* (HEM 439 

600 IF F(A(K)*l,B)>0 THEN 430 

410 A(KtM-A(K)*1 
420 GOTO *90 

430 N-2 

4*0 IF A(tKA<2) ANB AllXASt THEN Z«A(1) 

642 IF A(2XA(1) ANB A(2XA(3) THEN Z-AI2) 

644 IF A(3XA(1> ANB A(3KA(2) THEN Z-«(3) 
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430 IF Z'l THEN tO 

610 IF FC2-1,IJ>0 THE* 90 

670 AfK+lW-1 

610 NEXT K 

6*0 F(A,B>-f-2»I-J 

760 FOR K*1 10 M 

710 F(ACK*1),l)«F(A t *> 

720 NEXT K 

730 60T8 990 

740 A(I>«A 

750 B<1 >-> 

740 At2>*7iA<3W 

770 B<2)»0|»(3)»0 

780 FOft KM TO It 

79© If »>1 THEN 870 

8M IF *<K)*4 Oft MKM THE* 860 

810 IF F(A4K>*1,»(K)-1»0 THEN 860 

820 IF F(A<K> + l r KK>»0 Ml F(A(IU*1 ,9(K> )-f <A<Kj,B(K)-1 > THEN 860 

830 AtK+IMAKHI 

840 ltKt1)*|(K)-l 

830 88T0 940 

860 11-2 

870 IF ftCI)<A<2> AND AUKA<3> THEM ZI"A(1) 

A(2KA<1) AM II2)<*<3> THEN Z1=A<2) 

AOXAU) AH8 A(3HA<2) THEN Z1-AC3) 

l(1»IC2> AH8 l(1)>8<3) THEN 22=l(t) 

fi(2))ill) AN» l(2»»(3> THEN K»l<2) 

B(J»B<1> AM B(3)>tt2) THEN 22»)<3I 

71*1 01 22-4 THEN 90 

FtZ1-1,Z2tI»0 THEN 90 

FfZ1 t 22+1l>0 AN8 F(21 f Z2*1)-f(Zf~1,Z2> THE* 90 

l(K*1)«Z2*I 
wtrr | 

FCA,I)»9-2M-J 
FBR K-1 TO H 
F(A<Kt1) P l(M1t)-F(A f B) 
NEXT K 



IF 
IF 
IF 
IF 
If 
IF 
IF 
IF 



872 

874 

810 

812 

814 

890 

9*0 

910 

920 

930 

940 

950 

960 

970 

910 

9f0 NEXT J 

1000 NEXT I 

print 
print "the 

Pf INT J HA5 
FRIST 
FOR I«1 TO 
FOR >1 TO 



1010 
1020 
1030 
1140 
1050 
1C51 
1032 
1053 
1034 
1060 



FOLLOUING CODE OF 
KCH CAPTURED BUT 

t 



TH£ 
HOT 



BAD GUTS' 
DECODED*" 



FLEET HSFOSniOH* 



MU»J>*F(J,U 
NEXT J 
NEXT I 

FOft 1-1 TO 6 

1061 FOR J*1 TO 6 

1062 PRINT H(I»J); 

1063 NEXT J 

1064 HUNT 

1065 NEXT I 
107O PR!** I 
1080 PRINT 
1090 PRINT 
t t CO PKIN1 



BE-COBE IT AHB USE IT IF YOU CAN 11 

'OUT KEEP THE BE-C0DIN8 NETHOD A SECRET." 



1110 

1111 

1112 

1113 

1114 

1120 

1121 

1122 

1130 

1140 

1150 

1140 

1170 

1160 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1170 

1260 

1290 

13O0 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

13BO 

1390 

1400 

1410 

1420 

1430 

1440 

1430 

1440 

1470 

1480 

1490 

150O 

1510 

1520 

1330 

1340 

1330 

1340 

1570 

1510 

1390 

1400 

1410 

1420 

1*30 



FOR I»t TO 4 

FOR JM TO 6 

H(I f J1-0 

NEXT 4 

NEXT I 

FOR 1-1 TO 3 

LCIMO 

NEXT I 

C41)*2:C<2>«] 

C<3)*1iC44)M 

C45»0iC(4)-O 

1*41 irt 

PRINT "START SAKE" 

IttPNI X 9 1 

IF X<1 Oft X>6 OR IHT(X)OAM(XI TH£« 1210 

IF T>0 AHB T<7 AMI UT(T)«A8StT) THEN 1230 

PRINT -IRVALIB INPUT. TRY AGAIN." 

1010 1180 

R»7-T 

C»X 

IF F<ft»C>>0 THEN 1290 

S«St1 

PRINT "SPLASH! TRY AfiAIN." 

60TQ 11 BO 

IF C(F<R,C>)<4 THEN 1340 

PRINT "THERE USED TO BE A SHIP 

PRINT "SPLASH! TRY A8AIN," 

8-8*1 

90TG 1180 

IF NI8,C»0 TNEN 1420 

K'K+1 

RM,Gl-rt« t Cl 

PRINT "A DIRECT HIT ON SHIP MUHBER "JFIA.O 

C<F(R,C>)"C<F(R t C))*1 

IF C(F(R,C)»H THEN 1470 

PRINT "TRY AGAIN." 

GOTO 1180 

PRINT "YOU ALREABY PBT A HOLE IN 3NIP HIWBER";F<R,C>; 

PRIN1 "AT THAT PRINT," 

PRINT "SPLASH! TRT ASAIN. " 

3*3*1 

GOTO 1180 

LUINT<F(R,C)-l>/2)*U«LUIHT(F4R,CHU/2>*n+1 



AT THAT POINT, BUT YOU SUNK IT. 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



"AND YOU 
"SO FAR* 



SUNK IT. HURRAH FOR THE GOOD GUTS.' 
THE BAI BUYS HAVE LOST" 
LC1>;"DESTR0YEft($>, •JLt2i;"C«UIS£R(S) f AND * 
L(3»;"AIRCRAFT CARRIER(SK* 
"YOUR CURRENT SPLASH/HIT PATIO IS";S/H 

IF (LU)tLf2)*L(3)K6 THEN 1160 

PRINT 

PRINT "YOB HAVE TOTALLY UIPED OUT THE BAI BUYS' FLEET 1 

PRINT "UITH A FINAL SPLASH/HIT RATIO QF";S/H 

IF S/H>0 THEN 1590 

PRINT "CONGRATULATIONS — A DIRECT HIT EVERY TINE*" 

PRINT 

PRINT "**•*•» ******* ************ **t" 

PRINT 
BOTO 50 
ERI 
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Blackjack 



This is a simulation of the card game 
of Blackjack or 21, Las Vegas style. 
This rather comprehensive version 
allows for up to seven players. On each 
hand each player may get another card 
(a hit), stand, split a hand in the event 
two identical cards were received or 
double down. Also, the dealer will ask 
for an insurance bet if he has an ex- 
posed ace. 

Cards are automatically reshuffled 
as the 51st card is reached. For greater 
realism, you may wish to change this to 
the 41st card in Line 110. Actually, 
fanatical purists will want to modify the 
program so it uses three decks of cards 
instead of just one. 

This program originally surfaced at 
Digital Equipment Corp.; the author is 
unknown. 



mt 



BLACKJACK 
CREATIVE CONFUTING MRBISIOUN, NEW JER9EY 

DO IQU UAHT INSTRUCTIONS? YES 

THIS IS THE 6ANE OF 21. AS HIK AS 7 PLATERS HAT PLAT 
QANE. ON EACH DEAL, SETS WILL BE ASKED FOR, AMD THE 
PLAYERS' SETS SHOULD IE TYPED IK. THE CARDS MILL THEN B£ 
IEAIT, AND EACH PLATER IN TURN PLATS HIS HANI. THE 
FIRST RESPONSE SHOULD RE EITHER 'I', INDICATING THAT THE 
PLAYER IS DOUBLING DOUH, '8', INDICATING THAI HE IS 
STANDING, 'H', INDICATINfl HE HANTS ANOTHER CAID, OR '/', 
IABICATINQ THAT HE UAMTS TO SPLIT HIS CAfitS. AFTER THE 
INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE 'S' OR 
-H', UNLESS THE CARDS UERE SPLIT, IN WHICH CASE DOUILIM 
DOWN IS A6A1M PEUIII1EI. IN ORDER TO COLLECT F« 
BLACKJACK, THE INITIAL RESPONSE SHOULD K '5'. 
NUHIER DF PLAYERS* 2 
RESHUFFLES 



SETS 




H 1 T 200 




• 2 T 130 




PLAYER 1 2 


DEALER 


? A 


9 


B 4 




PLAYER 1 T S 




TOTAL IS 17 




player 2 t S 




TOTAL 15 1* 




DEALER HAS A 3 COHCEAUD FOR A 


DRAUS fi ...BUSTED 


PLAYER 1 VMS 


200 TOTAL* 200 


PLAYfcR 2 UlrfS 


130 TOTAL- 150 


SCALER'S TDTAL* 


-330 


SETS 




1 1 I 300 




1 2 T 700 




PLATE* 1 2 


DEALER 


2 I 


2 



TOTAL OF 12 



PLATER 1 T H 






RECEIVED A 3 


HITt S 




TOTAL IS 15 






PLAYER 2 T H 






RECEIVES A 3 


HITt s 




TOTAL IS 1? 






DEALER HAS A 


J CONCEALED FOR A TOTAL OF 12 


IRAUS 1 ... 


MUTED 




PLAYER 1 WINS 


300 TOTAL* 


f 300 


PLAYER 2 UIM3 


200 TOTAL » 350 


DEALER'S TOTAL 


"850 




BETS 






II 1 ? 300 






I 2 f 500 






PLATER 1 2 


DEALER 




K 5 


4 




* t 






PLAYER 1 t H 






RECEIVED A J 


...DUSTED 




PLAYER 2 T H 






RECEIVED Art A 


HITt H 




RECEIVED A 7 


...DUSTED 




DEALER HAD ft 2 COKCALEJJ 


i B 


PLAYER 1 LOSES 


SOO TOTAL' 





PLATER 2 LOSES 


500 TOTAL- 


-150 


DEALER'S TOTAL' 


< 130 




BETS 






• 1 1 300 






• 2 T 30 






PLAYER 1 2 


DEALER 




6 7 


7 




10 J 






PLATER 1 T S 






TOTAL IS U 






PLAYER 2 T S 






TOTAL 13 17 






DEALER HAS A 3 CCWCEALEO FOR A TOTAL OF 12 


DRAUS t —TOTAL IS 21 




PLAYER I LOSES 


300 TOTAL - 


-500 


PLATER 2 LOSES 


50 TOTAL* - 


200 


DEALER'S TOTAL- 


700 




BETS 






1 1 T 100 






1 2 T 100 






PLAYER 1 2 


DEALER 




A 8 


to 




1 






NO DEALER BLACKJACK, 




PLAYER 1 T S 






TOTAL IS 1? 






PLAYER 2 t S 






TOTAL 18 18 






DEALER HAS A 10 CCHCEALED FOR A TOTAL OF 20 


PLAYER 1 LOSES 


100 TOTAL* 


-600 


PLAYER 2 LOSES 


100 TOTAL- 


-300 


DEALER'S TOTAL- 


?«0 




BETS 






I 1 1 500 






■ 2 ? 300 






PLATER 1 2 


DEALER 




5 4 


3 




2 8 






PLAYER 1 1 H 






RECEIVED A 4 


MITT H 




RECEIVED AH A 


HIT? H 




RECEIVED AH A 


MITT S 




TOTAL IS 13 






PLAYER 2 t R 






RECEIVED A 10 


...WS7ED 




DEALER HAS A K CONCEALED FOR A TOTAL OF 13 


DRAIfS 7 —TOTAL IS 20 




PLAtER 1 LOSES 


500 TOTAL- 


-1100 


PLAYER 2 LOSES 


500 TOTAL- 


■SOO 


DEALER'S T0TAL= 


1900 




RESHUFFLING 






BETS 






1 1 1 500 






# 2 ? 300 







Ifl 



rum t 

3 

PLAYER 1 

itecEivci 

TOTAL 18 

PLAYER 2 

RECEIVED 

TOTAL IS 

DEALER 

3RAUS 

PLAYER 

PUYCR 

DEALER 

BETS 

I 1 ? 40O 

I 2 t 320 

PLATER 1 



HAS 

2 

1 

2 



2 
3 
3 

T K 

A 10 

It 

T D 

A j 

18 
A i 
7 
UIKS 

uins 
ioialj 



DEALER 
7 



TOTAL 0, 

SAKE AS XI *H ft 1ft X 



HUT S 



CONCEALED FOR A TOTAL Of 13 

...POSTED 

300 TOTAL-! 100 

1000 TOTAL* 700 
400 



DEALER 
10 



ttD DEALEff BLACKJACK. 



PLAYER 1 
TOTAL 18 
PLAYER 2 
RECEIVES 
TOTAL IS 
DEALER 
PEAUS 
PLATER 
PLATER 
DEALER 
BETS 

I 1 T 300 
I 2 t 300 
PLAYER 1 
4 
2 
HO DEALER 
PLAYER t 
RECEIVED 
RECEIVED 
PLAYER 2 
RECEIVED 
TOTAL IS 
DEALER 



T 5 
16 
T D 

A ? 
%9 

HAS A 2 
4 X 

1 WINS 

2 U1M8 



CONCEALED FOR A TOTAL OF 12 
...RUSTED 
400 TOTAL-700 
440 TOTAL* 1J40 



TQTAL—640 



2 
6 



SEALER 
J 



BLACKJACK. 
H 



? 
A 

AN 
1 H 

AN A HIT? S 
I? 
A 



HIT? H 
...H& TED 



/ CONCEALED FOR A TOTAL Of 17 



500 



PLATER 1 LOSES 
PLAYER 2 PUSHES 
DEALER'S T0YAL=-HO 



T0TAL=-12<H> 
TOTAL* 1340 



2 PRIM TADUnrSLACK JACK" 

4 PRINT TAB<15);"CREA!IVE COHPUHHG 

4 PRUfT;PRINT:PftINY 



NORKISTGUN, titv JERSEY*' 



20 
30 

40 
30 

60 

70 

n 

100 
110 
120 
130 
MO 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
230 
JOO 
310 
320 

no 

340 
350 
360 
370 
360 
390 
400 
410 
420 



DIN PU5 f 12) f O(t5J r C<52),0<52) r T<fl) f S(7> r t<15) 

DIN R(15) 

REM--P<I f J) IS THE JTN CARE IN HANB I, 0(1) IS TOTAL OF HAND 1 

REH--C IS THE DECK BEING DEALT FROfl. IS THE DISCARD PILE, 

RE**— Til) IS THE TOTAL FOR PLAYER I, 8(I> IS THE TOTAL THIS HANI) 

REtt—rOR PLAYER I t D(I) IS TH JET FOR HAHO I 

R£rt — ftCI J 15 THE LENGTH OF P(l,»] 

SOTO 1500 

REH--SUBROUHNE TO SET A CAR*. RESULT IS PUT IN X. 

If C<31 THEN 230 

PRINT "RESHUFFLING" 

FOR D-D TO 1 STEP -1 

C-C-1 

C<C)=DID) 

*I£XT D 

FOR C1*32 10 C STEP -1 

C2"!NT(RHDli>*(C1-C*1H#C 

C3*C<C2) 

CtG2J-C(C1> 

C<CI)=CJ 

NEXT CI 

X B G<C> 

C"C*I 

RE TURK 

RErt— SUBROUTINE TO EVALUATE HAND 1. TOTAL IS PUT INTO 

R£H«BfI). TOTALS HAVE THE FDLLOUING HEANING: 

REfl— 2-10., .HARD 2-10 
11-21. ..SOFT I t -21 
32-32. ..HARD 11-21 
334-,*.MJ9TGD 



REH— 

REH— 

REH-- 

0=0 

FOR 02=1 TO 

X*PII,02) 

60SUB 300 

NEXT 02 

0(1 J =0 

RETURN 



RU) 



5*0 REN—SUBROUTINE TO ADD CARD X Tfi 
510 XI=X: IF XOIO THEN XI = IOi REN 
320 PI-0U1 
530 IF Q>=11 THEN 590 
340 IF X>1 THEN 370 
5S0 0=0*11 
5(0 RETURN 
370 Q=01-1TMQ1>=11> 
580 RETURN 

590 Q=Q1-(0<=21 AND 01>21) 
600 tf Q<33 THEN 620 
610 Q=-1 
620 RETURN 

700 MR— CARD PRINTING SUBROUTINE 
710 RErt Ot DEFINED ELSEUHERE 
720 PRINT HIDi(Dt r 3<X-2 f 3); 
730 PRINT " "; 
740 RETURN 

750 REA--ALTERNATIVE PRINTIHG ROUTIHE 
740 PRINT ■ *;fil»tCi>$,3tX-l,2); 
770 PRINT ■ *; 
7*0 RETURN 

800 REfl— SUDR0UT1NE TO PLAT OUT A HAND. 
810 REH--NQ SPLITTING OR BLACKJACKS ALLOWED 
820 Ht*5 
B30 GOSUB 1410 
840 H1=3 

850 ON H GOTO 930,930 
860 GOSUB 100 
870 8<I)"BU)*2 
880 PRINT "RECEIVED A"; 
890 GOSUB 700 
oosue iioo 

IF 0>0 1HEN GOSUB 1300 

RETURN 

GOSUB 1320 

RETURN 

GOSUB TOO 

PRINT 'RECEIVED A*; 

GOSUI 700 

GOSUB 1100 

IF 0<0 THEM 940 

PRINT "KIT"; 

GOTO 830 

REN— SUBROUTINE TO ADD A CARD TO ROU I 

R(t)>RUJ + 1 

F(I|R(I))«i 

O=0(!> 

GOSUB SOO 

0<I)=Q 

IF 0>=0 THEN 1190 

PRINT "...BUSTED" 

GOSUB 1200 

RETURN 

REft— SUBRUUTIHE 

IF W)<>9 THEN 

RETURN 

0=1+1 

D(Dl=P(I,ft<I>) 

Ri!J*R(II-1 

GOTO 1210 

REN—PRINTS TOTAL OF HANI I 

PRINT 

Aft=OU): GOSUB 3400 

PRINT MCTAL IS";AA 

RLTURN 

REN— SUBROUTINE TO READ REPLY 

REft If DEFINED ELSEWHERE 

INPUT Hit HI'LEFTI<H$|I> 

FOR H H 1 TO HI STEP 2 

IF Hf«KI»SClf»H,1) THEN 1480 

NEXT H 

print *type H ;flii»af,i t Ki-i); H or M ;ftiDt us ,hi»2);* 

GOTO 1420 

H=(H+1)/2 

RETURN 

REN— PROGRAM STARTS HERE 

REN— INITIALIZE 



900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

120O 

1210 

1220 

1230 

1240 

'1230 
1260 
1300 
1310 
1320 
1323 
1330 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1310 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 



TU DISCARD ROU I 
1230 



eL£AH£* 
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D*="K A2-3456 7N 89 10 JQK" 
lt="fl,S*l,/ r - 

FOR 1=1 TO 13 

FOR J=4*I*3 TO 4*1 

DtJI-I 

NEXT J 

NEXT I 

0=52 

PRINT "BO YOU UAHI INSTRUCTIONS"; 
INPUT H* 

IF LEFT*(HS t 1>="W THEN 1760 
PRINT "THIS IS THE BANC OF 21. 
PRINT "GAttE. OH EACH DEAL, BETS 
PRINT PLATERS' BETS SHOULD BE 



T)\\ 



AS NMV A3 7 PLAYERS HAY FLAY 
UILL BE ASKED FOR* AN» THE" 
TYPED IN. THE CARDS UILL THEN BE 



16/0 PRINT "DEALT, A*J EACH PLATER IK TURN PLATS HIS HAND, THE 
1680 PRINT -FIRST RESPONSE SHOULD BE EITHER '|' INDICATING IHA 

lilt It}** " flAr " IS D0U8LW « "UK, 'S* f INDICATING THAT HE IS 
700 PUI "SIAWDIHG, 'H' y INDICATING HE HANTS ANOTHER CARB, OR 
1710 PTIII "INDICATING THAT HE UAHTS TO SPLIT HIS CARDS. AFTER 
1720 PRINT "INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD K ' 
T730 PRIHT -'»', UNLESS THE CARDS HERE SPLIT, IN UHICH CASE DOU 
1740 PRIHT "DOUM IS AGAIN PERMITTED, IN ORDER TO COLLECT (QR* 
1730 PRIHT BLACKJACK, THE INITIAL RESPONSE SHOULD BE S," 
1740 PRINT *NUHBER OF PLATERS": 
1770 INPUT If 

1780 If N<1 OR H>7 OR JOINTCNI THEN 1?<50 
1790 FOR 1*1 TO 8; fdJ-O: NEXT I 
T800 D1*N*1 

t8lO IF 2*D1>C>=52 THEN GOSUB 120 
1820 IF C=2 THEN C"C-1 
1830 FOR 1-1 TO Rt ZU)»0: U£XT I 
1840 FOR 1*1 TO 15: 8(11*0: NEXT I 
1850 FDR 1*1 TO 15: 0U)*O; NEXT I 
1860 FOR I«t TO 7: S(I)"Or NEXT I 
1870 FOR 1=1 TO 13: *<I)*0: NEXT I 
1830 PRINT "lEIS 1 

1890 FOR 1=1 TO N: PRItfT "**;#; INPUT 2(1): NEXT I 

TfOO FOR 1*1 TO N 

1910 IF ZUK'O OR Z(I)>500 THEN I860 

1920 HIWIII 

1930 REIT I 

INI PNINT "PLATER*; 

1950 FOR 1=1 TO N 

1960 PRIHT IS - "! 

1970 HEXT I 

T?80 PRIH1 -DEALER" 

1990 FOR J»1 TO 2 

2000 PRINT TABC5); 

2*10 FOR 1*1 TQ HI 

2820 GGSUS 100 

2030 P(I V JM 

2040 IF J- 1 Oft ION THEN UOSUB ?50 

2050 NEXT I 

2060 PRINT 

2070 HEXf J 

2080 FOR i»| TO 01 

2090 R(I>*2 

2100 NEXT I 

2110 REN—TEST FOR INSURANCE 

2120 IF P<D1,1)>1 THEN 2240 

2130 PRINT "ANT INSURANCE*; 

2M0 INPUT H$ 

2130 IF LEFT*IH*,1K>"Y" WIH 2240 

2140 PRINT "INSURANCE SETS* 

2170 FOR I=t TO N: PRINT "■"-I;: INPUT 2(l)i NEXT I 

2180 FOR 1=1 TO N 

2190 If ZdKO OR ZU)>BCI>/2 THEN 2160 

2200 KM I 

2210 FOR 1=1 TO n 

2220 Sm=Z<]>t(3»{-(Pt01 r 2?>=10>)-1) 

2230 NEXT I 

3240 REN— TEST FOR DEALER BLACKJACK 

2250 LI»li L2=1 

2252 IF P(B1,1M AND PCD1 r 3)>9 THEN LI'O: L2=0 

2253 If P(D1 r 2)=1 AND f(81 t t)>f THEN LIO: L2=0 

2254 If L1O0 OR L2O0 THE* 2320 



r THE" 
ii 

THE » 
S' OR' 4 
BLJNO" 



2260 PRINT "DEALER HAS A-;HiB* <D$,3*PCD1 ,2)-2 t J>;* IN THE 

2270 PRJHT "FOR BLACKJACK* 

2280 FOR 1=1 TO Dl 

2290 GOSUB 300 

2300 NEXT I 

2310 GOTO 3140 -- a 

2320 REN-NO DEALER BLACKJACK 

2330 IF P<D1 r 1)>! AND P(B1 t t]<10 THEN 2350 

2340 PRINT "NO DEALER BLACKJACK.* 1 

2350 REfl — MOU PLAT THE HANDS 

2360 FOR 1=1 TO N 

2370 PRINT 'fUYEff- 4 ;!; 

2380 HI =7 

2390 60SUB 1410 

2400 OH H GOTO 2550,2410, 2510,2*90 

2410 REH— PLATER UANTS TO STAND 

2420 GOSUB 300 

2430 IF B(IK>21 THEH 24*0 

2440 PRINT "BLACKJACK" 

2450 S(I)=S(I>+K5t|(I) 

2460 BUI=0 

2*70 6QSUD I2O0 

2480 60TO 2900 

2490 GOSUB 1320 

2500 GOTO 2900 

2510 REN— PLATER UAHIS TO DOUBLE DOWN 

Z520 GOSUB 300 

2530 GOSUB 860 

2540 SOTO 2900 

?550 REH— PLAYER WANTS TO BE NIT 



HOLE 



2560 GOSUB 300 

2570 HI =3 

2580 GOSUB 950 

2590 GOTO 2V00 

2600 REfl-PLATER UANTS TO SPtlT 

2610 L1.p(I,U; IF PfI,1)>1Q THEN L1=10 

2412 L2=*iI t 2I: IF P(I ( 2)>10 THE* L2=-10 

2614 IF L1=L2 THEN 2640 

2620 PRINT "SPLITTING HOT ALLOUED." 

2630 GOTO 2370 

2640 REH— PLAT OUT SPLIT 

2650 tlsltpf 

2660 R(I1)«2 

2670 P(I1,1)-P(U2> 

2680 B<I*>D1>-B([> 

2690 GOSUB 100 

2700 PRINT "FIRST HAND RECEIVES A"; 

2710 GOSUB ?00 

2720 P(I,2)=X 

2730 GOSUB 300 

2740 PRIHT 

2750 OOSUB 100 

2760 PRIHT -SECOHfl HAAO RECEIVES A"; 

2780 60SUB 700 

2790 PU t 2)*X 

2800 GOSUB 300 

2810 PRINT 

2820 I»I1-I)1 

2830 IF P(I,!)*1 IH£« 2V08 

2840 REfl—NOH PLAT THE TUO HANDS 

2850 PRIHT *HAND";i-U>DU; 

2860 SOSUB 800 

2870 I>I*D1 

2880 IT 1=11 THEN 2850 

2B90 I=I!-D1 

2900 NEXT J 

2910 GOSUB 300 

2920 REH"1EST FOR PLAYING DEALER'S HAND 

2930 FOR 1=1 TO H 

2940 IF RU)>0 OR R(I*D1»0 THEN 3010 

2950 NEXT I 

2960 PRIHT "DEALER HAD A"; 

2970 X=P<D1,2) 

2980 6DSUB 700 

2990 PRINT - CONCEALED," 

3P0O GOTO 3140 

3010 PRINT "DEALER HAS A-;NIBXDS,3*P(D1 ,2)-2,3) *" CONCEALER 
3020 I»D1 

3030 AA=<HU: GOSUB 3400 

3035 PRINT 'FOR A TOTAL 0F";AA 

3040 IF AA>16 THEN 3130 

3050 PRINT -DRAUS"; 

3060 OOSUB 100 

3070 GOSUB 730 

3080 GOSUB 1100 

3090 AA=0: GGSUB i400 

3(93 IF 9)0 AND AA<17 THEN 3060 

3100 8CH*Q-(B«t>/2 

3110 IF 8<0 THEN 3140 

3120 AA=Q: GOSUB 3400 

3125 PRI*T •-« TOTAL IS";AA 

3130 PRINT 

3140 REN—TALLT THE RESULT 

3150 ft£H 

3160 ZI*"LOSES PUSHES WINS " 

3170 FOR E"1 TO N 

3180 AA-OU); GOSUB 3400 

3162 AB-QU + DI): GGSUB 3410 

3184 AC-8fB1): GOSUB J420 

3IS6 Sa)=S(IJ+8{I>f38H(AA-AC)*8(I*D1)tSG»l(AB-AC> 

3188 BiItD1>=0 

3200 PRINT "PLATER"*;!; 

3210 PRINT i1II»<ZI,SGN(S(l>J»6*7.6>:- "I 

3220 IF 8(1)00 THEN 3250 

3230 PRIHT • 

3240 6DT0 3260 

32S0 PRINT ABS($<I)); 

3260 TU)=T1IH$(I) 

3270 PRINT *'TOTAL«";TU) 

3280 GOSUB 1200 

3290 T(01>«T(B1)-5(1) 

3300 1=1+11 

3310 GOSUB 1200 

3320 1*1 -Ot 

3330 NEXT I 

3340 PRINT "DEALER'S T0fAl»"jT<l1] 

3350 GOSUB 1200 

3360 GOTO 1810 

3400 AA=AA+11ii(AA>*22*s RETURN 

3410 AB=ABtUt(AB>=22J: RETURN 

3420 AC=ACHf*(AC;=22>; RETURR 



>* ■ 
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BOMBARDMENT is played on two, 5x5 
grids or boards with 25 outpost 
locations numbered 1 to 25. Both you 
and the computer have four platoons of 
troops that can be located at any four 
outposts on your respective grids. 

At the start of the game, you locate 
(or hide) your four platoons on your 
grid. The computer does the same on 
its grid. You then take turns firing 
missiles or bombs at each other's 
outposts trying to destroy all four 
platoons. The one who finds all four 
opponents' platoons first, wins. 

This program was slightly modified 
from the original written by Martin 
Burdash of Parlin, New Jersey. 

IONIARDHEKT 
CREATIVE GOHPUTINO NORRISTOUN, NEU JERSEY 



UHEBE DO YOU WISH TO FIRE TOW MISSILE? tl 
HA, HA TOO HISSED. NY TURK NQU 



I HISSED YOU, YOU DIRTY RAT. I PICKED 13 . 



WHERE 00 YOU DISH 10 FIRE YOUR MISSILE* * 
HA, HA YOU HISSED. HY TURN HOH 



I HISSED YOU, YOU DIRTY RAT. I PICKED 15 . 



WHERE 00 YOU UISH 10 FIRE YOUR MISSILE* 23 
HA, HA YOU HISSED. HY TURH H0U 



YOUR TURN. 



YOUR TURK. 



! HISSED YOU, YOU BIRTT RAT. I PICKED 



12 . YOUR TURN. 



YOU ARE OH A IATTLEFIEID UITH 4 PLATOONS AHD YOU 
HAUE 25 OUTPOSTS AVAILABLE WHERE IHET HAY IE PLACED. 
YOU CAR OHLY PLACE ONE PLATOON At AHY ONE OUTPOST. 
THE CONFUTE* DOES THE SAME UITH ITS FOUR PLATOONS. 

THE OBJECT OF THE SAME IS 10 FIRE MISSILES AT THE 
OUTPOSTS OF THE COMPUTER. IT UIIL DO THE SAHE TO YOU. 
THE ONE WHO DESTROYS ALL FOUR OF THE EMERY'S PLATOONS 
FIRST IS THE WINNER. 



WHERE DO YOU UISH TO FIRE YOUR NISBlLE* 3 
HA, HA YOU HISSED. HY TURN *0U 



I HISSED YOU, YOU DIRTY RAT. I PICKED 1 . YOUR 



UKERE DO YOU UISH TO FIRE YOUR MISSILE' 20 
HA, HA YOU MISSED. MY TURN NOU 



TURN. 



600D LUCK... AND TELL US WHERE YOU WANT THE WDUS SENT! 
TEAR OFF MHIX AND USE IT TO CHECK OFF THE NUMBERS. 



I GOT TOU. It WON'T BE 10*6 MOW. POST 14 UAS HIT 
YOU HAVE ONLY THREE OUTPOSTS LEFT. 



WHERE DO YOU UISH TO FIRE YOUR MISSLLET 21 
HA, HA YOU MISSED. HY TURN MOW 



1 


2 


3 


< 


3 


ft 


7 


1 


1 


10 


!1 


12 


13 


1* 


15 


16 


12 


IB 


1* 


20 


21 


22 


21 


24 


25 



I flISKI T0U t TOU DIRTY RAT. I PICKEI 20 , TOUR TUfW. 



wm do rou wish to fire tour mssue? 23 

TOU GOT ORE OF HY OUTPOSTS. 
ORE DOUM, THREE TO 00 



I HISSED YOU, TOU DIRTT RAT. I PICKED 8 , YOUR TUMI* 



WHAT ARE TOUR FOUR POSITIONS? I0,*,U,21 

WHERE 10 TOU UISH TO FIRE YOUR HISSILCT 3 
HA, HA TOU HISSED. HT TURN NOU 



I HISSED TOU, TOU DIRTY RAT. I PICKED 21 » TOUR TURN H 



WHERE 00 TOU UISH TO FIRE TOUR HISSILE? 3 
HA, HA TOU HISSEI. HT TURH HOW 



I HISSED TOU, YOU DIRTY RAT. I PICKED 23 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE TOUR MSSUE? 13 
HA, HA TOU HISSED. HT TURH HQU 



WHERE DO TOU UISH TO FIRE TOUR HISSUE? U 
HA, HA YOU HISSED. HT TURH MOW 



I HISSED T0U f TOU DIRTY RAT. I PICKED 4 t TOUR TURN. 



WHERE SO TOU UISH TO FIRE TOUR H1SSILE? 13 
HA, HA YOU HISSED. HY TURM NQU 



I HISSED TOU, TOU DIRTT RAT. I PICKED 6 . TOUR TURH. 



UHERE 10 TOU UISH TO FIRE TOUR MSSUE? 14 
TOU 80T ORE OF HY OUTPOSTS. 
TWO DOUtl, TUO TO GO 



I HISSED TOO, YOU DIRTY RAT, I PICKED 2? , YOUR TURN, 



I OOT TOU, IT UOH'Y DE LONG ROU. POST 10 UAS HIT, 
TOU HAVE OMLT TUO OUTPOSTS LEFI. 
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UHERE BO YOU WISH TO FIRE TOUR HISSlLET 13 
HA, HA YOU HISSED. HY TURN HOU 



UHERE DP YOU WISH TO FIRE YOUR HISSlLET 3 
HA, HA YOU H1SSEB. NY DIM NOW 



1 rtlSSEO YOU, YOU DIRTY RAF, I PICKED 19 . YOUR TURN. 



I HI3SED YOU, YOU DIRTY RAT. I PICKED 3 , YOUR TURN. 



WHERE DO YOU WISH TO FIRE YOUR HISSlLET 12 
HA, HA YOU HISSED, KY TURN NOLI 



UHERE DO TOU UISH TO FIRE TOUR MISSILE? A 
M T HA YOU HISSED* HY TURN *OU 



I HISSED YOU, YOU DIRTY RAT, 1 PICKED 7 , YOUR TURN* 



I MISSED TOUt YOU DIRTY RAT, I PICKED 1* , YOUR TIJRM. 



WHERE DO YOU UISH TO FIRE TOUR HISSlLET II 
HA, HA YOU HISSED- HY TURN HOU 



WHERE BO TOU WISH TO FIRE YOUR HISSlLET 22 
HA, HA YOU HISSED. HY TURN HOU 



I DOT YOU, IT UON'T BE LO*G HOU. POST 24 UAS HIT, 
YOU HAVE ONLY ONE OUTPOST LEFT, 



WHERE 10 YOU WISH TO FIRE YOUR HISSlLET 1 
HA, HA YOU HISSED, HY TORN HOU 



I HISSED YOU, TOU DIRTY RAT, 1 PICKED 2 , YOUR TURH, 

WHERE 10 YOU WISH TO FIRE TOUR MS5ILE? 2 
YOU GOT ONE OF NT OUTPOSTS. 
THREE BOWK, ONE TO DO 

I HISSED YOU, YOU DIRTY RAT. I PICKED 18 . YOUR TURN. 



1 HISSED YOU, YOU DIRTY RAT. I PICKED 25 . YOUR TURN. 



UHERE DO YOU UISH TO FIRE YOUR HISSlLET 12 
MA, HA TOU HISSED. HY TURH HOU 



I HISSED YOU, YOU BIRTY RAT. I PICKED 11 . YOUR TURH, 



WHERE DO YOU UISH TO FIRE YOUR HISSlLET 9 
HA, HA TOU HISSED. HY TURK MOW 



YOU'RE DEAD, YOUR LAST OUTPOST UAS AT 9 . HA, HA, HA. 
BETTER LUCK NEXT TME. 



10 PRINT TAB<28);"tOHDARW1EHT" 

20 PRINT TABU3);"CREATIVE C0HPUTIH8 

30 PRINT =PRINT:PRINI 



HORRISTOUN, HEW JERSEY" 



100 

no 

120 
130 
13S 

MO 
150 
160 
170 
ISO 
190 
200 
210 
220 
260 
270 
280 
2fO 
300 
350 
380 
390 
4*0 
410 
420 
430 
440 
450 
460 
470 
480 
490 
4*5 
500 
510 
520 
330 
540 
330 
560 
570 
373 
580 
3?0 



-YOU ARC 
"HAVE 25 



'YOU 
'THE 



■THE OBJECT OF THE SAKE IS 
"OUTPOSTS OF THE COHPUTER. 



THE ONE UNO DESTROYS 
FIRST IS THE WINNER. 1 



6Q0B LUCK... AND TELL US UHERE YW WANT THE BODIES SENT! 1 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

FOR R 

DIH 11(100) 

FOR R-1 TO 5 

1MI-I>i3*l 

PRINT !»!♦!, 

NEXT R 

FOR R-1 TO 10: PRINT; 

C-INT(RND(1)*25)+1 

MIftT<RND<Ut23)+1 

E»W<RNIC1)+2S)*1 

F-IHT{ftN&U>*25H1 



OH A DATUEFIELD WITH 4 PLATOONS AND YOU" 
OUTPOSTS AVAILABLE WHERE THEY HAY BE PLACED.* 
CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST. 1 ' 
COMPUTER BOES THE SAKE WITH ITS FOUR PLATOONS," 



ALL 



TO FIRE HISSLE5 AT THE" 

IT WILL 00 THE SAKE TO YOU.' 
FOUR OF THE ENEHY'S PLATOONS' 1 



"TEAR Off HATRIX AND USE 
1 TO 3: PRINT: NEXT R 



IT TO CHECK OFF THE NWBERS. 1 



[+Z.1+S.IH 



NEXT R 



IF 
IF 
IF 

IF 
IF 
IF 



C=E 
C"f 
R-E 

B=f 

E»F 

PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
IF Y«C 
IF Y-0 
IF Y»E 
IF T-F 



THE* 
THEN 
THEN 
THEN 
THEN 
THEN 
UHAT 



390 
400 
410 
400 
410 
410 
ARE 



YOUR FOUR POSITIONS"; 



G.H ? K,L 



WHERE DO YOU WISH TO FIRE YOUR HJSSLE" 



THEN 
THEN 
THEN 

THEN 



710 
710 
710 
710 



60T0 630 

H-INT<R«B(1)*25J*1 

GOTO 1U0 

IF X-0 THEN 920 

IF X-H THEN 920 



600 
610 
630 
630 
d40 
470 



IF X«L THEN 920 
If X*t THEN 920 
BOTO 670 



710 
710 
730 
740 
750 
760 
770 
780 
810 
820 
830 



PRIRT 
PRINT* 
PRINT ' 
PRINT: 
0-0*1 
IF Q»4 
PRINT ' 
IF 0=1 
IF Q*2 
IF 0=3 
PRINT ' 
PRINT: 
PRIM ' 
PRINTS 



HA, HA YOU HISSED. HY TURN NOW 1 ' 
PRINT: OOTO 370 

I HISSED YOU, YOU DIRTY RAT. I P]CKED";H;". YOUR TURN/ 
PRINT; OOTO 500 



BUT I'LL GET TOU WHEN" 1 



THEN 

YOU OOT ONE OF HY OUTPOSTS.* 

THEN 770 

THEN 810 

THEN 050 

ONE DOWN, THREE TO 80'* 

PRINTi OOTO 570 

TWO DOWN, TUO TO GO" 

PRINT: OOTO 370 
PRINT "THREE DOWN, ONE TO 60- 
PRINTj PRINT: GOTO 370 
890 PRIM "YOU 601 HE, I'H OOIRQ FAST. 
900 PRINT " Y TRANSISTORS SECUPERA E" 
910 OOTO 1235 
920 2-1*1 

930 IF 2*4 THEN 1110 

940 PRIN! *I 60! YOU. IT UOH'T BE LONG HOU. POST";X;"IIAS HIT." 
9S0 IF 1*1 THEN 990 
960 IF Z-2 THEN 1030 
970 IF Z-3 THEN 1070 

990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT." 
1C00 PRINT; PRINT; OOTO 300 

1030 PRINT a YOU HAVE ONLY TUO OUTPOSTS LEFT." 
1040 PRINT; PRINT; OOTO 300 
1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT." 
1080 PRINTi PRINT; OOTO 500 

1110 PRINT •YOU'RE DEAD. YOUR LAST OUTPOST MS AY*;X; fc . HA f HA, HA/ 
1120 PRINT "BETTER LU€K NEXT TINE." 
1130 60T0 1233 
1160 P*P»I 
1170 N»P-1 
1180 FOR T-1 TO N 
1190 If H-NITJ THEN 370 
12*0 NEXT T 
1210 X-H 
1220 N(P»-rt 
1230 OOTO 580 
1233 END 
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In this program, you fly a World War 
II bomber for one of the four 
protagonists of the war. You then pick 
your target or the type of plane you are 
flying. Depending upon your flying 
experience and the quality of the 
enemy defenders, you then may ac- 
complish your mission, get shot down, 
or make it back through enemy fire- In 
any case, you get a chance to fly again, 

David Ahl modified the original 
program which was created by David 
Sherman while a student at Curtis Jr. 
High School, Sudbury, Massachusetts, 



80HDS AUAY 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 

YOU ARE A PILOT IN A WORLD UAR II B0H8ER. 

UHAT SIDE ~ ITALYO), ALLIES(2>, JAPAH<3>, 0ERKAW14P 2 

AIRCRAFT -- LIBERATORH), l-2*<2>, 1-17(3), UWCASTER(4J* 4 

YOU'RE BUSTING A GERHAH HEAVY VATER PLANT IN THE RUHR. 

KOU HANY AISSJOUS HAVE YOU FLOUH* 23 



PRIHT "YOU ARE A PILOT IK A UORLD UAR II B0HBER/ 



DIRECT NITIMI 43 KILLEB. 
NIS5I0N SUCCESSFUL, 



MOTHER HI5SI0H CY OR N>* Y 

YOU ARE A PILOI IN A UORLD WAR II BOMBER. 

UHAT S1BE — ITALY<t) t ALL!ES(2), JAI>AN<3>, GERHAKYU)? 3 

TDU'RE FLYING A KAHIKAZE HISSIGH OVER THE USS LEXINGTON, 

TOUR FIRST KAHIKAZE MSSIONiY OR M>? Y 

» ♦ * ♦ BOON • * • • 

YCU HAVE BEEN SHOT DOVN 

BEARLY BELOVED, U£ ARE GATHERED HERE TODAY TO PAY OUR 
LAST TRIBUTE... 



ANOTHER MSSEOtf (Y OR N>! Y 

YOU ARE A PILOT IK A WORLi WAR It BOMBER. 

UHAT SIBE — ITALYO), ALLIES<2>, JAPAH<3», 0ERKAKY<4>? 1 

YOUR TAR9ET - ALBAHIA<W, GREECE(2>, NORTH AFRICA(3>? 1 

SHOULD BE EASY « YOU'RE FLYING A NAZI-HADE PLANE, 

HGU NAHT MISSIONS HAVE YOU FLOUH? 200 

MISSIONS, HOT HUES,., 

150 MSSTOHS IS HIGH EVEN FOR CLD-TIHERS. 

NOU THEN, HOU HANY HISSIOHS HAVE YOU FLOlffl? 20 



10 
20 

2: 

25 

JO 

40 

42 

45 

50 

60 

90 

?0 

110 

T20 

122 

125 

130 

150 

170 

1*0 

200 
205 
207 
210 
215 
220 
230 
23? 
235 
230 
260 
270 
280 
205 
2*0 
2*2 
2*5 
2*7 
3*0 
305 
310 
320 
325 
327 
330 
335 
340 
345 
347 
350 
353 
357 
360 
365 
370 
380 
384 
386 
387 
3*0 
3*5 



ITALYd), ALLKSC2), JAPAN (31, GERHAHY<4>";A 



25 



10 



INPUT "UHAT SIBE — 

IF A>0 AMP A<5 TKER 

PRINT 'TRY AGAIN...* : GOTO 

OH A 60TO 30, 110, 200, 220 

INPUT •TOUR TARGET — ALBANIA!!), GREECEC2J, NORTH AFRICAU) 1 

IF B>0 AHP B<4 THEM 45 

PRINT "TRY AGAIN.. ." t GOTO 30 

PRIHT : OH I QOTO 50 t 00,90 

PRIHT "SHOULD BE EASY — YOU'RE FLYING A HAZI-NADE PLANE." 

BOTO 280 

PRIHT "BE CAREFUL!!!" * GOTO 280 

PRIHT "YOU'RE GOING FOR THE OIL, EH?- : SOTO 



280 



IHPUT "AIRCRAFT - LIBERATOR*!), B-29<2), B-17(3>, LAHCASTERM)";G 



BO THEH 125 
AGAIN..." : SOTO 
S GOTO 130, 150, 170, 1TO 
VE GOT 2 T0H9 OF BOHBS FLYING FOR PLGESTI.* 
RE DUHPIM8 THE A-BOHB OH HIROSHIHA." ; GOTO 
CHASING THE IISHARK IN THE NORTH SEA." t 



110 
170, 



IF 6>0 AND 

PRINT "TRY 

PRINT t 01 

PRINT "YOU 

PRINT "YOU 

PRINT "YOU'RE 

PRIHT "YOU'RE 

GOTO 200 

PRINT "YOU'RE FLYING A KAHIKAZE HIS3I0N 

IHPUT "YOUR FIRST KAHIKAZE HISSI0H(Y OR 

IF F*=*N" THEN S*0 : GOTO 35B 

PRIHT ; If RNBm>.« THEN 323 

GOTO 180 
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t GOTO 
280 
GOTO 2B0 



SUSTiNG A GERHAH HEAVY (TATE* PLANT IN THE RUHR,' 



OVER THE 

N)";F* 



USS LEXINGTOH,* 



FOR 

AND 



-A NAZI, EH? OH UELL. ARE YOU GOING 

H EN6LAHD(2), OR FRANCE < J)';* I IF H>0 

•TRY AGAIN.,.- j GOTO 220 

; ON N GOTO 250, 260, 270 

"YOU'RE HEARING STALINGRAD,' I GOTO 280 

"HEARING LONDON. BE CAREFUL, THEY'VE GOT 

■NEAR1H0 VERSAILLES, BUCK SOUP, THEY'RE 



PRINT 

IHPUT 

PRIHT 

PRIHT 

PRINT 

PRINT 

PRINT 

PRINT 

IHPUT "HOU HANY HI5SI0H5 HAVE YOU FL0NH";B 

IF B<160 THEN 300 

PRIHT "HISSIOHS, HOT RILES. .." 

PR1NT "150 HISSIOHS IS HIGH EVEN FOR OLD-TIHERS." 

PRIHT -NOU THEN, "; : GOTO 285 

PRIHTtIF DC100 THEH 310 

PRINT "THAT'S PUSHING THE ODDSf 

IF B<25 THEH PRINT "FRESH OUT Of 



RUSSIA(I),' 
ff<4 THEH 233 



RADAR." x 0070 280 
NEARLY DEFENSELESS, 



t GOTO 320 
TRAINING, EH?' 



PRINT : IF D<160»RNDU) THEN 330 

PRIHT "BIRECT HITItH "INT<1CO*RNDm)"KULED." 

PRIHT "NISSIOH SUCCESSFUL." t GOTO 3*0 

PRINT "HISSED TARGET BYMHT<2+30*RHD( t ))"HILES'- 

PRIHT "HOU YOU'RE REALLY IN FIR IT !!" : PRINT 

INPUT "BOES THE EHEHY HAVE GUNStU, HISSILESC2), OR 80TH(3)";R 

IF R>0 AND R<4 THEN 350 

PRINT "TRY AGAIN,. .* ; GOTO 340 

PRINT t T-0 t IF R*2 THEN 360 

IHPUT -WIAI'S THE PERCEHT HIT RATE OF ENEHY OUNHERS (10 TO 50)' 

U S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY,,.": 00T0 380 

PRIHT t IF RM THEN 1=35 

IF S*T>1O0*RND(1) THEH 380 

PRINT -YOU HABE IT THROUGH TREHEHBOUS TLAKM" i 80T0 3*0 

PRINT *» * 4 * BOOH • • » *• 

-YOU HAVE BEEN SHOT OOUH " 

-BEARLY BELOVEB, U£ ARE GATHERED HERE TODAY TO PAY OUR" 

"LAST TRIBUTE..." 

INf!PRIHT:IHPUT "ANOTHER HISSION <T OR N>";U$ 



PRINT 

PRINT 

PRINT 

PRINTS 

IF M«"Y" THEN 

P»IHT "CHICKEN 



r i 1 



>RINT ( EHp 



oy 



This program plots a bouncing ball. 
Most computer plots run along the 
paper in the terminal (top to bottom); 
however, this plot is drawn horizontally 
on the paper (left to right). 

You may specify the initial velocity of 
the ball and the coefficient of elasticity 
of the ball (a superball is about 0.85 — 
other balls are much less). You also 
specify the time increment to be used 
in "strobing" the flight of the ball In 
other words, it is as though the ball is 
thrown up in a darkened room and you 
flash a light at fixed time intervals and 
photograph the progress of the ball. 

The program was originally written 
by Val Skalabrin while he was at DEC. 




BOUNCE 
CREATIVE COMPUTING I10RRISTOUH, NEI) JERSEY 

THIS SIHULATION LETS YOU SPECIFY THE INITIAL VELOCITY 
OF A IALL THROUN STRAIBHT UP, AMI THE COEFFICIENT OF 
ELASTICITY OF THE IALL, PLEASE USE A DECIMAL FRACTION 
^EFFICIENCY (LESS THAU 1). 

YBU ALSO SPECIFY THE TIKE INCREMENT TO K USE* 1H 
'STRQIIW THE BALL'S FLIGHT (TIT .1 INITIALLY). 

TIHE INCREMENT (SEC)? .1 

VELOCITY <FPS>? 30 

COEFFICIENT? .? 

FEET 

14 000 

O 
13 

12 

11 


10 

« 

f 



10 PRINT TAB<33>;"fiOUHCt:" 
20 PRINT TANISJ^CREATIVE 



00 



0000 



? 

i 



a 

4 
i o 

2 
t 




6 

o 



3 

SECONDS 



30 

90 

100 

110 

120 

130 

131 

132 

133 

134 

135 

140 

130 

160 

1/0 

180 

162 

184 

186 

190 

200 

210 

220 

221 

222 

223 

230 

240 

243 

250 

260 

270 

273 

276 

280 

2*0 

300 

310 

320 

JJ0 

340 

330 

353 

360 

380 

3?0 

400 

410 

420 

430 

440 



PRINT:PRU 
Mft T(20) 



unm 



COKPUUNfl HORRISTOUH, HEU JERSEY 1 



"THIS SIHULATION LETS YOU SPECIFY THE INITIAL VELOCITY" 
"OF A BALL THROW STRAIGHT Of, AND THE COtFFICIEHT OF' 
"ELASTICITY OF THE BALL. PLEASE USE A BECIBAL FRACTION" 
"COEFFICIENT (LESS THAU IK* 



-T0U ALSO 

"STROMA 



SPECIFY THE TIHE IHCttEAEtfT 
' THE BALL'S FLIGHT (TRY ,1 



"TIHE INCREMENT (SEC)";S2 



'COEFFICIENT*^ 



'FEtr 



PRINT 

PRIHI 

PRUT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

INPUT "VELOCITY <FPS>'JV 

PRINT 

INPUT 

PRINT 

PRINT 

PRINT 

81*INT<70/<V/n6*S2H> 

FOR 1=1 TO 31 

T(lJ»v»t'U-l)/U 

NEXT I 

FOR H-INT(-16#(V/32r2*V-2/32*.3J f0 STEP -.3 

IF IKT(HK>H THEN 223 

PRINT h; 

L=0 

FAR IM TO SI 

FOR T«0 TO HI) STEP S2 

LH+82 

IF A&S(H-<.5*<-32>*r2*V*C*CMUT))>.25 THEH 270 

PRINT TAHL/S2); "0*; 

NEXT T 

T=ra*i>/2 

IF -16"T"2*V*C A (I-1J*T<H THEH 
NEXT 1 

PRINT 

NEXT H 

PRINT TAlfl); 

FOR IM TO IHT(L+U/S2*1 

PRINT ".■; 

NEXT I 

PRINT 

PRINT " M f 

FOR 1 = 1 TO IHT(L*.9m) 

PRINT TA9UNHI/$2n;i; 

NEXT I 

PRINT 

PRINT TAB<I«UL*1>/<2»S2>-21;< 

PRINT 

SOTO 135 

EHO 



10 BE UStO IN' 

INITIALLY}.- 



2?0 



SECONDS* 



25 



This is a simulated bowling game for 
up to four players. You play 10frames. 
To roll the ball, you simply type 
"ROLL." After each roll, the computer 
will show you a diagram of the remain- 
ing pins ("0" means the pin is down, "+" 
means it is still standing), and it will 
give you a roll analysis: 

GUTTER 

STRIKE 

SPARE 

ERROR (on second ball if pins still 
standing) 

Bowling was written by Paul Peraino 
while a student at Woodrow Wilson 
High School, San Francisco, Califor- 
nia. 



SOUL 
CREATIVE COMPUTING MORRISTOUN, *EU JERSEY 



UELCOME TO THE ALLEY 

■ KINS YOUR FRIEHBS 

QUI LET'S fIRST GET ACQUAINTED 

THE INSTRUCTIONS (Y/K) 
t 1 

THE SANE OF HULIH0 TAKES SKILL. DURING THE GAME 

THE COMPUTER UILL KEEP SCORE. YOU HAY COMPETE WITH 

OTHER PLATERStOP 10 FOUR). YOU UILL BE PLAYING TEH FRAMES 

OH THE PIN DIAGRAM "0' HEARS THE PIN IS 80UH...'*' HEMS I 

PIN IS STIMtiae. AFTER THE GAME THE COMPUTER URL SHQU YQltt 

SCORES . 

FIRST OF ALL.. .HOW MANY ARE PLAYIHDT 2 

VERT G006... 

IIPE ROLL TO GET IKE BALL GOING. 

? ROLL 

PLAYERi 1 FRAME: I BALL: 1 



TYPE ROLL YO OET THE IALL GOING. 

I ROLL 

PLAYERi 2 FRAME: 1 BALL; 2 

S 

* 

* 



0UTTER1I 

EERORMI 

TYPE ROLL TO GET THE BAIL 6QIWG. 

» ROLL 

PLAYERi 1 FRAME t 2 BALI: 1 

fl > 

i 



TYPE ROLL JO GET THE BALL 60ING. 

? ROLL 

PLAYERi I FRAHEl 2 BALL: 2 

0*0 

• 





GUTTER II 

ERROR MI 

TTPE ROLL 10 SET THE BALL GOING. 

} ROLL 

PLAYER: 2 FRANEi 2 BALLi I 

0* 

9 * t 

» 



TYPE ROLL TO 6ET THE BALL 60IMG, 

t ROLL 

PLAYERi J FtMll: 2 BALLi 2 



TYPE ROLL TO GET THE BALL GOING. 

1 ROLL 

PLAYERi 2 FRAHEl 3 BALL: 1 

lilt 

* 

♦ * 



TYPE ROLL TO OET THE BALL GOING. 

1 ROLL 

PLAYERi 2 FRAME: 3 BALLi 2 






SPARE II U 

TYPE ROLL TO OET THE MLl G0IN6. 

f ROLL 

PLAYER: I FRAMCi 4 BALLi 1 

+ ♦00 





I 

TYPE ROLL TO 6ET IHE BALL GOING. 

? ROLL 

PLAYER: 1 FRAME: 4 BALL: 2 









SPARE! M! 

TYPE ROLL TO OET THE BALL GOINQ. 

? ROLL 

PLAYER: 2 FRAME I 4 BALL: 1 



0* 

e ♦ e 




TYPE ROLL TO GET IHE BALL GOING. 

' ROLL 

PLAYER: 1 FRAME: I BALL: 2 


0*0 





ERROR III 

TYPE ROLL TO GET THE BALL 00IH6. 

t ROLL 

PLAYERi 2 FRAREl 1 BALL: 1 



* 
* 







* 



ERROR II I 

IYPE ROLL TO GET THE BALI GOING. 

? ROLL 

PLAYERi 1 FRAME: 3 BALL: 1 

* 
BOO 

* 


TYPE ROLL 10 OET THE BALL GOING. 

t ROLL 

PLAYERi I FPABEl 3 SALlI 2 

* 






ERRQRH! 



• » 

* 



* 

TYPE ROLL TO 8ET THE BALL GOING. 

? ROLL 

PLAYER: 2 FRAMEl 4 BALLi 2 









SPARC! Ill 

TYPE ROLL 10 GET THE BALL 60ING. 
T POLL 

PLAYER: 1 FRAME: 5 BALL: 1 

0* 

t 



a 



26 




HORRISTOUN, NEU JERSEY" 



10 PRINT TA0O4);* 

20 PRINT TA0(15);"C*EAIIYE COMPUTING 

JO PRINT:PRiHT:PRINT 

270 DIN CM5),A(100 t 4) 

PRINT "UELCONE TO THE ALLEY*- 

PRINT "8RING TOUR FRIENDS" 

PRINT "OKAY LET'S FIRST GET ACOUAIHTED" 

PRINT "" 

PRINT "THE INSTRUCTIONS <Y/M M 

INPUT Z% 

IF 25=*Y" THE* 990 

IF Z1= fc H" THEN 1530 

PRINT 'THE GAflt OF BOWLING TAKES MND AND SKILL. IURING THE GAflE" 
"THE COMPUTER UtlL KEEP SCORE. YOU MY COMPETE UITH* 
"OTHER PLAYER5CUP TO FOUR]. YOU URL BE PUTJN8 TEH FflANES" 
•ON THE PIN DIAGRAM '0' NEAHS THE PIH IS DOVN...'*' KEANS THE" 
-PIN IS STANDING. AFTER THE GABE THE COHPUTEft WILL SKOU YOUR' 
■SCORES ■■■" 

■FIRST Of ALL...HOU «ANY ARE PLAYING"; 
R 



340 
450 
540 
630 
720 
BIO 
900 

no 

990 

1080 

1170 

1240 

1350 

1440 

1330 

1620 

1710 

1800 

1690 

1980 

2070 

2160 

2250 

2340 

2430 

2320 

2410 

2700 

2790 

2830 

2970 

306O 

.1150 

32*0 

3330 

3420 

35 JO 

J400 

3490 

J870 
3960 
4950 
•140 
1230 
1320 
1410 



PRIHF 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
FOR 1=1 



VERY 6QQD..." 
10 100: FOR J-T TO 6z 
F=1 

FOR P=1 TO R 
H=0 
3*1 

K=0: 0=0 

FOR T=1 TO 15t t<!>«0- NEXT 
REMARK BALL GENERA IOR USING 
PRINT "TYPE ROLL 10 GET THE 
INPUT Nf 
K=0: 6*0 
FOR 1=1 TO 20 
X*IHT!RNDmttOO> 
FOR J=I TO 10 
If X<15*J TH£« 3330 
NEXT J 
C<15*J-X>*1 
NEXT I 

REHARK PIN DIAGRArt 

PRINT "PLATER; rt PrfRANE:";F "BALL: *I 
FOR [=0 TO 3 
PRINT 

FOR J=1 TO 4-1 
Ketftl 

IF C(KI=I THEN 4320 
PRINT TA8(1>;"4 -J 
GOTO 4410 
PRINT Tflt(I);-Q -; 
NEXT J 



A(I,J)=0; NEXT J: NEXT I 



I 

NOB '15' SYSTEfl 
BALL GOING." 



4300 


NEXT I 






4590 


PRINT "■ 






4680 REMARK ROLL ANALYSIS 




4770 


FOR 1=1 TO 10 






4840 


••B+CU) 






4950 


NEXT I 






5040 


IF D-H <> THEN 


5220 




3T30 


PRINT "GUTTER!!" 






5220 


IF 8<>t OR 0O10 


rHEN 


54?0 


5310 


PRINT "STRIKE!! H 


1" 




5400 


0=3 






S490 


IF B<>2 OR DO 11 


THEN 


5740 


5580 


PRINT "SPARE!!!!' 






5470 


0=2 






5760 


IF B<>2 OR 0>*10 


[HER 4 


5850 


PRINT B CHMr;i H 






5940 


= » 






6030 


IF IOI OR D»10 


THEN 


6210 


6120 


PRINT "ROLL YOUR 


2ND 1 


JALL" 


4210 


REflARK STORAGE OF 


THE 


SCORES 


6300 


PRINT 






6390 A<F*P.R)=0 






6480 


If B«2 THEN 7020 






4570 


B*2 






6660 


«=B 






6750 


IF Q=J THEN 4210 






6840 


A(Ftp f 8)=D-N 






6930 


IF Q-0 THEN 2520 






7020 


A(F*P,3)-G 






7110 


NEXT P 






7200 


F=f*1 






7290 


IF F<11 7H[N 2070 






7293 


PRINT "FRANES" 






7380 


FOR 1=1 TO 10 






7470 


PRINT I; 






7540 


NEXT I 






7630 


PRINT 






7740 


FOR P=1 TO R 






7830 


FOR 1=1 TO 3 






7920 FOR J*1 TO 10 






8010 


PS1NT A<J*P,I): 






8100 NEXT J 






8105 


PRINT 






6190 


NEXT I 






8280 


PRINT 






8370 


NEXT P 






8440 


PRINT "DO YOU UANT ANOTHER G* 


8550 


INPUT At 






8640 


IF L£FTI(A$ t 1?="T 


' THEN 26H 


8730 


END 







?7 



This program simulates a three- 
round Olympic boxing match. The 
computer coaches one of the boxers 
and determines his punches and 
defenses, while you do the same for 
your boxer At the start of the match, 
you may specify your man's best punch 
and his vulnerability. 

There are approximately seven ma- 
jor punches per round, although this 
may be varied in Statement 185. The 
best two out of three rounds wins, 

Jesse Lynch of St, Paul, Minnesota 
created this program. 



BOXIMO 

CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 



BOXING OLYMPIC STYLE (3 ROUNDS « 2 OUT Of 3 UIHS) 

WHAT IS TOUR OPPONENT'S HANET HEATHEAD 

INPUT TOUR HAN'S MAHE? SUPERMAN 

DIFFERENT PUNCHES ARE 1 FULL SUING 2 HOOK 3 UPPERCUT 4 JAB 

UHAT IS YOUR MAN* BEST* J 

WHAT IS HIS VULNERABILITY! 2 

HEATHEAD'S ABVAHTAGE IS 2 AND VULNERABILITT IS SECRET. 

ROUND t BEGINS... 

SUPERMAN'S PUNCH? 1 

SUPERMAN SWINGS AND HE CONNECTS! 

SUPERMAN IS ATTACKED BY AH UPPERCUT (OH.OH) .♦. 

ANB HEATHEAD CONNECTS... 
SUPERMAN'S PUNCH? 4 
SUPERMAN JABS AT HEATHEAD'S 
SUPERMAN TRIES AN UPPERCUT 
SUPERMAN'S PUNCH* 3 
SUPERMAN TRIES AN UPPERCUT 
SUPERMAN'S PUMCHT 3 
SUPERMAN TRIES AH UPPERCUT 
SUPERMAN'S PUNCH* 2 

SUPERMAN GIVES THE HOOK... BUT IT'S BLOCKED! II M 11*11111 
SUPERMAN UIHS ROUND I 
ROUNB 2 BEGINS.*, 



HEAD SUPERMAN'S PUNCH? 3 

AMD IT'S BLOCKED (LUCKY BLOCK!! 

AND HE CONNECTS! 

Mil IT'S BLOCKEB (LUCKY BLOCK!) 



FULL SUING AND POU! 


Il{i| 


HE HITS HIM 


FULL SUING AND SOT 


IT'S 


BLOCKED 1 


8LQOI7 SPILLS 1!! 







MEATHEAB TAKES A 

MEATHEAB TAKES A 

MEATHEAB JABS ANB 

SUPERMAN'S PUMCHT 1 

SUPERMAN SUIM8S AMD HE CONNECTS! 

MEATHEAB JABS ANB IT'S BLOCKEI f 

SUPERMAN IS ATTACKED BY AN UPPERCUT <0N T QHI... 

BLOCKS AND HITS MEATHEAB U1TH A NOOK. 
MEATHEAB TAKES A FULL SUING AMD BUT IT'S BLOCKED 
NtATHtAD giNS ROUND 3 
SOUND 3 BEGINS... 



RIGHT IN THE FACE! 



HEAD 
AMI 



ANB IT' 
AND Pill!! 



SUPERMAN'S PUNCH* A 

SUPERMAN JABS AT NEATHEflD 

SUPERMAN TRIES AN UPPERCUT 

SUPERMAN'S PUKCKT 3 

SUPERMAN TRIES AN UPPERCUT 

MEATHEAB TAKES A FULL SWING 

SUPERMAN'S PUMCHT 1 

SMPERMAN SUIM65 AMB HE CONNECTS! 

SUPERMAN'S PUNCH* 1 

SUPERMAN SUIM6S ANB HE CONNECTS! 

SIPERMAN'S PUNCH* 3 

SUPERMAN TRIES AN UPPERCUT AND 

SUPERMAN BINS ROUMB 3 

SUPERMAN AMAZINQLY UIHS 



SUPERMAN'S PUNCH? 
HE CONNECTS! 



S BLOCKER (LUCKY BLOCK!) 

Ml HE HITS HIM RIGHT IN THE FACE! 



IT'S BLOCKEB (LUCKY BLOCK!) 



AND NOV GOODBYE FROH THE OLYHPIC ARENA. 

28 



f 

2 

3 

4 

5 

6 

14 

20 

JO 

40 

SO 

60 

64 

70 



(3 



PRINT TAB(33>;"B0XIN6" 
PRINT TAB<I51;-CREATIVE 

mm tnunmun 

PRINT "WXIII6 OLYHPIC STYLE 
J=0 
L»0 
PRINT "WHAT 

J* 

"INPUT YOUR NAN'S NAHE"; 

LI 

"DIFFERENT PUNCHES ARE I FULL 

"UHAT IS TOUR MUt BEST"; 



CORPUTIHG MQRRISTOUH, HEU JERSEY" 



-- 2. OUT OF 3 UINST 



■UHAT IS HIS VULHEftMILIIY*; 



9 

1(0 
1 10 

120 

130 

140 

ISO 

160 

170 

ISO 

181 

183 

190 

200 

210 

220 

221 

222 

225 

230 

240 

250 

270 

271 

2?5 

280 

2*0 

300 

310 

330 

340 

341 

343 

350 

360 

370 

375 

380 

3?0 

400 

410 

420 

423 

440 

150 

455 

460 

470 

475 

460 

490 

500 

510 

320 

330 

540 

550 

560 

365 

570 

590 

390 

600 

601 

602 

605 

610 

620 

630 

640 

645 

630 

655 

660 

470 

m 



IS TOUR OPPONENT'S NAWE" 
INPUT 
PRINT 
INPUT 
PRIST 
PRINT 
INPUT 
PRINT 
INPUT 
•1«»T(4MMI(1)41I 

01«INT(4*R«D(1)*U 

If »1<BI THEN 90 

PRINT J$;"'S ADVANTAGE 

FOR R=1 TO 3 

IF J>» 2 THEN 1040 

IF L>«2 THEN 1060 

X=0 

T=0 

PRINT 'R0UN0*;R;"BE6INS... 

PRINT "• 

FOR |l" 1 Ti 7 

I>I«T{10*RH0<1>t1» 

IF I>5 THEN 600 
PRINT LS;*"S PUNCH"; 

INPUT P 

IF P»| THEN 223 

GOTO 230 

X=X*2 

IF P-1 THEN 340 

IF P"2 THEN 450 

IP PO THEN 520 

PRINT L*;" JABS AT 

IF 01-4 THEN 290 

C«INT(R*RNP<1) + n 

IF C<4 THEN 31* 

X"Xt3 

GOTO 950 

PRINT •'IT'S BLOCKED" 

60TO 930 

PRINT LI " SUINIS AN 

IF 01-4 THEN 410 

X3»INF(30»RND<1)*1> 

IF X3<10 THEN 410 

PRINT * ME HISSES *} 



SUING 2 HOOK 3 UPP£RCUT 4 JAB" 



IS";B1;"ANB VULNERABILITY IS SECRET. 



"iJ8"*S HEAD ■; 



p 



V 



PRINT 

IF X«1 THEN MO 

PRINT 

PRINT 

SOTO 300 

PRINT "HE CONNECTS!" 

IF X>35 THEN 980 

X«X*I3 

SOTO 300 

PRINT LS;" GIVES THE HOOK. 

IF D1=2 THEN 460 

H1»INH2*RN0m+1) 

IF H1*l THEN 500 

PRINT ■CONNECTS..." 

X-Xt7 

GOTO 300 

PRINT 'BUT IT'S BLOCKED! H H H I IH H 1 
SOTO 300 

PRINT LI " TRIES AN WnKCUT 

IF D1*3 TNEH 570 

DS-INTU0**RNBn>+1> 

IF I5<51 THEN 370 

PRINT " AND IT'S BLOCKED (LUCKT BLOCK 1 ) 1 
GOTO 300 

PRINT "ANB HE CONNECTS!" 
K-X+4 

GOTC 300 

J7-IHT(4*RNB(mi* 

IF 47 -B1 THEN 603 

GOTO 610 

Y»Y*2 

IF J7«1 THEN 720 

IF J7=2 THEN 010 

IF J7 -3 THEN 860 

PRINT JIJ- JABS AND '•; 

IF D<4 THEN 700 

Z4«INH7*RND(1>*1) 

IF Z4>4 THEN 690 

PRINT ■ IT'S BLOCKED I" 

SOTO 300 

PRINT ■ BLOOD SPILLS >!>* 



700 
7t# 
720 
730 
740 
743 
750 
760 
770 
780 
??0 



810 
820 
830 
835 
840 
850 



865 
370 



910 

920 

930 

940 

950 

931 

952 

953 

954 

955 

956 

960 

961 

962 



100O 
1010 
1030 
1040 
1050 
1060 
1070 
10B0 
1085 
1090 

tioo 

1110 



Y*T*5 
GOTO 300 

PRINT Jl" TAKES A FULL SWING AND"; 

IF D=1 THEN 770 

ft6MNTr60*RNBU)*lt 

IF R6 <30 THEN 770 

PRINT " GUT IT'S BLOCKED !" 

GOTO 300 

PRINT " P8UMH! HE HITS HIN RIGHT IN THE FACE I" 
If T>35 THEN 1010 

GOTO 300 

PRINT J$; fc OETS ■;«;- IN THE JAU (OUCH')" 

T-T+7 

PRINT ".„.AN0 AGAIN!" 

T*T*5 

IF Y>35 THEN 1010 

PRINT 

PRINT Itr IS ATTACKED BY AN UPPERCUT IW P OHl...- 
IF B-3 THEN 890 

G4=INT(200*RNB<1)*1) 

IF 04>75 THEN 920 

PRINT - AND ";jt;" CONNECTS*..' 
T"U8 

GOTO 300 

PHUT » BLOCKS AND HITS *;Jt;" UITH A HOOK." 

GOTO 300 

NEXT R1 

IF X>T THEN 955 

PRINT Jf WINS ROWG" R 

>JM 

BOTO 960 

PRINT LS" UIN3 ROIWD *R 

L«L*1 

NEXT t 

IF J>» 2 THEN 1040 

IF L>»2 THEN 1060 

PRIHT J* • IS KNOCKED COLB ANB * LI" IS THE UlNNEft AND CHANp ": 

soto toeo ' 

PRINT LS • IS KNOCKER COLD AND - J*" IS TH€ WINNER AND CHAHP ": 

GOTO 1000 f 

PRINT J% ■ UINS (NICE GOING )• 4t 

GOTO 10OO 

PRINT L4 ■ MMlMLT WINS " 

60TB 1000 

PRINT 

PRINT 

PRINT "AND NOV GOODBYE FRQH THE OLTHPIC ARENA," 

PRINT 

END 
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The object of this game is to finish 
your drawing of a bug before the 
computer finishes. 

You and the computer roll a die 
alternately with each number standing 
for a part of the bug. You must add the 
parts in the right order; in other words, 
you cannot have a neck unti I you have a 
body, you cannot have a head until you 
have a neck, and so on. After each new 
part has been added, you have the 
option of seeing pictures of the two 
bugs. 

If you elect tosee all thepictures. this 
program has the ability of consuming 
well over six feet of terminal paper per 
run. We can only suggest recycling the 
paper by using the other side, 

Brian Leibowitz wrote this program 

while in the 7th grade at Harrison Jr-Sr 

Hiqh School in Harrison, New York, 
y 



■ 
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CREATIVE CONFUTING 



JUG 
flORKISTOUN, 



HEU JERSEY 



THE SAHE DUB 

I HOPE YOU ENJOY THIS 6AHE. 

DO YOU UAHT INSTRUCT I0S5T t E5 

THE OBJECT OF BUG 13 TO FINISH YOUR DUO BEFORE 1 FINISH 

HIKE. EACH NUHDER S1AH0S FOR A PART OF THE BUD BODY* 

1 WILL ROLL THE PIE FOR YOU, TCU YOU UHAT I ROLLED FQJt 

UHAT THE ttUMER STANDS FOR, AND IF YOU CAN GET THE PART, 

IF YOU CAH 6ET THE PART I UILL 6IVE IT TO YOU. 

THE SANE UILL HAPPEN ON NT TURN* 

IF THERE IS A CHARGE IN EITHER BUG I UILL GIVE TOO 

OPTION OF 5EEIN6 THE PICTURES OF THE BUGS. 

THE NUrtDERS STAHfl FOR PARTS AS FOLLOUS: 



YOU 



THE 



HUftRER 

1 

2 

3 

4 

3 

4 



YOU ROLLED A 

1-BOBY 

YOU NOV HAVE 

I ROLLED A 4 

4-FEELERS 

I DQ NOT HAVE A HEAD. 

DO TOU UAHT THE PICTURES? 

*t**#YQUR BU6*«t*t 



BB&BEBBBBBBB 



HEEDED 




BODY, 



I ROLLED A A 

6-LE63 

I NOU HAVE 4 LEGS. 

DO YOU UAH 3 THE PICTURES? NO 

YOU ROLLED A I 

1-IODY 

YOU BO NOT HEED A BODY. 

I ROLLED A 3 

3*HEAD 

I DO NOT NEED A HEAD. 

YOU ROLLED A 1 

1'DODY 

YOU DO NOT NEED A BODY. 

I DOLLED A 1 

1-BOBY 

I DO HOT NEED A BODY. 

YOU ROLLED A 3 

3-TAU 

YOU ALREADY HAVE A TAIL. 

I ROLLED A 1 

l*HH 

1 DO NOT NEED A BODY. 

YOU ROLLED A S 

3*TAIL 

YOU ALREADY HAVE A TAIL. 

I ROLLED A A 

A-lEfiS 

I NOU HAVE 9 LEGS. 

DO YOU WART THE PICTURES? NO 

YOU ROLLED A 5 

3«TAU 

YOU ALREADY HAVE A MIL* 

I ROLLED A 4 

4-FEELER3 

I SET A FEELER. 

DO YOU UAHT THE PICTURES? NO 

YOU ROLLED A 2 

2*HE€X 

YOU DO NOT HEED A NECK. 

I ROLLED A 2 

2-HECK 

I DO ROT HEED A HECK. 

YOU ROLLED A 4 

4-FEELERS 

YOU DO NOT HAVE A HEAD. 

I ROLLED A 1 

1-DODY 

I DO ROT REED A DODY. 

YOU ROLLED A 2 

2-NECH 

YOU DO HQT NEED A NECK. 

I ROLLED A 3 

3-IEAD 

I DO HOT HEED A HEAD. 

YOU ROLLED A 5 

5=TAIL 

YOU ALREADY HAVE A TAIL. 

I ROLLED A 3 

3'TAIL 

I SO NOT HEED A TAIL. 

YOU ROLLED A 6 









IBDDDSDDDIDB 



6=LEG 

YOU HOU HAJE 

1 ROLLED A 2 

2*HECK 

I DO NOT NEEU 



3 LEGS, 



A HECK. 






3-HEAD 

YOU NEEDED A HEAD. 
I ROLLED A 3 
3*H£AD 

I DO ROT NEED A HEAD- 
DO YOU UAHT THE PICTURES? HO 
YOU ROLLED A 3 
S-TAIL 

YOU ALREADY HAVE A TAIL. 
J ROLLER A 3 

S-TAIL 

I DO NOT HEEB A TAIL. 

YOU ROLLED A 2 

2>HECK 

YOU DO NOT NEED A NECK. 

I ROLLED A A 

A'LEM 

I HOU HAVE 4 LEGS. 

HT DU6 IS FINISHED. 

BO YOU UAHT THE PICTURES? YES 

•tMtlOUR BUS**"* 



HHHHHHH 
H M 

Ha H 

n h 
H V H 

HHHHHHH 
H H 
N H 
BBBBBBBBBBBB 
B B 

B B 

TTTTTD B 

DBDBBDDBBBBB 
ILL 
L L L 


















**«***HY BUG**'*" 








f F 




F F 




F F 




F F 




HHHHHHH 




H K 




H H 




H H 




H V H 




HHHHHHH 




n n 




N H 


BDDI:-B:j-:;J- 


9 


D 












TTTTTD D 

DDBBDBBBDBDD 

LULU 

LULU 
I HOPE YOU ENJOYED THE flAHE, PLAY IT A8AIN 






I I 



30 



SlK ml^SE"* CBHTH6 MMIITOU-, HEU JUKI' 
MHT;flIHTiMll"I 

RF H 

*0t H»Ot L-0: N-Oi P'Ol 0=0l 

"THE 8AIE BU6 

*| HOPE YOU ENJOY THIS 8AAE. 



A-0: 1 
PAINT 
PRINT 
PRINT 
PRINT "10 
ft WW 2» 
IF M«"NG" 
PRINT "THE 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRUT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



10 

20 

30 

40 

50 

60 

7* 

Bl 

90 

100 

110 

120 

130 

140 

150 

U0 

170 

1*0 

I TO 

200 

210 

220 

230 

240 

250 

2*0 

270 

280 

2T0 

300 

310 

320 

330 

340 

330 

360 

370 

380 

310 

400 

410 

420 

430 

440 

450 

460 

47* 

410 

4t0 

500 

310 

320 

330 

340 

350 

3i0 

570 

380 

390 

600 

610 

420 

630 

440 

450 

660 

670 

610 

610 

700 

710 

720 

730 

740 

750 

7*0 

770 

780 

710 



R»Ol S*Oi TO i »"0: V-O: 1< 



YOU «MT INSTRUCTIONS' 



OBJECT Of BUG IS TO FINISH YOUR IU6 
-HIKE. E*CH HUBIEB STAUBS fOR A PAST OF 
- ttU ROLL THE »U FOR VOU, TELL 100 IHJT 
■MAY THE »Uh>E8 SIMDS FDR, Ml IF TOU CM 



BEFORE I FIRI8H- 

1HE BUB IQDY." 

I SOLLEB FOR YOU' 
QET YHE PARI.' 



-IF »0U CM OET THE PftRI I MILL BIVE IT TO «U." 

"OPTION OF SEEINS THE HCTURE8 ** WE WBS«" 
-THE NUHBERG STAND FOR PA8T3 AS FOLLOWS: 

•NUMtt", ,i r*i«v«uMi» 0F MM MUDEI 



2" -KECK 1 



-I 



I" 

'3VREAIV1" 
^4- p *FEEtERS- ( H 2" 
*5" t "TML ,, f "1" 
*6 M ."LEGS"»*4" 



MOT HAVE A BODY. 1 



810 
820 
830 
840 
850 



fl?C 



900 
910 



PRINT 

IF T>0 THEN 2480 

Z«1HT(4«RND<1>+1> 

C-1 

PRUT 'TOU ROLLED A "H 

Oft l OOTO 330,430,340,450,740,870 

PRINT "1-BOIY" 

IF 1*1 THEN 410 

PRINT -TOU NOU HAVE 6 BODY,* 

B-1 

C-0 

GOTO 970 

PRINT "YOU DO NOT NEED A BODY." 

GOTO 170 
PRINT H 2"«CK" 
IF H»1 THEN 300 
IF 8-0 THEN 320 
PRINT "YOU MR HAVE A NECK." 
N-1 
C-0 

GOTO 170 
. PRINT 'YOU M NOT NEEB A NECK." 

8QT0 170 

PRINT -tOO 

GOTO 170 

PRINT "MEM" 

IF N-0 THEN 410 

IF H"l THE* 430 

PRINT -TOU WEE BE 8 A HEAD." 

H»1 

C»0 

GOTO 170 

PRINT "TOU BO NOT HAVE A NECK." 

60 TO ?70 

PRINT "TOU HAVE A HEAB." 

GOTO 170 

PRINT "4«FEELERS" 

IF 1**0 THEN 740 

IF A-2 THEN 720 

PRINT "I NOU OWE TOU A FEELER' 

A-A*1 

C-0 

GOTO 170 

PRINT -YOU HAVE TUO FEELERS ALREADY." 

GOTO 170 

PRINT "TOU DO NOT HAVE A HEAD." 

GOTO 170 

PRINT "3MAIL" 

IF 8-0 1HEN 530 

IF T-l THEN 850 

PRINT 'I NOU GIVE YOU A TAIL.* 

T»T*1 

CO 

GOTO 170 

PRINT -YOU DO NOT HAVE A BODY." 

GOTO 170 

PRINT *YOU ALREADY HAVE A TAIL." 

GOTO 170 
PRINT "6-LEG" 
IF L-6 THEN 940 
IF B=0 THEN 160 
L*Lt1 

C-0 



nou have ";l;" legs. 1 
have 6 feet already, 
do not have 



BODY. 



920 PRINT "YOU 

930 60T9 170 

940 PRINT 'YOU 

950 GOTO 970 

940 PRINT "TOU 

970 X»iHT(6»RHUm + l) 

PRINT "I R0LLE8 A";X 

ON X ROTO 1000,1080,1190,1300,141 

PRINT "1=8QDY" 

If p*1 THEN 1060 

PRINT 'I NOU HAVE A BODY." 

C-0 

p»l 

GOTO 1630 

PRINT "I DO NOT NEED A BOBY." 

GOTO 1630 

PRINT "2-NECK* 

IF 8*1 THEN 1150 

IF piO THEN H70 

PRINT "I NOU HAVE A NECK." 

0*1 

C»0 

GOTO 1630 

PRINT ■! BO NOT NEED A NECK." 

GOTO 1630 

PRINT "I DO NOT HAVE A BODY," 

GOTO 1630 

PRINT "3-HEAD" 

THEN 1260 

THEN 1280 



9 

1CO0 

1010 

1020 

1030 

1040 

1030 

1060 

1*70 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1IG0 

1190 

1200 

1210 

1220 

1230 

1240 

1230 

1260 

1270 



1440 
1630 
1460 
1670 
1680 
1490 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1110 
1820 
1830 
1840 
1850 
1860 
1870 
iaeo 
1810 
1900 
>, 15201910 
1920 
1930 
1140 
1130 
1160 
1*70 



BUG IS FIH1SHEB. 



AND V"4 THEN 1610 



BUG IS FINISHED.' 



'I NEEDED A HEAD. 



IF Q-0 
IF ft-1 
PRINT 
R»1 
C-0 

bGFO 1630 

PRINT "I DO NOT HAVE A NECK." 

OOTO 1630 
12G0 PRINT "1 80 NOT NEE8 A HEAD.* 
1290 GOTO 1630 

PRINT "4=FEELERS" 

IF R'O THEN 1390 

IF 3*2 THEN 1370 

PRINT "I OET A FEELER," 

S-SH 

£»0 

GOTO 1430 

PRINT -1 HAVE 2 FEELE85 ALREADY/ 

GOTO 1630 

PRIHT "I DO NOT HAVE A HEAD-" 

GOTO 1630 

PRINT "5-TAIL - 

IF P-R THEN 1480 

IF U-l THEN 1300 

PRINT "I HOW HAVE A TAIL." 



1300 

1310 

1320 

1330 

1340 

1150 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1440 

1470 

1480 

1490 

1300 

1510 

1520 

1530 

1340 

1550 

1540 

1570 

1380 

1590 

1600 

1610 

1620 

1430 



C-0 

COTO 1630 

PRINT "I 80 NOT HAVE A BODY." 

SOTO 1630 

PRINT "I BO NOT HEED A TAIL." 

GOTO 1630 

PRUT "6>LEGS" 

IF V-6 THEM 1390 

IF P-0 THEN 1610 

V*1M 

C-0 

PRINT "1 NOU HAV£";V;-LE65." 

i;OTD 1630 

PRINT, 'I HAVE 6 FEET." 

GOTO 1630 

PRINT "I BO NOT HAVE A 80DY." 

SOTO 1630 

If A*2 AND TM J)HD L-6 THEN 1630 



HOTO 167« 
PRINT "YOUR 

T-Y41 

IF S=2 AND PM 

GOTO 171* 

PRINT "NT 

Y-Y*2 

If CM THEN 300 

PRINT "BO YOU 8ANT THE PICTURES"; 

INPUT Z1 

IF H--N0- TNEN 300 

PRINT "♦••••YOUR 8UG»***»- 

PRIHT 

PRINT 

IF A-0 TNEN li 

FOR 2»l TO 4 

FOR X»l TO A 

PRINT TAB(IO); 

PRINT "A *; 

NEXT X 

PRINT 

NEXT I 

IF H-0 THEN II 

&03UB 2470 

IF N-0 THEN 1920 

FOR >1 10 2 

PRINT - « «" 

NEXT Z 

IF 8*0 TNEN 2000 

PRINT " BBBBSBBVBBBD" 

FOR Z-l TO 2 

PRINT * B *" 

NEXT 2 

IF TOI THEN 1990 

PRINT -TTTTTB ■" 

PRINT * BBBBBBBBB8BB" 

IF L-0 THEN 20G0 

FOR I- I TO 2 

PRINT TAB15); 

FOR X*1 TO L 

PRINT • L"; 

NEXT X 

PRINT 

NEXT Z 

FOB 2=1 TO 4 

PRINT 

NEXT I 

PRINT ••♦••••HY BUe»••••• ,, 

PRINT 
PRINT 
PRINT 
IF 8-0 THEN 2230 

FOR Z-1 TO 4 
PRINT TMCIfti; 
FOR X=1 TO S 
PRINT "F "i 
NEXT X 

PRINT 

NEXT Z 

IF R<>1 THEN 2230 

G0SU8 2470 

IF Q-0 THEN 2280 

PRINT " N N" 

PRINT ■ N N" 

IF P«0 THEN 2361 

PRINT 

TO 2 



1190 

2000 

2010 

2020 

2830 

2040 

2050 

2060 

2170 

2080 

2010 

2100 

2110 

2120 

2130 

2140 

2158 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2230 

2260 

2270 

2280 

2210 

2300 

2310 

2320 

2330 

2340 

2330 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2340 

2550 



FOR 2-1 
PRINT - 

NEXT I 

IT HOI 
PRINT ' 
PRINT • 

IF V*0 THEN 



THEN 2330 
TTTTTB 



2450 



TO 2 

AB(5>; 

TO V 



FOR Z-1 

PRINT T 

FOR XM 

PRIHT - 

NEXT X 

PRINT 

HE XT Z 

IF TOO THEN 2340 

GOTO 300 

PRINT " 

PRINT » 

PRINT * 

PRINT " 

PRINT ■ 

PRINT " 

RETURN 

PRINT "I HOPE YOU 

END 



HHHHHHH" 
H H" 

H H" 
H H- 

H V ■■ 
HHHHHHH" 



ENJOYED THE 
PLAY IT 



8AHE, 

AGAIN Siumi!' 
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Bullfight 



in this simulated bullfight, you are 
the matador — Le M the one with the 
principal role and the one who must kill 
the bull or be killed (or run from the 
ring). 

On each pass of the bull, you may try: 

Veronica (dangerous inside move 
of the cape) 

1 Less dangerous outside move of 
the cape 

2 Ordinary swirl of the cape 
Or you may try to kill the bull: 

4 Over the horns 

5 In the chest 
The crowd will 

award you deserve, 
necessary. The braver you are> the 
better the award you receive. It's nice to 
stay alive too. The better the job the 
picadores and toreadores do, the 
better your chances. 

David Sweet of Dartmouth wrote the 
original version of this program. It was 
then modified by students at Lexington 
High School and finally by Steve North 
of Creative Computing. 



determine what 
posthumously if 



PASS NUMBER i 

THE BULL IS CHARGING AT TOU* TOU ARE THE NATADOft- 

DO TOU UANT TO KILL THE BULL? NO 

UHAT ROVE SO YOU HAKE UITH THE CAPE? C 



PASS NUIlBER 2 

Ttf BULL IS CHARGING AT T0U1 TOU ARE THE NATADOR- 

00 TOU UAJfT TO KILL THE BULL? NO 

UHAT HOVE 00 TOU HAKE WITH THE CAPE? 1 



PASS NUHBER 3 

HERE COHES THE BULL. TRY FOR A KILL'' HO 

CAPE HQVET \ 



PASS NUHBER 4 

HERE COHES THE BULL. TRY FOR A KILL? NO 

CAPE IfOVET 



PASS NUHSEft 3 

HERE C0HE8 THE BULL. TRY FOR A KILL? NO 

CAPE flGVET 2 



PASS Hur.BEK 6 

HERE COHES THE BULL. TRY FOR A KILL? NO 

CAPE HOVE? 1 



PASS NUN BE R ? 

HERE CDHES THE BULL. TRY FOR A KILL? NO 

CAPE HOVET 



BULL 
CREATIVE COflPUTINO HORRIST0UN, NEU JERSEY 



PASS NUHBER 8 

HERE COHES THE BULL. TRY FOR A KILL? YES 

IT 18 THE flOHEHI OF (RUTH. 

HOU BO YOU TRY TO KILL THE BULL? 5 

THE BULL HAS 60RE0 YOU 

YOU ARE DEAD 



10 YOU UANT INSTRUCTIONS? YES 

HElLO, ALL YOU RL0OBLOVERS AHB AFICIONADOS 

HERE IS YOUR BIO CHANCE TO KILL A BULL 



THE CROUD AUARDS YOU 
ONE EAR Of THE BULL 

A010S 



ON EACH PASS OF THE BOLL, YOU HAY TRY 

- VERONICA TOARGEROUS INSIDE HOVE OF THE CAPE) 

1 - LESS BAJfQEROUS OUTSIDE ftOVE OF THE CAPE 

2 - ORDINARY SUIRL OF THE CAPE 

IHSTEAD OF THE ABOVE, YOU MY TRY TO KILL THE BULL 
OH ANT TURN j 4 (OVER THE HORNS), 5 (IN THE CHEST) 
BUT IF 1 HERE YOU, 
I UOULBN'T TRY IT BEFORE THE SEVENTH PASS. 

THE CROUD UILL DETERMINE UHAT AWARD YOU DESERVE 

POSTHUMOUSLY IF NECESSARY 

THE BRAVER YOU ARE. THE BETTER THE AUARI YOU RECEIVE 

THE BETTER A JOB THE PICADORES ANB TOREADORES 00, 
THE BETTER YOUR CHANCES ARE 



TOU HAVE DRAUK A POOR BULL. 



YOU UANT INSTRUCTIONS? NO 



YOU HAVE DRALM A SUPERB BULL. 
GOOD LUCK. YOU'LL HEED IT* 



THE PICADORES DIB A SUPERB JOE. 
THE TOREABQRES BID A SUPERB JOB, 



PASS NUMBER 1 

THE BULL IS CHARGING AT YOU! YOU ARE THE ItATADOft- 

DO TOU UANT TO KILL THE BULL? NO 

UHAT HOVE DO YOU HAKE UITH THE CAPE? 2 

THE BULL HAS GORED TOU 

TOU ARE BEAD 



THE PICADORES DID A AUFUL JOB. 
2 OF THE HORSES OF THE PICADORES KILLED. 
T OF THE PICADORES KILLED* 

THE TOREABORES DID A AltfUL JOB. 
2 OF THE TOREADORES KILLED. 



THE CROUD AWARDS YOU 
ONE EAR OF THE BULL 

ADIOS 



32 



10 PRINT TftBt34>; - BULL" 

It print iAiiis>rc«MWC computing 

30 KEF fNAlK> = lNTlfiHBU>«2*1> 



hqrristoun, heu jeisev 



200 

202 

205 

206 

20? 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

340 

370 

380 

390 

400 

410 

420 

4 3D 

450 

453 

460 

443 

447 

470 

490 

500 

510 

520 

530 

540 

550 

540 

570 

5t0 

593 

600 

610 

630 

635 

440 

650 

660 

470 



PftlRIl PRUT :fKtHl 

print *oo too want instructions*; 

INPUT Z* 

IF Z1* M N0" THEN 400 
PRINT -HELLO, ALL VOU 8LQODL0VERS 
HEft£ 15 YOUR BIG CHANCE TO 



THE CAPE)' 
CAPE" 



■OK EACH PASS OF THE BULL, TOU HAY Tin 
•0 - VERONICA tBAH&EROUS INSIDE HOVE OF 
"1 * LESS BAHGEROUS 0UI5IBE HOVE OF IHt 
"2 - QUINARY SWIRL OF THE CAPE" 

"INSTEAD OF IHE ABOVE. TOU HAT TR1 TO KILL THE MILL 1 

-5! "B turn! 4 "mm «orns>, 5 m the che*t>- 

"MolLDi'f^T^T'sEFORE IHE 0EV« PASS.- 



'THE CROUD WILL DEIERMHE "HAT 
-POSTHUHOUSLY If NCU 5SARY 
-THE BRAVER TOU 



PRINT 
PRINT 
PR [Ml 

PRINT 

PR1H1 

PRINT 

PRINT 

PRINT 

PftlHT 

PRIHT 

PRIHT 

PRINT 

PRiHl 

PRINT 

PRINT 

PRINT 

PRIHT 

PRINT 

PRIHT 

PRIHT 

■151-1 

D(4)"1 

DIM L*C 5 > 

A*IHT(RHD(1>»5*1) 

FOR 1=1 TO 5 

READ Lit!) 

NEXT 1 

DATA "SUPERB", "BOOB", 

PRIHT 'YOU HAVE BRAUN 

If A>4 THEH 530 

If *<Z THEN 550 

GOTO 570 



AND AFICIONADOS" 
KILL A BULL" 



2«1 

PRINT 
PRINT 
1HPU1 
If H"4 



AUAKfi TOU DESERVE" 



•THE 



lETTER 

BETTER 



ARE, IHE BETTER THE AUARD TOU RECEIVE 
AND 10REAOORES DO," 



A JOB THE P1CAB0RES 
TOUR CHANCE? ARE rt 



f AIR", -POOH 



V -M|FUL H 

BULL. - 



LUCK. TOU'LL NEEB 



IT. 1 



690 
700 
710 
720 
730 
735 
740 
750 
760 
770 
78* 
71 
?' t 
f 
10 

i20 
830 
840 

650 



PRINT "YOU'RE LUCKY,*' 

GOTO 570 

PRINT 

PRINT 

PRINT 

At" H PIC ADD" 

B*="RE8 4 

60SUB 1410 

i(l)«C 

At»"TOREAB" 

B$=*ORES" 

605U8 1410 

0(2)=C 

PRINT 

PRINT 

IF Z*l THEH 

l<3)=0'3)4l 

PRINT "PASS NWBER P ;0(3> 

IF DUXJ THEN 760 

PR1N 'HERE COftfS THE BULL. TRY FOR A KILL 

60S' B 1930 

IF 11-1 THEN 1130 



1310 



PF JIT "CAPE HOVE - ; 
C T 

J INT 

RiHT 
GOSUB 
If 21 
PRINT 
INPUT 



"THE BULL IS CHARGING AT TOU! YOU 
■00 TOU UANT TO KILL THE BULL'; 

1930 

1 THEN 1130 

"WHAT HOVE 80 YOU HAKE UXTH THE CAPE 

£ 



ARE THE HATAIQR--* 



IF EOIHTtABS(E)) THEN 830 

If E<3 THEH 050 

PRINT "DON'T PANIC, 

GOTO 800 

REN 

IF E»l 



TOU IDIOT! PUT DOUN A CORRECT HUHBEfl 



170 



900 

910 

920,* 

930 

940 

930 

960 

970 

980 

?90 

WOO 



IF E 
N-.5 
GOTO 
fl'2 
GOTO 
3 



THEN 
THEN 



920 
900 



930 
930 



L-L*« 

f=(4-A*H/10>*RNBC1>/( (0(11+0(2 HDl J »/IO>*5» 

IF F<.51 THEN 660 
PRINT "THE BULL HAS GORED TOU 11 
ON FNA<0> GOTO 980,1010 
PRIHT -TOU ARE DEAD" 
D(4)»1.S 
GOTO 1310 



1010 
1020 
1030 
1035 

1040 

1050 

1060 

1070 

1080 

1110 

1100 

mo 

1120 
1130 
1140 
1150 
1155 
1160 
1170 
1180 
1190 
1220 
1230 
* 1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1395 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1430 
1640 
1450 
1460 
1470 
1480 
1490 
1700 
1710 
1720 
1730 
1740 
1750 
1740 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1830 
1890 
1900 
1910 



PRINT "TOU ARE STILL ALIVE" 
PRINT '00 YOU RUN FROH THE RING 1 
60SUB 1930 

If Zl»2 THEN 1070 

PRINT "COUAKC" 



0(4)<O 
GOTO 1310 
PRINT -YOU ARE 
ON FHMO* GOTO 
l<4>-2 
GOTO 460 
PRINT "TOU ARE 

GOTO 970 
REN 



BRAVE, STUPIlt 
1090 f l110 



GQREB AGAIN' 



BUT BRAVE- 1 



"IT IS 

■HOU D 
H 

I HEN 1230 



THE HOHENT OF [RUTH** 1 

l TOU TRY 10 KILL THE BULL"; 



THE BULL OORED YOU. 



IF H=5 THEH 1230 
PRINT "TOU PANICKED. 

GOTO ?70 
K«(4-A)M0*RNDU)/ilB<n*8<2))*5»DlJH 

IF J*4 THEH 1290 

IF KK2 THEH 940 

PRIHT -YOU KiLLEI THE BULL* 

D<3>-2 

GOTO 1320 

IF K>*8 THEH 960 

OOTO 1260 
PRINT 
PRIHT 
PRINT 
, IF 0(4K>0 THEH 1390 
PRINT "THE CROUD BOOS 
PRINT "TOUR FACE IN A 
PRIHT -UHLES THE BULL 

GOTO 1580 

Kf FNC(Q)*FNDlG)#RND<U 

DEF FHB<0> = <4,3U/6-<D(1)tfl 1211*2.3 

IF 0(4)02 IHEil 1430 

CBQUB CHEERS U1LBLY" 



FOR TEN H1NUTES. 
RING AGAIN, THEY 
GOES FIRST," 



IF TOU EVER OARE TO SHOU" 
SWEAR THEY WILL KILL YOU"' 



t4*D<4)*2*B<5)-Di;ir2/l20-A) 



PRIHT "THE 
GOTO 1450 
IF l»><>2 
PRINT # THE 
PRINT "THE 
If FNC10H2.4 
IF FHCCQK4.9 



THEH 1450 

CROUD CHEERS* 

CfiOUl AUAKDS 

THEH 1570 

THEN 1550 



mir 



IF fNt(QK7.4 fHEH 1520 



tou 



OF THE BULL 1 
AT ALL- 



PRINT "OLE 

GOTO 1580 

PRINT "BOTH EARS OF THE BULL 

PRIHT "OLE!" 
GOTO 1580 
PRIHT "ONE EAR 
GOTO 1580 
PRINT "NOTHING 
PRIHT 

PRINT "AGIOS" 

GOTO 2030 

8«3/A«RNDm 

If K.37 THEN 1740 

If B<.5 1HEN 1720 
i IF B<.43 THEN 1700 

IF B<.87 THEH 

C=.1 

1?5<? 



ARE 'NUT HOHBRE'!! OLE! OLE* 



\?H 



1750 
1730 



1920 
1930 
1*40 
1950 
1970 
1980 
1990 
2000 
2010 
2020 
2030 



REH 

INPUT Al 

IF AI-"YES" THEH 1990 

IF At="«0 H IHEN 2010 

PRINT -INCORRECT ANSUER - - 

GOTO 1930 

11*1 

GOTO 2020 

11*2 

RETURN 

END 



DID A "ILtlTi;- 30B." 



GOTO 
C-.2 
GOTO 
C-.3 
GOTO 
C-.4 
GOTO 

C=.5 

T=lHT(10»C*-2) 

print "the -;a»;bi; 

If 4>T THEN 1900 

IF 5*1 THEH 1870 

ON FNA(K> GOTO 1830, 1G50 

IF A*="10READ* THEN 1820 

PRIHT "ONE OF THE HORSES 

OF fRA<K> GOTO 1030,1850 

PRINT "ONE Of THE "JAIJB*;- UAS KILLED." 

80 10 1900 

PRINT "NO ";ABjBi; fc UERE KILLED." 

OOTO 1900 

If At»"TOREAB" THEN 1890 

PRINT fNACK);"OF THE HORSES OF -U "i«! : ? 

PRINT fNAlK)J-OF THE 

PRIHT 

RETURN 
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PLEASE TYPE 'YES' OR 'HG 



or 



the ";a*;b*;* uas killed. 



KILLED. 



;A*:B*;" KILLED. 



Bullseye 



In this game, up to 20 players throw 
darts al a target with 10-. 20-. 30-. and 
40-point zones. The objective is to get 
200 points. 

You have a choice of three methods 
of throwing: 

Throw Description 

1 Fast overarm 

2 Controlled overarm 

3 Underarm 

You will find after playing a while that 
different players will swear by different 
strategies. However, consider the ex- 
pected score per throw by always using 
Throw 3 (program line 220): 



Probable Score 

Bullseye or complete miss 
10. 20. or 30 points 
Anything 




ftOUKD 6 

SIEVE'S TNR0U? 1 
30-PQ1NI ZONE! 
TOTAL SCORE ■ 120 

DARTH'S THROW? 2 
UKEUI 10 POINTS. 
TOTAL SCORE ■ 40 



DARTH'5 THROW? 2 
UHEU! 10 POUTS* 
TOTAL SCORE « 50 

ROUND f 

STEVE'S THR0UT 2 
20-POINT ZONE 
TOTAL SCORE « 190 



Score (S) Probability (P) SxP 

40 1.00- .95 = .05 2 

30 .95-75 = .20 6 

30 75-.4S = .30 6 

10 .45-.05 = .40 4 

.05-.00 = .05 

Expected score per throw= 18 

Calculate the expected scores tor the 
other throws and you may be sur- 
prised! 

The program was written by David 
Ahl of Creative Computing. 



ROUNS 7 

STEVE'S THROU? 3 
UHEUI 10 POINTS. 
TOTAL SCORE • 130 

DARIN'S THR0U? 3 
HISSED THE TARGET! 
TOTAL SCORE * 40 



TOG 



round e 

STEVE'S TMUMT 1 
MLLSEYEH 40 P0IHTS" 
TOTAL SCORE • 170 



DARTH'S THROU? I 
HISSED THE TARGET! TOO 
TOTAL SCORE ■ 30 

ROUND 10 

STEVE'S THROUT 2 
20-POINT ZONE 
TBTAL SCORE « 210 



DARTH'S THROUT 1 

HISSED THE TARGET! TOO MP. 

TOTAL SCORE = SO 

UE HAVE A WINNER!! 

STEVE SCORED 210 POINTS. 



BULLSEYE 
CREATIVE COJIPUTIHfl HQRRISTOUN, HEU JERSET 



SPRINT lAB^^BULLSETE" 



IN THIS SANE, UP TO 20 PLAYERS THROU 
UfTtt 10, 20, 30, AHI 40 POINT ZONES. 
TO SET 200 POINTS, 



DARTS AT A TARGET 
THE OBJECTIVE IS 



THROU 
I 
2 

i 

NOV KANT PLAYERS? 2 



DESCRIPTION 
FAST OVERARH 
CONTROLLED GVERARN 
UHDERARH 



NAHE Of PLATER I 1 T STEVE 
NAME OF PLATER I 2 T BARTH 

ROUND 1 

STEVE'S THROU? 1 
30-POINT ZCWE! 

TOTAL SCORE » 30 

DARTH'S THROU? 2 
UH£U' 10 POINTS* 
TOTAL SCORE * 10 



ROUND 2 

STEVE'S THROU? 3 
HISSED THE TARGET! 
TOTAL SCORE ■ 30 

DARTH'S THROU? 1 
HISSES THE TARGET ! 
TOTAL SCORE * 10 



TCO BAD. 



TOO BAJh 



PROBABLE SCORE 
DULLSEVE OR COHPLETE HISS 
10, 20 OR 30 POINTS 
ANYTHING 



10 
20 
30 
40 
50 
40 
70 



STEVE'S THROU? 1 
20-POIHT ZONE 
TOTAL SCORE ■ 50 

DARTH'S THROU? 1 
HISSED THE TARGET! 
TOTAL SCORE < 10 

ROUND 4 

STEVE'S THROU? 2 
HISSED THE TARGET* 
TOTAL SCORE ■ SO 

DARTH'S THROUT 2 
20-POINT ZOHE 
TOTAL SCORE = 30 



100 



TOO DAD. 



ROUND 5 



I? 1 



STEVE'S THROU! 
BUUSETEH 40 POINTS! 
TOTAL SCORE * 90 



RCUH1) 3 



OARIH'S THROU? 1 
HISSED THE TARGET! 
TOTAL SCORE = 30 



TOO 



100 
UO 
120 
130 
140 
ISO 
UO 

m 

ISO 
190 
200 
210 
220 
230 
240 
230 
240 
270 
2D0 
290 
300 
310 
320 
330 
340 
350 
3ift 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRIHT 
PRINT 
PRINT 



M5);"CREATIVE 



TA 

PRINTiPRINl 

"IN THIS GAHE, UP 

"UITH 10, 20, J0 t 



THANKS FOR THE GArtE . 



COMPUTING HORRISTOUN, HEU JERSEY 4 



TO 20 PLAYERS THROU DARTS AT A TARGET" 
AND 40 POINT ZONES. THE OBJECTIVE IS" 
"TO SET 200 POINTS.*! PRINT 

nHflOU",TAR<20>; "DESCRIPTION*;! AB(45)J"PR0*ADLE SCORE" 
|-;TAD<20J;*fAST 0V£RARH";TAB(45);"BULLS£YE OR CGflPtETE HISS 
2 - ;TAD(20J; M CONTROtLED OVERARfl*; TAB 1451 ;*10 f 20 OR 30 POINTS 1 
3";tab<20);"unberaahmai<45>;-ahtthing';pri*u 

ftin A*<20),S<20)»tfl»fl>t H*0I R"Ot FOR 1=1 TO 20i S(!)*0: NEXT I 

INPUT "HOU NANY PLATERS";N: PRINT 

FOR I«1 TO H 

PRINT "HARE OP PLATER t";I;ilHPUI Alt!) 

NEKT I 

R-Rtli PRINT; PRINT "ROUNDER 

FOR 1-1 TO N 

PRINT: PRINT AUIP'S THROU-;: INPUT T 

IF T<0 OR T>3 THEN PRINT "INPUT 1, 2, OR 3»"t GOTO 170 - 

ON I GOTO 200, 210, 200 

PI-.65I P2-.5S; P3*.5i P4".5i GOTO 230 

P1*.99t P2*.77i P3-.43: P4=,01: GOTO 230 

PI*. 95: F2>*73t P3«-43; P4=.0S 

U=RHD(1» 

IF U>-P1 THEN PRINT "BULLSEYE*! 40 POINTS! "iBMO: 60T0 290 

IF U>=P2 THEN PRINT "30-POINT Z0HE*":B*30i GOTO 290 

IF U>-P3 THEN PRINT "20-PGINT 20N£":l»2O: GOTO 390 

IF U>»P4 THEN PRINT "WHEW! 10 POINTS. ":B*10i GOTO 290 

PRINT "HISSED THE TARGET! TOO BAB."> B=0 

sm-sm-Bi PRIHT "TOTAL SCORE ■"jSUIS HEXT 1 

FOR 1-1 TO H 

IF S(I)>-200 THEN It-H+li U<H)= 

NEXT 1 

IF H-0 THEN ISO 

PRINTt PRINT "Ut HAVE A UlttNERH": PRINT 

FOR !•! TO HI PRIM AHUU>);" SCORED'jStUd)) ;"POINfS,": NEXT 
PRINT: PRINT "THANKS FOR THE GAHE.": END 
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BUNMY 
CREATIVE C0NPUTIN8 NORRISTOUN, NEU JERSEY 



UN 
IUI 
HHttYl 

BWWY8UN 
UPfNVOUMIfT 

NYBUNNYBUNN 
YBUNHYBUNKY 

UNNYBUMtYBU 
NNYBUMYBUN 
NYBUNNYBUNNY 
YBUMYBWCNTB 
BUNHYBUNNTBU 
UNNYBUHNTBUN 
NNT&UNNTSUK 



ihmyi 
nybunnybun 

UNNYBUNNYBtlN 
NNY8UHHYBUNNYB 
UNWYBUilNYBUHNYB 
YBUNWYBURHYBUflNY 
NNYBUNHYBUNNYBWN 
UNHYBUfWYBUMNYBW 
BUHNYBiMNTBtmNYB 
YBUNNYBUNNYBUNNY 
NTBUHNYBUNHYBIMN 
MNYBUNNYBUN*YBU 
UMYBUNNYBUNMYB 
BUNNYBUHNYBUKH 
TBUHflYBUNNYBU 



NYBUNKTBUJMYBUNrtYBUNNY 
YBUNHYBUNrtYBUNMYIUriM 
BfllMYBUNNYBUNNYBU 
NNYBUNNYBUNNY 
NYBUHNYBUN 
YBUWIYBU 
UNNYBUHKYBURN 
NYBUNNYBUW1YBUNNYB 
tlHNYBONNYBUWtYSUNHYBU 
BUNNTBUNNYBUNNYBUNNYBUN 
NYBUNNYBUNNYBUNNYBUNNYBIM1 
HKTBUHNYBUNNYIUNNYBUNHTBUHNY 
UHMTBUNH UNNYBUNKYBUNHYBUNNY 
BUNNYBUN ONNTBUNNYBUNNYBUNNYB 
TBUAKYBUN UNNYBUNNYBUWrfBLWitYB 
NYBUNMYBUN BUNNYBUflNYBUNNTBUflNYB 
NNYBUNNYBUNNYBUHNTBlJNNYIUNNYBWtNYB 
UNNYBUNNYBUNNYBtJNNYBUNNYBIJNHYBtfNllYB 
NNYBtJMYBUNNYBttNtfYBUWtYBUMYBUtfNY 
RYBUMtYBUANYBUANYBUMYBWirrBUNNY 
YBUNNYBUNNYBUNNYIUNNYBUNNYBUM 
UNMYBUKNTBUNttYBUMItYBtlMVYSUNff 
BUWiYBUNNYBUNNYBUNNYBUN Y 
YBUN YBUNKYB NYBU I 
BUKNY NYBLHMY8 U 

YBUtfN U YtlfflNYB It 

NT BUM NY BUNNY MYBUKH 
NNYBUNNYIUKKYBUNNY IfflK 



INM 


N Y 


It YWRNYBU 


BO 


KH 


It Y Y 

Hit UNMY 

MY 

HI 



HORRISTOUH, NEU JERSEY' 



GAMES' 



TO PRINT lflBt3J)rBU*«Y- 

29 PRINT TABM3> {"CREATIVE COMPUTING 

3D PAINTs PRINT: PRINT 

100 REN "BUNNY" FROH AHL'S 'BASIC COMPUTE 

110 REN 

120 FOR I-O TO 4t RE*0 B!l): NEXT I 

130 0O5UI 260 

140 L»64r REN ASCII LETTER CODE... 

150 REN 

HO PRINT 

170 READ It If X<0 THEN 140 

175 IF K>128 THEN 2« 

ISO PRINT TAB<X>;t READ Y 

1*0 FOR I*X TO Yt J=I-5*INTU/5> 

200 PRINT CHR»1L«B<J)>; 

210 NEXT I 

220 60T0 170 

210 REN 

240 BOSUB 260: GOTO 430 

250 REM 

240 FOR 1=1 TO 4: PRINT CHRfCIO);: NEXT I 

270 RETURN 

2B0 REN 

2*0 BATA 2,21,14,14,25 

340 BATA 1,2,-1,9,2,45,30,-1,0,3,43,32,-1,0,7,41,52,-1 

310 BATA T;*,37,50,-1,2,1t,36;5lVlf3»13,34,49 t -1,4,14,32,48,-1 

320 BATA 5,*3, 31, 47, -1,6, 14, 30, 43,-1, 7, 17,29, 44, -1,8, 19, 28, 43, -I 

330 BATA f r 20,27 r *1 f --1 t tO f 21 r 24 t 4# r -l r 11 r 22 r 25 r M^1^2 f 22 f 24 l 34 f -1 

340 BATA 13,34,-1,14,33,-1,13,31,-1,17,29,-1,18,27,-1 

330 BATA 19,26,-1,16,28,-1,13,30,-1,11,31,-1,10,32,-1 

340 BATA B, 33, -1,7, 34,-1, 6, 13,14, 34,-1,5, 12,16,33,-1 

370 BATA 4, 12,16, 35, -1 ,3,12, 13, 33, -1,2,33, -1,T, 33,-1 

3B0 BATA 2,34,-1,3,34,-1,4,33,-1,4^3^-1,10,32,34,34,-1 

390 BATA H,17»19 V 23,28,31,J3,33,-1 V 13,I9,23,30,3A,U,-1 

400 BATA 14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1 

410 BATA 12,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1 

420 DATA 10, 11, 17,18,22,22,24, 24, 29,29,-t 

430 DATA 22,23,24,29,-1,27,29,-1,28,29,-1,4094 

440 REN 

430 END 
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This program is an invaluable aid for 
preparing speeches and briefings 
about educational technology. This 
buzzword generator provides sets of 
three highly-acceptable words to work 
into your material. Your audience will 
never know that the phrases don't 
really mean much of anything because 
they sound so great! Full instructions 
for running are given in the program. 

This version of Buzzword was written 
by David Ahl. 



BUZZUCRD GENERATOR 
CREATIVE COMPUTING NORRISTOWH, NEtl JERSEY 



THIS PROGRAH PRINTS H16HLY ACCEPTAtLE PHRASES IN 
'EBUCATOR-SPEAK'THAT YOU CAN WORK INTO REPORTS 
AMI SPEECHES* UHEHEVER A QUESTION HARK IS PRINTER, 
TYPE A 'Y' FOR ANOTHER PHRASE OR '*' TO RUN. 



HERE'S THE FIRST PHRASEl 
AltLITT VERTICAL AGE PERFORHANCE 

t 1 



DIFFERENTIATED CREATIVE FACILITY 



F Y 

1AHIPULATIVE LEARNING ENUIRQNflEHt 



ABILITY CREATIVE 6RQUPIIB 



T 1 

TAVISTOCK HQN-6RA&ED REIWfORCEMNT 



10 PRINT TABC2*>;"BUZ2U0RD GENERATOR* 

20 PRINT TABU3>;"CR£ATIVE COMPUTING NORRISKIl*, NEU JERSEY" 
30 PRINTiPRIHTiPRIHT 

40 PRINT -THIS PR06RAH PRINTS HI6HLY ACCEPTABLE PHRASES IN" 
50 PRINT "CBUCATCR-SPCAti'THAT YOU CAN UGRK INTO REPORTS" 
60 PRINT 'AND SPEECHES, WHENEVER A QUESTION HARK IS PRINTED," 
70 PRINT "TYPE A T FOR ANOTHER PHRASE OR 'N' TO MIT, B 
80 PRINT:fRINT:PRI»T "HERE'S THE FIRST PHRASCt" 
DIM AtHO) 
FOR 1*1 TO 3? t READ AKI) ; NEXT I 



ft 

too 

110 

120 
130 
ISO 
200 
210 
?20 
2IO 
240 
250 
260 
270 
280 
2?0 



PRINT 

PRINT 

PRINT 

INPUT 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DAT 

DATA 

DATA 

PRINT 



HUtnM3»Ntimti}if~ -; 

AS(IHT<13*RRD(!)+tA)»; v "J 

AfUNT<tJ#RHD<1)*2;>>> t PRINT 

T$ : IF IMT" THEN 110 ELSE 60TO W 

ADUITY ,# f H DASAL H »' i BEHAgiORAL* r -CHIL>-CENTEREO" 

DIFFERENT IATEr*"IISC0VERYVFLEXlBLEVHETEROBEHEOU5" 
, HOH0OENE0US^"HANIPOLAT^VE" f •ml0ULAR t • l "TAVISTOCl: ,, 
lHOmOUALlZEI%"LEARNING B f ''EVALUATIUE\ ,, 0BJECTIVE 1 
CO0NITIVEVENRICHHENTVSCHEDULINGVHW1AN1STK" 

'INYESRATEDVNOH-ORAIEDVTRAINIMO", "VERTICAL AOf 
*HOTlVATI0NAL" ( "CREAnyE- ( "OR0UPINS" f "HODIFICATHm- 
A -ACCOUNTARILITYVPROCESSVCORE CURRICUtUH", w AL0ORITKN* 



PERFORMANCE 
STRUCTURE 1 *, 
"CONE RACK UHEN 



REIHFOffCENENr.-OPEN CLASSSOOtT, "RESOURCE* 



FAClLITT" t "ENVIRONHENT 



YOU HEED HELP WITH ANOTHER REPORTI'lEND 



T T 

NQDULAR MOTIVATIONAL FACILITY 



? Y 

TAVISTOCK HUMANISTIC PtINFQRCENERT 



T T 

DISCOVERY HOUVATIONAL GROUPING 



t T 

HETER08ENEOOS VERTICAL AGE PROCESS 

I Y 

ABILITY LEARNING PROCESS 



1 Y 

FLEXIBLE TRAINING CORE CURRICULUN 



1 N 

CQflE SACK UHEN YOU NEED KELP WITH ANOTHER REPORT? 
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This program prints out a calendar 
for any year. You must specify the 
starting day of the week of the year in 
Statement 130. (Sunday {0), Monday 
H), Tuesday (-2). etc.), Youcandeter- 
mine this by using the program WEEK- 
DAY, You must also maketwochanges 
for leap years in Statements 360 and 
620- The program listing describes the 
necessary changes- Running the 
program produces a nice 12-month 
calendar. 

The program was written by Geof- 
frey Chase of the Abbey, Portsmouth, 
Rhode Island. 



4* 5? M»OMW##M**M KMCti **«mm*H«mim 304 •* 

S « F B T F 3 

tt*4«44t»«fM4*4*»t444»44>4«4«tftM*»4«44»*»»4*444444*4«444* 









t 


2 


3 


4 


5 


A 


7 


8 


1 


10 


11 


12 


13 


14 


15 


U 


17 


IB 


If 


20 


21 


22 


23 


24 


25 


26 


2? 


28 


29 


JO 


31 





CALEflIM 
CREATIVE CMPUTIW MOMlSI0Ut1 t VEU JERSEY 



44 «•**•*•*•#•*•#**»• JANUARY »H»wiM»»M*fM US it 
3 H T K I F a 



1 


2 


1 


4 


5 


* 7 


1 


1 


10 


11 


12 


U 14 


15 


16 


17 


II 


1? 


20 21 


22 


23 


24 


;s 


24 


2? 21 


2? 


30 


31 
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M 31 

S M I II T r s 

•■•••••••■**••*■•••••••••*•••••••«••••*•••••••*•*•••••••••» 

12 3 4 

i 4 7 a v 10 it 

13 13 14 15 U 17 IB 

It 20 21 22 23 24 25 

26 27 21 



• • 90 •M»MtnMMtm APRIL ••••»«**•>"•"••» 275 '* 

S H T V I F 8 

••••••••••••••••(*•••••••••••••••••■••••••••■••*•••■••*••*• 

\ 



2 


i 


4 


S 


1 


7 


3 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


1? 


21 


21 


22 


23 


24 


25 


26 


27 


2! 


' 2? 


30 















** 120 • ••4t4#4»M444l«4» HAY 4444444444*M4»»44 2*3 •* 

S H T I T F S 





t 


1 


J 


4 





6 


; 


3 


? 


10 


11 


12 


13 


14 


15 


14 


17 


18 


1? 


20 


21 


22 


23 


24 


23 


26 


27 


2* 


29 


JO 


31 









4* 191 444M444M44444444 JUNE 444444444444*44444 2H 4* 

I I ! H t t S 

4444444444444444444444444444444444444*4*444444*444444444444 

1 2 3 

4 5 A ? 8 f 1* 

II . 12 13 14 15 U 17 
18 If 20 21 22 23 24 

23 24 27 28 2? 30 
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#• 161 t4444***4»*t**M*» JULY ••*»*»»■•*»■•*••»* 194 4- 

3 1 r 1 r r s 

tt9Mt44MM4*«444«44t*4*«4444#4M4444*t*4-44i14*44*M4*44#» 



2 


3 


4 


5 


t 


7 


8 


r 


10 


II 


12 


13 


14 


13 


11 


1? 


18 


19 


20 


21 


22 


23 


24 


23 


24 


27 


29 


29 


30 


11 













8 N T II T f S 

Ml 













1 


2 


3 


4 


1 


4 


7 


8 


f 


10 


11 


12 


13 


14 


15 


u 


17 


IB 


19 


20 


21 


22 


23 


24 


23 


It 


27 


21 


2? 


30 


31 















44 212 4444444#44*»44*44* AUGUST »**T*jFtM*«HM** 133 44 
I I T U T F 8 

ft************************* ****** »***•** a an »»AMOMM*04 







l 


2 
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7 


1 
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10 


11 


12 


13 


14 


IS 


16 


17 


18 


1? 


20 


21 


22 


23 


24 


23 


26 


27 


28 


2» 


30 


31 







*• 243 4444444M4M*4M44SEPTEIB€R444*4*44*44444»04 122 44 

8 H T II I F S 

1 2 



I 


4 


5 


1 


? 


8 


9 


It 


II 


12 


13 


H 


13 


14 


17 


10 


1? 


20 


21 


22 


23 


24 


23 


24 


27 


28 


2? 


30 



•4 273 44M44»#4»»#44t;44» OCTOBER #»*4t#4444*44#*»«* 92 4* 

1 n 1 « 1 r 3 

4*>4t44#444444444*44*94444M4444*44444444444t4*4444444444*4 



1 


2 


} 


4 


3 


4 


7 


8 


? 


10 


11 


12 


13 


14 


15 


14 


1' 


18 


If 


20 


21 


22 


23 


24 


25 


24 


27 


2B 


2* 


30 


11 











44 304 «M*44f»44M44#»i NOVEMBER-****************** 61 14 
8 I T II T F S 

*f4444*t«t444*M44tt«4**44M444*M4M*4*M4»««4M4»44f444M 

12 3* 

5 4 7 8 1 10 11 

12 13 14 15 U 17 18 

It 20 21 22 23 24 25 

2* 27 28 2? 30 



240 PRINT 
230 PRIRT 
240 PRIHT 

270 PRINT 

2bo prih? 

290 PRIHT 
300 Fit IK T 
310 FRIHT 
320 PRIWT 
330 PRINT 
340 PftlrtT 



*;j GOTO J50 
";i BOTO 350 



10 PRINT TAI<32); l, C4L£HDAIt <v 

20 PRIHT TAB<15>;"C8EATIVE C0RPUTIM8 HOARISTOUR, HEU JERSEY" 

30 PRlHTtPRlHTtPRIRT 

100 REH VALUES FOR 1978 - SEE NOTES 

110 DIM M(12> 

120 FOR I = t TO 4: PRIRT CHHtU0>;i HEKT I 

130 B«Oi R£R 1978 STARTS OH SUM AT (O-SIW, -1-HGN, -2-TUES..*) 

140 3*0 

150 REA READ BAYS OF EACH rtQNTH 

140 FOR R-0 TO 12t READ HCHM HEX! N 

170 REM 

180 FOR N»1 TO 12 

190 PRINTi PRINT! S"8+«(N-1J 

200 priht h *p h ;S;tMC7J; 

210 FOR 1*1 TO 18: PRINT "4-;i REXT I 

220 OR N GOTO 230,240,250,240,270,280,290,300,310,320,330,340 
230 PRIHT " JANUARY ";; 60M 330 
FEBRUARY 11 ;! GOTO 330 
HAftCH "{I &0IO 350 
APRIL 
HIT 

JUKE "ji 0870 350 
JULY **;; SOTO 350 
AUGUST ";; 08T0 350 
3EPT£HBER*Jt OOTO 350 
OCTOBER *;t OOTO 350 
NOVEMBER*;! OOTO 350 
BECEHBER*; 
330 FOR 1*1 Tl 18; PRIHT ■*■;■ NEXT 1 
340 PRIHT 343-S;*44"; 
370 REN J44-S; OR LEAP YEARS 

380 PRUT CHIOHIH PRINT ■ S H T «"J 

390 PRIRT ■ T F 8" 

400 PRIRT 

410 FOR 1-1 TO 39i PRINT "4";i NEXT I 
420 REH 

430 FOR U*1 TO 6 
440 PRIRT CHRI(IO) 
450 PRIRT TABM) 
440 REH 

470 FOR G=l TO 7 
460 B-D4I 
490 P2*l-S 

500 IF I2>H(H> THEM 580 
510 IF B2>0 THER PRINT »2; 
520 PRIRT TAB(448«B>; 
530 HEXI 8 
540 REH 

550 IF 02«MR> THEN 590 
540 NEXT • 
570 REH 
580 B-D-8 
590 NEXT R 
4D0 REH 

410 FOR 1-1 TO 6t PRIHT CKRidOIJi REXT 1 
420 BATA 0,31,28,31,30,31,30,31,31,30,31,30,31 
430 REft 0.31,29, ..., OH LEAP YEARS 
440 EH 
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In this program, the computer 
pretends it is the cashier at your 
friendly neighborhood candy store. 
You tell H the cost of the item(s) you are 
buying, the amount of your payment, 
and it will automatically (!) determine 
your correct change. Aren't machines 
wonderful? Dennis Lunder of People's 
Computer Company wrote this 
program. 

CHAN6E 
CREATIVE UAPUTMB H0RRI$TOMf, HEU JERSEY 



I, TOUR fftlEMLY HICROCONPUTER, WILL 
THE COBttCT CHANGE FOR I TEAS COSTING 



COST OF I1EBT 80.60 
MOUNT OF PAYKEftTt 100 
YOUR CHANGE, I 19.20 
1 TEH I0LLH IIU(S> 
1 FIVE B0LLAR9 I1LL(3) 

4 ONE DOLLAR B1LUSI 
1 DMEm 

1 HICXEL(S) 

5 f EHNViS) 



KTEfMIHE 
UP TO t10< 



THAN* YOU, CONE A6AIN. 



1.00 



COST OF ITEH? -19 
AKQUNT OF PAYffERTT 
YOUR CHANGE, I .81 

1 ORE HALF D0LLAR18) 

1 QUARTERN) 

1 NICKEUS) 

1 PENNTtS) 
THANK YOU, COHE AGAIN. 



COST OF ITEHT K01 
AflOUNT OF PATENT? 3 
YOUR CHAH6E, I 3.99 

3 ORE I0LLAR BILL (S» 
t ONE HALF DOLLAR(S) 

1 QUARTER(S) 

2 l»IHE(S) 

4 PENNY ($) 



PRINT 
PRINT 
PRINT 
PRINT 

PRINT 



10 

20 

25 

JO 

90 

W 

100 

120 

130 

MO 

150 

155 

160 

1?0 



IBS 
1?0 
200 
210 
215 
220 
225 
230 
240 
250 
255 
260 
270 
280 
205 
290 
300 
310 
315 
320 
330 
340 
343 
350 
360 
370 
300 
390 
400 
410 



TA8(33)rCHAR6E* 

TAR( 1S> I "CREATIVE CONFUTING NGRRISTCWH t HEW JERSEY 1 ' 

miTiPRun 

-I, YOUt FRIENOLT NICROCOHPUTER, UILL 

"THE CORRECT CHAHfiE FOR ITEHS COSTINS 
PRlHTtPRINT 
PRINT "COST OF ITEfl-J iINPUT AiPRINT 
C"P-Ai*=C;XF COO THEN 90 
PRENT "CORRECT AHOUNT, THANK YOU." 
GOTO 10 

IF DO THEN 120 

PRINT "SORRT, YOU HAVE SHORT-CHANCE* HE 
GOTO 10 



BETERHIHE" 
UP TO $100*' 



'MOUNT OF PAYrtEHT'JiIMPOT P 



a-ii 



rt 



PRINT -YOUR CHANGE, l*;C 

l»MTCC/1f> 

IF D-t THEN 153 

PRINT D;"TEN DOLLAR IIU(S> 4 

C=R-Ct*10) 

E=iNT(C/5) 

IF E*0 THEN 183 

PRINT E;"Fm DOLLARS HLLtSJ" 

C"«-(BM0*£»3) 

F-IWKC) 

IF F*fl THEN 215 

PRINT F;"ONE flOLLAft BILKS)" 

C-H-(fi»10*E*5*F> 

C-CMOO 

|>G 

G-INKC/30) 

IF 8=0 THEN 233 

PRINT 6;"0HE HALF DOLLAR(S)'» 

C-N-(6*30) 

H«INT<C/23) 

IF H«0 THEN 295 

PRUT HJ-OUARTER(S)- 

C"H-*6»50tH*25) 

■■INICC/10) 

IF 1-0 THEN 315 

PRINT I;"IIHE(6>" 

C»N-<6*30*H*23*I*IO> 

>lNKC/3> 

IF J = >: THEN 345 

HQHT J("NICKEKS)" 

C»H-(6»50*H*23*I*10*J«5) 

K=IHT<£+.3> 

IF K=0 THEN 360 

PRINT K;"P£NNT(S) M 

PRINT "THANK TQU, COHE AGAIN/ 

PR1NT:PRINT 

60T0 10 

END 
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Checkers 




This program plays checkers. The 
pieces played by the computer are marked 
with an "X", yours are marked "O". A 
move is made by specifying the coordi- 
nates of the piece to be moved (X, Y). 
Home (0,0) is in the bottom left and X 
specifies distance to the right of home (i.e., 
column) and Y specifies distance above 
home (i.e., row). You then specify where 
you wish to move to. 

The original version of the program by 
Alan Segal was not able to recognize (or 
permit) a double or triple jump. If you tried 
one, it was likely that your piece would dis- 
appear altogether! 

Steve North of Creative Computing 
rectified this problem and Lawrence 
Neal contributed modifications to 
allow the program to tell which player 
has won the game. The computer does 
not play a particularly good game but 
we leave it to you to improve that. 

CHECKERS 
CREATIVE CORPUTIHO ftORRISTOUH, NEU JERSEY 

IRIS 13 THE BANE OF CHECKERS. THE COHPUTER IS X, 

MID TBO ARE 0. THE COHPUTE* KILL HOVE FIRST. 

SOUAIES ME REFERRED TO ST A COORDINATE SYSTEM. 

10,0) IS THE LOWER LEFT CORNER 

(0,7) IS THE UPPER LEFT CORNER 

(7,0) IS THE LOUER RIOHT CORNER 

<?,7) IS THE UPPER R1SMT CORNER 

THE COBPUTER WILL TYPE '*T0' UHEH YOU HAVE (WITHER 

JIMP. TYPE TtIO IE6ATIVE HOMERS IF YOU CAHHOT JUHP. 

FROH 1 5 TO 4 



X . X . X . X 

X . X . X . X . 

X . X . X 
X ...... 



'FRONT 2,2 
TOT 3,3 
FISH 6 TO 1 3 



X . X . 

. . x . x 

X . x . 

X 



FRONT 4,0 
TOT 3,1 

FBDH 4 TO 2 2 TO 4 











X 

X 










FIOHT 0,2 

TOT 1,3 

FSOH 4 TO 2 2 



X . X . X . X 
X X . X 

. X . X . X . X 

■ • » I * # ■ ■ 

X . . 
0.0.0.0 
0.0.0*0. 








FIOHT 4,2 
TO? 3,3 

FROM 4 



FRONT 3,1 

TIP 1,3 

♦TOT -1,-1 

FROM 1 3 TO 4 



X 

X 



FRONT 1,1 
TOT 3,3 
*TC? -1,-1 
F«0N 2 4 



. 



X X 

X . X 

X . X 



• • j 

. 

. 

, 







X 
X 

X 

, * 

• • 

0* 





04 2 TO 4 4 TO 2 2 



X . X 
• x , 
X . X 



1 3 



X . X 

X 
X . X 








40 



FROH? 0,0 
10T 1,1 
FIBfl 1 3 



i 



X 
X 

X 



X 

X 

X 



fKOHf 1,1 
TUT 2,2 
FKOtt 3 3 



I < 



X 

X 
X 



f son? 3,3 

lit 2,4 

HON 3 3 TO ft 4 



X 



X 
X 

X 
X 

* * 

* # 







FIBft? O r 2 

MDrtt 2,0 

TO? 3,1 

F88rt 4 4 TO 3 3 



X 
X 

X 
X 



5 PRINT 7A8<32>;"CHECKERS" 

10 PRINT Tfl^(1SJJ"CRWriV£ COMPUTING HORRISTDUN, KEU JERSEY ' 

.15 PRIHT:PRINT:PRINT 

PRINT "THIS IS THE BAKE OF CHECKWS. THE COMPUTER IS X," 
"ANO TOU ARE 0. THE COMPUTER UILL HOV£ FIRST." 
"SCUARE5 Ml REFERRED TO ST A COORDINArE SYSTEH-" 



20 
25 

30 
35 

4C 
45 
50 

33 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRI^T 
PRINT 
PRINT 



"fO,0? 
"(0 t 7) 
"(7,0) 
*(7,7> 



IB 
It 

IS 
IS 



THE 
THE 
THE 
THE 



"THE COHPUTEG 



LOWER LEFT CORNER* 
UPPER LEFT CORNER* 
LOWER RIGHT CORNER" 
UPPER RIGHT CORNER" 
MILL TTPE '*T0' UHEN 



■fU'J Hrt'JE Arf[? THEfi" 



JUHP. TTPE TUO NEGATIVE HUNGERS IF YOU CANNOT JUflP.*" 
PHNT'bPRUIT: PRINT 
Did R14),SI7,7>t8*-1:RfQ)**-?? 
BftTA 1, 6, 1,0, 0,0,-1,0,0,1,0, 0,0, -1,0,-1, 15 

F0RXa0rO7:FORYrOT07:REA0J:IFJ=15THEH18O 

5fX,Y>«Jr0OT02O0 

RESTOREiREABSlX.Y) 

NEXTY^X 
FORX=OTg7:FGftY-OTO?;IFS<X,Y»-1THE«350 

[FS<X.T1'-1TH£«F0RA=-1TOTSTEP2«=6:B0SUflA3O:NFXTR 

IFSU>YJ=-2JHE«F0l»=HT0lSTEP2tf0RB"-1TO1STEP2teO9UB45OlNEXTfi,P 

lfCXTY,XU)0HU4f) 

UaUlV=Y*6:lfUtOORU>70RV<OORV>7THEHfl70 

IF${U,UI=0?HENGOSUB91Os6OTU87O 

IF$<U,VK0THEN8?3 

0=U+A:Y»VtB:IFU<<>ORU<OOftU>70RV>7THEK870 

IF5(U,Vl=OTHENG05UB?10 

RETURN 

IFV=OANBSU,YJ=-1THE«0"fl+2 

IFABS<Y-Vt=2THENg*0f!5 

IFY-7THEN0-Q-! 

IFUsO0RU^7 THENM+1 

F0RC=MTGlST£P2:IFUK<0ORU*C>70RV*GiOrH£N1080 

IFS(U*C,U*G)<OTH£ffG=BM:SOT01080 

lFU-C<00R0-C>70RV-G>7THENI08O 

IFS(U»C,U*G)>OAMOCS(W*C,tf-6)"001*(0-C=XAHOV-0=rniHENO=0-2 

HEXTC:IF0>R<0)THEHR(0>»O:R(1MX:R(2>=T:R(3J=U:ftt4J»V 

fl-0:RETEHtK 

IF R<0)=-99 THEN 1880 

PRINTCHRM30l-FROH-R(U;RC2t"TO"R(3);RM);:R<OI=-t? 

IFR(4>=OTHEHS<R<3),R(4M — 2:Q0T01420 

5IR(3),R<4))*S(8(1),IU2>1 

3lR(n,R(2))*0:IFABS<R(1>-R(3)JO2THENM30 

51<ft<mR(3>)/2,tR(2ItR<4>)/2>sO 

X-R(3>[Y=R<4):IFSIX,Y^-1THENB— 2iFORA=-2rO2SI£P4:6OSUBU>0 

IFS(X,Y>»-2IHENF0RA=-2T02SI£P4:F0RB^2TO2STEP4iC0SU8137O:NEXT8 

1360 «EXTA:IFR10)<>'9?TH£KPRIWTMO-R<3);R(4J::R*0)=-W;GOF01240 
1 345 60T01420 

U=XU:V*r*r:iFU<OCRU>70ft l KOORtf>?THEN1400 

IF5(U,V)-0ANDS(X*A/2 f Y+B/2)>OTHEN60SUB?1O 

RETURN 

PRINT:PR£NT:PRINT:FOftr=?ru0SIEPM:F0RX>0T07;l»5*X:PRIHITAB<I); 

IFS(X,Y>*OTH£RPRl«T-.-; 

IFS!X,Y>»1THEKPRINT"0"; 

[FSIX,YJ="1THENPRIHT - X M ; 

IFSU,Y»=-2TKEHPR!rtPXt»; 

IFg(X,Y»=2THE«PRINT"0*"; 

NEXTXiPRINT" 'iPRINT:NEXTY;PRINT 

FORUOT07 

F0RN*0TQ7 

IF$U,N1 = »0KS(L,RJ=2FH£«Z«1 

IF3(L,H^-10RSa,KI=-2THEMT«I 

REXTH 

HEXTL 

IF KM THEN 1880 

IF TOT THEM 1885 

T=Oi Z=0 

INPUT "FR0fl M ;E f H:X=E:Y=H;iFS(X,YK=OTHEN 1590 

INPUT M0-;A,1:X-A:Y=8 

IFSa,Y)iOAHOABS(A-EK=2ANBAB$<A-EJ*MS<B-H>rHEm7O0 

PR[NTCHRt(7)CHR*M1);;G0T0U70 

1-46 

S<ft,BJ=S(E,HJ:S(£,H)»0rIFABS(E-AK>2THEH1810 

SUE*A)/2 t (HtB)/2)»0 

INPUT "*1fl-;61,tiiIF AKO THEK 1910 

IFS(A1,BlK>00RABSiA1-A>O20RA&S(B1-BK>2THh:iH802 

E=AtH=&:A=AI:B=Bl: 1=1+1 StBOTOI 750 

IFR=7THENS(A,B>=2 

0OT0230 

PRINT: PRINT "I Ulfl*': END 

PRJRTi PRINT, "YOU «IN."I EW . 



.^5 

SO 

90 

120 

160 

180 

200 

JW 

510 
330 
350 
650 
740 
770 
790 
850 
870 
?10 
?20 
940 



10JO 
1035 
1040 
1045 
1080 
1100 
1140 
1230 
1240 
1Z30 
1310 
1330 
1340 
1350 



1370 
1380 
MOO 
H20 
1430 
1470 

iwo 
i5ie 

1530 
15S0 

m: 

1554 
1554 
1558 
1540 
1562 
15A4 
1566 
1370 
1590 
If 70 
1480 
1690 
1700 
1750 
1800 
1802 
1BC4 
1804 
1B10 
1830 
1880 
1SS5 





a 



H 



ihemist 



The fictitious chemical, kryptocyanic 
acid, can only be diluted by the ratio of 
7 parts water to 3 parts acid. Any other 
ratio causes an unstable compound 
whichsoon explodes. Given an amount 
of acid, you must determine how much 
water to add for dilution. If you Ye more 
than 5% off, you lose one of your nine 
lives. The program continues to play 
until you lose all nine lives or until it is 
interrupted. 

It was originally written by Wayne 
Teeter of Ridgecrest, California. 



CHEMIST 

CREATIVE COHPUTINO NORRESTOUN, NEU JERSEY 



THE FICTITIOUS CHEHICAL tfRTPIOCYANIC ACID CAN OHLY BE 
DILUTED IT THE RATIO OF 7 PARTS UATER TO 3 PARTS ACID* 
IF ANT OTHER RATIO 13 ATTEJtPTEl, THE ACID BECOMES UNSTABLE 
AHD SQOH EXPLODES. SIVEN THE AHOUMT OF ACID, YOU HUST 
DECIDE HOW rtlJCK UATER TO ADD FOR DILUTION. IF YQU HISS 
YDU FACE THE tOHSEflUENCES, 
32 LITERS OF KRYPTOCYANIC ACID. HOU HUCH UATER? 77 

J031 YOU MY DREATHE NOH, DUT DON'T INHALE THE funiSi 



3 PRINT TAB<33);"CHEHISr 
6 PRINT TADUS); B CREAT1VE 
8 PRINTiPRIMTiPRINT 



COMPUTING AQSftlSTOWN. H£ti JERSEY' 



11 LITERS OF 
SIZZLE! YOU 
OF QUIVERING 
HOUEVEft, TOO 

24 LITERS OF 
SIZZLE) YOU 
OF QUIVERINB 
HGUEVER, YOU 

47 LITERS OF 
SIZZLE! YOU 
OF QUIVER I MB 
HDUEVER, TCIU 

27 LITERS OF 
GCQB J0D> YOU 



KRYPTOCYANIC ACID* HOU HUGH UATER? 27 
HAVE JUST DEEM DESALINATED INTO A DL03 
PROTOPLASM! 
NAY TRY AGAIN UUH ANOTHER LIFE* 

KRYPTOCYANIC ACID* HOU MUCH UATER? 20 
HAVE JUST DEEN DESALINATED INTO A BLOB 
PROTOPLASM ! 
NAT TRY AGAIN UHH ANOTHER LIFE. 

KRYPTOCYANIC ACID. HOU MO UATER? 82 
HAVE JUST DEEN DESALINATED INTO A DLOB 
PROTOPLASM 
RAY TRY AGAIN UITH ANOTHER LIFE. 

KRYPTOCTAHU ACID, HOU MICH UATERT 43 

HAY DREATHE HOU, DUT DON'T 1MHALE THE FUftESI 



S LITERS OF KRYPTOCYAHIC ACID. HOU HUCH UATER? 9 
SIZZLE* YOU NAVE JUST DEEN DESALINATED INTO A DLOD 
OF QUIVEftlHB PRQT0PLASH1 
HDUEVER, YOU NAY TRY A6AIN UITH ANOTHER LIFE. 

It LITERS OF KRYPTOCYANIC ACID. HOU HUCH UATERt 28 
SIZZLE? YOU HAVE JUST DEE* DESALINATED INTO A DLOD 
OF QUIVERING PROTOPLASM 
HDUEVER, TOU HAY TRY A0AIN UUH ANOTHER LIFE. 

48 LITERS OF KRYPTOCYANIC ACID. HOU HUCH UATER? 



THE FICTITIOUS CHECftUAL KRYPTOCYANIC ACID CAN ONLY BE" 
DILUTED BY THE RATIO Of 7 PARIS UATER TO 3 PARTS ACID." 
IF ANY OTHER RATIO IB ATTEMPTED, THE ACID BECOMES UNSTABLE* 
AND SOON EXPLODES. OIVEN THE AROUNT OF ACID, YOU HUST" 
DECIDE UNO HUCH UATER TO ADD fOD DILUTION. IF YOU HISS" 
TOU FACE IKE CGKSEMEHCES." 



10 PRINT 

20 PRINT 

30 PRINT 

40 PRIHT 

50 PRINT 

60 PRINT 

100 A-INT(RNDO>«3») 

110 U«7*A/3 

120 PRINT A; "LITERS OF 

130 INPUT R 

1M D»ABS<W-R> 

150 IF D>U/20 THEN 200 

160 PRIHT "GOOD JODI YOU 

t?0 PRINT 

ISO GOTO 100 

200 PRINT "5IZZLE1 YOU 

210 PRINT H 0F OUIVEREN6 

220 T«T*1 

230 IF T- 

240 PRINT 

250 BOTO 100 

240 PRINT "YOUR 

270 PRINT "YOUR 

2B0 END 



KRYPTOCYANIC ACID. HOU HUCH UATER' 



MAY DREATHE NOU t DUT DON'T 1HHALE THE FUNES! 



HAVE JUST BEEN 
PROTOPLASM" 



DESALINATES INTO A BLOB" 



THEM 260 
HBUEVER, 



YOU MY TRY AGAIN UITH AHQTHER LIFE,* 



? LIVES ARE USED, BUT YOU URL B£ LOW! REHEHBEREB FOfl 
CONTRIBUTIONS TO THE FIELD QF CONIC BOOK CHEHISTRT." 



BREAK IN 130 



AO 



Chief 



In the words of the program author, 
John Graham. "CHIEF is designed to 
give people (mostly kids) practice in 
the four operations (addition, mul- 
tiplication, subtraction, and division). 

It does this while giving people some 
fun. And then, if the people are wrong, 
it shows them how they should have 
done it. 

CHIEF was written by John Graham 
of Upper Brookville, New York. 





2 PRINT TABOO) "CHIEF 1 * 




4 PRINT TABUS) "CREATIVE C0HPUTIH8 NMRISTOUN, NEU JERSEY 4 


CHIEF 
CREATIVE COMPUTING ftOtiftlSTOUN, NF.U JERSEY 


4 PRIHTiPAINT:PAINT 


10 PRINT " I AH CHIEF MURDERS FREEH, THE GREAT IHDLAfl HATH GOD.* 


20 PRINT "ARE YOU REABY TO TAKE THE TEST YOU CALLED HE OUT FOR-; 




30 INPUT At 




40 IF A*= "TES" THEN 40 


I AH CHIEF NUH8ERS FitEEK, THE 8REAT INBIAN HATH GOD. 


50 PRINT "SHUTUP PALE FACE UITH WISE TOHGUE." 


ARE YOU READY TO TAKE THE TEST YOU CALLED HE OUT FOCt* YES 


40 PRINT « TAKE A NUMBER AND ADD 3. BIVIDC THIS HUHBER BY S AND* 


TAKE A HUME* ANI AM 3. DIVIDE THIS NUNBER !Y S AMD 


70 PRINT "HULTIPLY BY 8, DIVIDE BY 5 AND ADD THE SAHE. SUBTRACT 1 


MULTIPLY IT 6. DIVIDE BY 5 AHO ADD THE SAHE. SUBTRACT 1. 


90 PRINT " WHAT DO YOU HAVE*; 


what do ray have* 12 


90 INPUT D 


I BET YOUR KUrtBER WAS 22 UAS I RI8HT? HO 


100 LET C * *DU-3>»3/8*3-3 


UHAT UAS YOUR ORIGINAL NUNBER? 32 


110 PRIH1 "I BET TOUR NUNBER UAS • C" UAS 1 RIGHT"; 


SO YOU THINK YOU'RE SO SHART, EH? 


120 INPUT Of 


NOU UATCH. 


130 JF M«"HS - THEN 510 


32 PLUS 3 EQUALS 35 , THIS DIVIDED BY 3 EQUALS 7 ; 


140 PRINT "UKAT UAS YOUR ORIGINAL MMBER"; 


THIS TIHES G EQUALS 36 . IF UE DIVIDE BY 3 AND ADD 3, 


130 INPUT K 


UE GET U.2 f WHICH, MINUS 1 EQUALS 15.2 . 


13S IET f«K*3 


NOU DO YOU BELIEVE HE? NO 


140 LET G-F/3 


YOU HAVE rtABE HE MAIM! 


170 LET K»G*e 


THERE HUST BE A GREAT LIGHTNING BOLT! 


180 LET 1*11/5+5 




190 LET J*I-1 




200 PRINT "SO YOU THINK YOU'RE SO SHART, EH?" 


X X 


210 PRINT "NGU HATCH." 


X X 


230 PRINT K'PLUS 3 EQUALST". THIS DIVIDED BY 3 EOUALS'Q";" 


X X 


240 PRINT "THIS TIHES 8 EOUALS'H". IF UE DIVIDE BY 3 AND ADD 5 f " 


X X 


250 PRINT "UE GET'I", UHICH, MINUS t EWAIB"J"." 


X X 


240 PRINT rt NOU 00 YOU BELIEVE HE"; 


X X 


2?0 INPUT 1% 


X X 


290 IF 1$ --YES" THEN 510 


X X 


293 PRINT "YOU HAVE HADE HE HAKIM" 


X X 


300 PRINT "THERE HUST 8E A GREAT LIGHTNING BOLT!" 


X XXX 


310 PRINTiPRIRT 


X X 


330 FOR X*30 TO 22 STEP -t 


XXX X 


340 PRINT TABtXI "X X" 


X X 


350 NEXT X 


X X 


340 PRINT TAB(21) "X XXX" 


X X 


370 PRINT TAB<20> "X X" 


X X 


380 PRINT TAHITI "XXX X*' 


X X 


390 FOR Y«20 TO 13 STEP -1 


X X 


40O PRINT YABtY) "X X* 


X X 


410 NEXT t 


X X 


420 PRINT TABU2) *XX» 


XX 


430 PRINT TABU II "X" 


X 


AAO PRINT TA8UO) ■*■ 


* 


450 PRINT :PAINT"NBNNIMNNBflNIIHHfl8BRNIINR*:PRIHT 




470 PRINT "I HOPE YOU BELIEVE HE HOU, FOR YOUR SAKEM" 


MIIHHNNIIHIIHJIIHIllNtffM 


480 GOTO 320 




5t0 PRINT -DYEIMM" 


I HOPE YOU BELIEVE HE HOU. FOR YDUft SAKF 1 t 


520 END 



43 



This program is an adaptation of a 
mathematical gam© originally describ- 
ed by Martin Gardner in the January 
1973 issue of Scientific American. Up 
to a 9x9 grid is set up by you with the 
upper left square a poison square. This 
grid is the cookie. Players alternately 
chomp away at the cookie from the 
lower right. To take a chomp, input a 
row and column number of one of the 
squares remaining on the cookie. All of 
the squares below and to the right of 
that square, including that square, 
disappear 

Any number of people can play — the 
computer is only the moderator; it is 
not a player. Two-person strategies are 
interesting to work out but strategies 
when three or more people are playing 
are a real challenge. 

The computer version of the game 
was written by Peter Sessions of 
People's Computer Company. 

CHOHP 
CREATIVE COSTING AORftlSTOWN, N£W J£R5£T 



FLAYER 1 

COORDINATES OF CHOflP (R0U,C0LU*UOT 5,6 



12 3 4 5 6 7 

p ****** * 

******* 
******* 
******* 
f f f f * 



PLAYER 2 

COORDINATES Of CHOHP <flOU t €QUMN>? 3,2 



12 3 13 6 7 1 
p ***** * 

* 

* 
* 



PLAYER 1 

coordinates or CHonr (Rgu.colutwj? 4,4 

HI FAIR* YOU'RE TRYING TO CHOHP ON ErtPTY SPACE! 
PLAYER 1 

COORDINATES CF CHOHP (Mtl»COLUMI)i 2,2 



THIS IS THE GAME OF CHOHP (SCIENTIFIC AHERICAN, JAN 1?73> 

UAttT THE RULES 11<Y6S t 0«KO*)T 1 

CHOHP IS FOR I Oft t(0R£ PLAYERS (WfiAHS ONLY). 

HEftE'S HOY A I0ARI LOOKS (THIS ONE IS 5 BY ?)i 



1 
2 

3 
4 
5 



12 3 4 3 6 7 
p ***** * 
******* 

******* 

****** * 



B Y 



THE BOARD IS A BIO COOKIE - R ROUS HIGH AND C COLUMNS 

UIDE. YOU INPUT R AH? C AT THE START. IN THE UPPER LEFT 

CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE UNO 

CHOHPS THE POISON SQUARE LOSES. TO TAKE A CHUflP, TYPE THE 

ROU AM COLUMN OF ONE OF THE SQUARES OH THE COOKIE. 

ALL OF THE SOUARES BELOU ANfi TO THE RIGHT OF THAT SMJME 

(INCLUDING THAT SQUARE, TOO DISAPPEAR -- CHOHPII 

NO FAIR CHOHPINB SOUARES THAT HAVE ALREADY DEEH CHOHPEB, 

OR THAT ARE OUTSIIE TNE ORIGINAL DIHEHSIONS OF THE COOKIE. 

HERE U£ SO... 

HOU HAJtY PIAYERS? 2 
HOti NAhT ROUST 8 
HOU AMY CQLUftHS? 7 



9 ? 





12 3 4 5 6 7 


S ? 






1 


p ***** * 








1 


• 








1 


* 








4 


• 








5 


• 








1 


t 








; 


• 








i 


* 








PLAYfiA 


2 








COORDINATES OF CHOHP 


(R0U f C0LUftH>T 


i»a 




1 2 3 4 3 6 7 8 9 






1 


P 








2 


* 








1 


• 








4 


* 








5 


* 








1 


• 








7 


• 








a 


* 








PLATER 1 








COORDINATES OF CHOHP 


(ROU 


.COLUMN) T 


2*1 




I2J4347B* 






1 


P 








t 










3 










4 










5 




■ 






i 










? 










1 










PLAYER 


2 








COORDINATES OF CHOftP 


(ROU, 


COLUMDT 


"-1 


YOU LOSE, PLAYER 2 









AGAIN (1-fES; t»N0!>? 
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10 

20 
JO 
40 

iOO 

110 

120 

130 

HO 

130 

140 

170 

160 

HO 

200 

210 

220 

230 

2*0 

230 

260 

270 

260 

290 

300 

310 

320 

330 

340 

350 

310 

370 

372 

37J 

377 

37? 

360 

390 

400 

410 

420 

430 

140 

450 

460 

470 

460 

190 

300 

510 

130 

140 



13 THE BANE OF CHOMP (SCIENTIFIC 
THE RULES U-YES, O-NOH"; 

340 



AMERICAN, JAN 1973) L 



"CNGHP IS FOR 1 OR MORE PLAYERS C HUMUS OHUK" 



"HERE' 
340 



S HOU A IGAKB LOOKS (THIS 0«E IS 1 BY 7):" 



PftiftT TA8(33); - CH0KP" 

HINT TA6U3>f*CfiEATIVE CQrtPUIING NOfiftlSTOWN, NCU JERSEY" 

PRINTsPftlNIlPRINT 

•in A(io,it) 

REH **» THE SAME OF CHOMP *«* COPYRIGHT PCC 1?73 **9 

PRINT 

PRINT ■IHH 

PRINT "UANT 

INPUT R 

If R"0 THEN 

F»1 

R"5 

C«7 

PRINT 

PRINT 

PRINT 

605 U* 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRIN1 

PRINT 

PR INI 

PRINT 

PR IN I 

PRINT 

REM 

F-0 

FOR 

FOR 

All i 

*EXI 



"THE HARD 18 A BIG COOKIE - R ROUS HIGH AND C COLUHNS" 
■yilE. TOU INPUT R AND C AT THE START. IN THE UPPER LEFT* 
-CORNER OF THE COOKIE IS A POISON SflUARE <PU THE ONE UHIT 
"CHONPS THE POISON SQUARE LOSES. TO TAKE A CHOMP , TYPE THE" 
-ROB AN! COLUMN OF ONE OF THE SQUARES ON THE COOKIE.' 
"ALL OF THE SQUARES BElQU AMI TO THE RI6HI Of THAT SQUAHE" 
"(INCLUIINO THAT SQUARE, 1001 DISAPPEAR - CHOHPH* 
•NO FAIR CH0HPIN6 SQUARES THAT HAVE ALREADY BEEN CHORPED," 
"OR THAT ARE 0UTSI6E THE ORIGINAL DIMENSIONS OF THE COOKIE- ' 

"HERE UE BO..." 



I"1 

J"l 

J>*< 

J 



TQ 
TO 



'HOU KANY PLAYERS" 



NEXT I 

PRINT 

PRINT 

INPUT P 

11-0 

PRINT "HOU MANY ROUS"; 

IKPUT R 

IF R <« 9 THEN 470 

PRINT "TOO MANY ROUS (9 IS MAXIMUMS ROU, ■; 

SOTO 420 

PRINT "HOU NfiltY COLUNHS*; 

INPUT C 

IF C <■ 9 THEN 530 

PRINT "TOO NAftY COlUMS 19 IS MAXMUHk HOU, 

GOTO 470 

PRINT 

FOR 1*1 TO R 



330 FOR J=l TO C 


3*0 AfI,J>*1 


370 NEXT J 


360 


NEXT I 


3tO 


AO,1*=-1 


600 


REN PRINT THE BOARD 


410 


PRINT 


S20 


PRINT TABC7>;-1 2343678 9* 


630 


FOR 1*1 TO R 


640 


PRINT i;TAI<7>; 


6S0 


FOR J»1 TO C 


660 


IF A<I t J>*-1 THEN 700 


670 


If A<I t J)*0 THEN 720 


680 


PRINT ■* '; 


6*0 


GOTO 710 


700 


PRINT "P rt ; 


710 


NEXT J 


720 PRINT 


730 


NEXT I 


740 


PRINT 


730 


IF F=0 THEN 770 


740 


RETURN 


770 


REN GET CHOHPS FOR EACH PLATER IN TURN 


760 


LET IUI1 + I 


79* 


LET P1*I1-INTII1/P)«P 


aeo 


If PI <> THEN 820 


810 


PI=P 


820 


PRINT "PLAYER "JP1 


830 


PRINT "C00R6INATES OF CHQAP iRO.,CGLUIIN) 


840 


INPUT R1,C1 


850 


IF RK1 THEN 920 


860 


IF R1>R THEN 920 


870 


IF CHI TH£N 920 


810 


If C1>C THEN *20 


810 


IF A(R1 f C1l-0 THEN 920 


910 


IF A<R1,CU=-1 THEN 1010 


»10 


OOTO 940 


920 


PRINT "NO FAIR. YOU'RE TRYING TO CHOHP Q 


930 


GOTO 829 


940 FOR I-R1 FO R 


930 FOR J«C1 TO C 


960 


A1I,J>'0 


970 


NEXT J 


980 


NEXT I 


990 


80T0 610 


100O REM END OF GAME DE1EC1ED IN LINE 900 


101O PRIHT "YOU LOSE, PLATER ";P1 


102O PRINT 


1030 PRINT 'AGAIN (HYES; 0=N0!) fc ; 
1040 INPUT ft 


1050 If R-l THEN 340 


1040 ENR 



EflPTY SPACE! 
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Civil 



T T 




This simulation is based on 14 battles 
in the Civil War Facts and figures used 
are based on the actual occurrence. If 
you follow the same strategy used in 
the actual battle, the results will be the 
same. Generally, this is a good strategy 
since the generals in the Civil War 
were fairly good military strategists. 
However, you can frequently outper- 
form the Civil War generals, particular- 
ly in cases where they did not have 
good enemy intelligence and conse- 
quently followed a poor course of 
action. Naturally, it helps to know your 
Civil War history, although the com- 
puter gives you the rudiments. 

After each of the 14 battles, your 
casualties are compared to the actual 
casualties of the battle, and you are 
told whether you win or lose the battle. 

You may play Civil War alone in 
which case the program simulates the 
Union general. Or two players may play 
in which case the computer becomes 
the moderator. 

Civil War was written in 1 968 by three 
Students at Lexington High School, 
Massachusetts: L Cram. L. Goodie, 
and D. Hibbard. It was modified into a 
2-player game by G. Paul and R. Hess 
of TIES, St. Paul. Minnesota. 



ARE THERE TUQ GENERALS PRESENT (ANSWER TES OR NO)? YES 
SELECT A H1HC IT TYPW A KUHKR FRW I 10 14 ON 
REQUEST* TYPE ANY OTHER NUMBER TO END THE SIMULATION. 
BUT '•' IRINQS BACK EXACT PREVIOUS BATTLE SITUATION 
ALLYING TOO TO REPLAY IT 

NOTE: A NEGATIVE FOOD! ENTRY CAUSES THE PROGRAM TO 
USE THE ENTRIES FRO* THE PREVIOUS RATTLE 

AFTER BEQUEST!** A BATTLE, DO YOU UISH BATTLE DESCRIPTIONS 
1AH8UER YES OR NOT YES 



WHICH BATTLE DO YOU UISH TO SIMULATE? 3 



THIS IS THE BATTLE OF SEVEN DAYS 
JUNE 25-JULY \, 1642, GENERAL LEE (CSA) UPHELD THE 
OfFENSIVE THROUGHOUT THE BATTLE AND FORCED GEN. NCCLELLAN 
AND THE UNION FORCES AUAY FROM RICHMOND. 



CIVIL UAR 
CREATIVE COMPUTING H0RR1STQVH, HEU JERSEY 





CONFEDERACY 


UNION 


HEN 


95000 


1I5O0O 


HONEY 


% 427500 


» 517500 


INFLATION 


25 * 


to X 



DO YOU UAKT INSTRUCTIONS? YE5 



CONFEDERATE GENERAL— H0U HUGH DO YOU UISH TO SPEND FOR 

- FOOD ? I0O000 

- SALARIES.. ? HOQ0O 

- AMMUNITION ? 1O00OO 



THIS IS A CIVIL UAR SIMULATION. 
TO PLAY, TYPE A RESPONSE UHEH THE COMPUTER ASKS. 
REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR 
RESPONSES COULB CHANGE HISTORY. FACTS AND FIGURES USED ARE 
BASED OH THE ACTUAL OCCURRENCE. HOST BATTLES TEND TO RESULT 
AS THEY DID IN THE CIVIL UAR t BUT IT ALL DEPENDS OH YOU!! 

THE OBJECT OF THE SANE IS TO (JIN AS HANT BATTLES AS POSSIBLE. 

YOUR CHOICES FOR BEFENSIVE STRATEGY ARE: 
(!) ARTILLERY ATTACK 

(2) FORTIFICATION AGAINST FRONTAL ATTACH 
U) FORTIFICATION AGAINST FLANKING MANEUVERS 
(4) FALL I H IACK 
YOUR CHOICES FOR OFFENSIVE STRATEGY ARE: 
II J ARTILLERY ATTACK 
(2) FRONTAL ATTACK 
<3) FLAKKINO MANEUVERS 
(4) ENCIRCLEMENT 
YOU NAT SURRENDER Br TYPING A '5' FQR YOUR STRATEGY. 



UNION GENERAL™ HOY MUCH BO YOU UISH TO SPEN1 FOR 

- FOOD T I20O00 

- SALARIES., ? 160000 

- AMMUNITION ? 237500 

CONFEDERATE MORALE IS FAIR 
UNION MORALE IS FAIR 
CONFEDERATE GENERAL YOU ARE ON THE OFFENSIVE 

COHFEBERATE STRATEGY T A 
UNION STRATEGY ? 2 

CONFEDERACY UNION 
CASUALTIES 13905 13730 

DESERTIONS 13 10 

COHPARED TO THE ACTUAL CASUALTIES AT SEVEN BAYS 
CONFEDERATE! ?1 Z OF THE ORIGINAL 
UNIONr 87 Z OF THE ORIGINAL 

THE UNION UIN3 SEVEN DAYS 
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WHICH BATTLE DO TOU WISH TO SIMULATE? 6 



THIS IS THE BATTLE OF FREDERICKSBURG 

DEC 13, I8«. THE CONFEDERACY UNDER LEE SUCCESSFULLY 

REPULSED M ATTACK IT THE UNION UNDER GEN. BURNBIDE. 





CONFEDERACY 


UNION 


HEK 


7441? 


12!t?1 


MANET 


1 335330 


1 552000 


INFLATION 


27 I 


• X 



CONFEDERATE GENERAL— NOW MUCH ID TOU U1SH TO SPEND FOR 

- FOOD T 100000 

- SALARIES.. * I0OO0O 

- AHNUNITION ? 135800 

UNION GENERAL — HOU HUCH DO TOU UISK TO SPEND FOR 

- FOOD T 13O0Q0 

- SALARIES.. T 130000 

- AMMUNITION T 273000 



3» 
30 
60 

70 
82 
64 



90 

I0» 

110 

t2ft 

1» 

140 

130 

uo 



-civil nw- 

■CflEATIUE C0HPUTIN6 

l PRINT 

BAKE DESIGNi CRAM, 

PAUL, R. HESS 



MORRISTOttN, NEU JERSEY" 



2 PRINT TAB(2i) 
4 PRINT TAB(15) 
* PRINT i PRINT 

20 REN ORIGINAL D ««< pESIONt CRAH, 80BDIE, HII8ARB LEXINGTON H.S, 
REN MODIFICATIONS! 6. PAUL, R. HESS (TIES), 1*73 
BIN Sf4> t CICH>,ft1(l«),H2(H>,£KU> t tt(14),fl<f4) 
REN UNION INFO ON LIKELY CONFEDERATE STRATEGY 
8<l>*23 i S<2>»23 I S(3)«23 : S(4>«23 
REN READ HISTORICAL DATA. 
FOR INI TO 14 

BEAI CI(B) ( llt(D>,W(B),C1(l),C2<D),H(D) 

■EXT ft 

LET D-HHB(-I) 
PRINT 

PRINT -BO YOU WANT INSTRUCTIONS": 

INPUT XI 

IF XI-'YES- THEN 140 

IF XM'Nft" THEN 370 

PRINT "YES OR «0 — -J 

60TO 110 

PRINT ' 



CONFEDERATE MORALE IS FAIR 
ONION MORALE IS HIGH 
CONFEDERATE GENERAL— YOU ARE Off THE DEFENSIVE 

CONFEDERATE STRATEGY T 2 
<WIBN STRATEGY t 4 





COHFEBERACY 


UNION 


CASUALTIES 


4870 


10360 


DESERTIONS 


11 


6 



CONPARfB TO THE ACTUAL CASUALTIES AT FREftERICXSBURG 
CONFEBERATEi 01 X 8F THE ORIGINAL 
UNION* 82 1 OF THE ORIGINAL 

THE CONFEDERACY UINS FREDERICKS I UR8 



MICH BATTLE DO YOU UISN T8 SIMULATE? 13 



170 

180 
190 
209 
210 
220 
230 
240 
243 
230 
260 
270 
280 
290 
300 
310 
320 
330 
34* 
33* 
36* 
37* 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



■THIS 18 A CIVIL KAfi SIMULATION." 

"TO PLAY, TYPE A RESPONSE WEN THE COMPUTER ASKS.' 
■REMEMBER THAT ALL FACTORS ARE INTERRELATED ANB THAI TOON" 
■RESPONSES COULD CHANGE NI8T0RT. FACTS AND FI8BRE8 USEO ARE' 
•BASED DN THE ACTUAL 0CC8RRENCE. HOST BATTLES TEND TO RESULP 
"AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON TWPP* 

■THE OBJECT OF THE BANE IS TO WIN AS MANY BATYLES AS ■; 
■POSSIBLE.- 

■YOBR CHOICES FOR DEFENSIVE STRATEOY AREf 

(1) ARTILLERY ATTACK" 

(2) FORTIFICATION AGAINST FRONTAL ATTACK" 

(3) FORTIFICATION AGAINST FLABKINfi MANEUVERS' 

(4) FALLIN8 ftACK" 

" TOUR CHOICES FOR OFFENSIVE STRATEGY ARE I' 

" (1) ARTILLERY ATTACK" 

" (2) FRONTAL ATTACK" 

" (3t FLANKING HANEUVEftS" 

141 ENCIRCLEMENT" 
■YOU HAY SURRENDER BY TYPINQ A '3' FOR YOUR STRATE6Y." 



'HE CONFEDERACY HAS UON I BATTLES AND LOST 1 
THE UNION HAS HON THE BAR 



ARE THERE TUO GENERALS PRESENT "; 



FOR THE 2 BATTLES FOUGHT ^EXCLUDING RERUNS) 

CONFEDERACY UNION 
HISTORICAL LOSSES 2M91 28302 

5IHBLATED LOSSES 23700 24113 



X OF ORIGINAL 



?l 



83 




6.1 



PfilHT 
INPUT 
IF Bl 
IF M 
PRINT 

you 
rimiT 

LET 1-1 
IF It <> 
LET *»2 

print 

PRINT 
PRINT 
PRINT 

print 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRIKT 
INPUT 

ir k* 



YES OR NO)"; 



"(AN8L/E1 

"YES" THEN 430 

<> "HO" THEN 380 

m 



ARE THE CONFEDERACY. GOOD LUCK)" 



TE5* THEH 460 



"SELECT A 
"REQUEST, 
"BUT '0' I 
'ALLOWING 

"NOTEt A 

"USE THE 



RATTLE BY TYPING A NUMBER 
TYPE ANY OTHER NUMBER TO 
RINGS RACK EXACT PREVIOUS 
TOO TO REPLAY IT" 



FROM 1 TO 14 DM" 
EH THE SIMULATION.' 
IATTLE SITOATIQH" 



NEGATIVE FOOlt ENTRY CAUSES THE PROGRAM 
ENTRIES FROH THE PREVIOUS BATTLE" 



TO 



"AFTER REQUESTING A BATTLE, 

"BATTLE BESCRIPTIONS "; 

"(ANSWER YES OR NO)*; 

XI 

"YES* THEN 6*0 



YOU UISH 



IF Xf <> "NO" THEH 360 

L*OiU-OiRI*Oi01=OiN3=OsH4=0:P1*0:P2"0;TlH)iT2«0 

F(2)*OiHf2)=0tB<2)«O:R2»0i02-0iC6»O!F-0rUO=0*Y=0iY2«0iU"0lU2=i> 

print ■ 



PRINT "WHICH BATTLE 00 YOU WISH TO SIMULATE"; 


INPUT A 


IF A O THCN 660 


IF R O THEN 1MB 


IF A <• THEN 2B60 


IF A >■ 15 THEN 2860 


LET CI>C!(A> 


LET HI»MKA> 


LET N2>M2(A) 


LET C1-C1CA) 


LET C2-C2CA) 


LET H>H(A) 


LET R«0 


REN INFLATION CALC 


LET It»IO+<L-tf>*2 


LET I2*10*(U-L)*2 


REN - HONEY AVAILABLE 



"MEN",* 

-HONEY- 



'CONFEIERACY 



■ * 



UNION" 



LET DM>»100*IHT(<H1«<1<»-I1>/2M#>*(1*(R1-G1>/<RI+im.3> 

LET D(2)=10O»IHT(N2»<1OO-I2>/2OOO*.3> 

IF Bl <> -YES* TKR 1030 

LET D<2><IC0*IHTnH2>i10«-I2)/20M>*<J*(R2-B2>/<R24l)> + .3) 

REH - HEN AVAILABLE 

LET H3»IHT<H1*UHPt-TI)/(H3tim 

LET N6«INT<H2»<1*<P2-T2>/tN4*1)>) 

LET F1«3*H1/6 

PRINT - 



PRINT 'THIS IS THE BATTLE OF ";» 

IF X8«"M0" THEN 1130 

IF AMI TREK lilt 

ON A OOTO 3580,3420,3630,3690,3720 l 3750 ( 3?80,3800 r 3830 l 3840,38VO 

ON A-M OBTO 3920,3950,3980 

PRINT CB* INSTANT REPLAY" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

REH - OtfLY IN PRINTOUT 

REN - IF TUO GENERALS, 

FOR !-l TO 9 

IF Bl <> "YES" THEN 1260 

IF 1*2 TREK 1269 

PRINT "CONFEIERATE GENERAL "; 

PRINT "HDV rtUCH BO YOU UISH TO SPEND FOR" 

PRINT * - FOOD •; 

INPUT F 

IF F >■ THEN 1360 

IF R1 <> I THEN 1330 

PRINT "NO PREVIOUS ENTRIES" 

GOTO 1270 

PRINT "ASSUME YOU UANT TO KEEP SANE ALLOCATORS 1 

PRINT 

GOTO 1510 

LET F<I)«F 

PRINT ■ - SALARIES.."; 

INPUT Ntl) 

LET H-1 



"N3 f " "N6 



*"»T2I 



■INFLATION" 



jmisr* 



•;I2;"X" 



IS CQrtFED INFLATION 
INPUT COHFEB. FIRST 



1MW 



T400 
1410 
1420 
1430 
1440 
1430 
1460 
1470 
1481 
1490 
1500 
1310 
1520 
1530 
1540 
1550 
1560 
1370 
1380 
1590 
1610 
1610 
1620 
1630 
1640 
U50 
1660 
1470 
1480 
1490 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
17*0 



1810 
1820 
1830 
1940 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
20BO 
2090 
2100 
2110 
2120 
2130 
2140 
2130 
2140 
2170 
2160 
2190 



2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
22QQ 



IF HCIKO THEN 1490 

PRINT " - ANHUNITION"; 

INPUT BCD 

LET H"2 

IF F(IXO THEN 1490 

PRINT 

IF FU)4H(I>+B<I> <• DU> THEN 1510 

PRINT "THINK AGAIN! YOU HAVE ONLY O'MI) 

SOTO 1270 

PRINT "HEOATIVE VALUES NOT ALLOUED." 

ON N 60T0 1370,1410 

IF IB <> "YES" THEN 1330 

IF I«2 THEN 1530 

PRINT "UNION GENERAL—'; 

NEXT 1 

FOR 1*1 TO 

IF Bl <> "YES" THEN 1420 

ON I OOTO I5B0|16*0 

PRINT "CONFEOERATE "j 

60TD 1620 

PRINT • UNION "; 

REH - FIND MORALE 

LET 0-(<2*FUK2*H<Zr2>/Fr2t1) 

IF 0<10 THEN 1460 

PRINT "MORALE IS HIGH" 

OOTO 1700 

IF 0<5 THEN 1690 

PRINT "MORALE IS FAIR" 

SOTO 1700 

PRINT "MORALE IS POOR" 

IF Bl <> "YES" THEH I7A0 

LET 0(2)-0 

NEXT X 

LET 02»0<2> 

LET 0-0<1) 

PRINT "CONFEDERATE GENERAL—"; 

REM - ACTUAL OFF/BEF BATTLE SITUATION 

IF H <> 3 THEN 1B0O 

PRINT "YOU ARE ON THE OFFENSIVE" 

GOTO 1840 

IF K <> 1 THEN 1830 

PRINT "YOU ARE OH THE DEFENSIVE" 

GOTO 1840 

PRINT "BOTH 3IBES ARE ON THE OFFENSIVE " 

PRINT 

REH - CHOOSE STRATEGIES 

IF Bl <> "YES" THEN 1910 

FOR 1-1 TO 2 

ON I GOTO 1890,1920 

PRINT "CONFEDERATE STRATEGY *; 

OOTO 1920 

PRINT "YOUR STRATEGY "; 

INPUT Y 

IF A8S(Y-3K3 THEN 1940 

PRINT "STRATEGY" ;Y; "HOT ALLONEB." 

GOTO 1910 

IF BI»"YES" THEN 2000 

IF Y>5 THEN 2830 

GCSJB 3110 

GOTO 2170 

IF 1-2 THEH 2040 

LET Y1»T 

PRINT "ANION STRATEBY »; 

NEXT I 

LET Y2*Y 

LET Y«YI 

IF Y2=5 THEH 2020 

REN t 8IHULATED LOSSES-NORTH 

LET C6"<2tC2/3>*U4l/C2*<ABS<T2-Y> + 1>>) 

CA-C44<1.2B**5«H2/4>/<B<2>4l» 

C6-INT<C6»Mt1/02)*.5> 

• IF LOBS > MEN PRESENT, 

E> 100/12 
IF INT<C6*E2XHA THEN 2190 
LET C6*INT<13*H6/20> 
LET E2-74C6/13 
LET 112*1 

REH - CALCULATE SIMULATES LOSSES 
PRINT 
PRINT " 



VCONFEBERACYVURIQN" 
LET C5M2»C1/5)*0*1/(2*(ABS<Y2-T)*m> 
LET C5*INT<C5*<1*I70>»<1.20*F1/(B(1 )♦!))♦. 53 
LET E»lO0/0 

if c3MO0/o<ni»u*<Pi-Tn/ctt3+m then 2270 

LET CS*INT<13*N1/20*U*(PI-Tr)/(H3+1))) 

LET E"7M:3/I3 

LET U-1 

IF B=1 THEH 2500 

PRINT "CASUALTIES", C3,C4 



LET 
LET 
IEM 
LET 



RESCALE LOSSES 
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729$ 

2300 

2310 

2320 

2330 

2340 

2350 

'360 

J370 

rj?5 

£80 

!390 

J400 

?4I0 

2420 

2430 

2440 

2458 

2460 

2470 

24g0 

2490 

2500 

2510 

2320 

2530 

2540 

2550 

2360 

2370 

2SB0 

2390 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2730 

2760 

2770 

2780 

2790 

2600 

2010 

2B20 

2830 

2840 

2830 

28*0 



print 

PRINT 
IF II 

PRINT 

PRINT 

PRINT 

PRINT 

REH - 

IF 

IF 

IF 



"DE5ERTI0HSVNT<E) t INTfE2> 



<> m Y£S* THE* 

^COMPARED TO 

"CONFEDERATE 

"UKIOJIi 



2330 
THE ACTUAL CASUALTIES AT "CI 
"1NTMOO»(C5/C1)*.5)"X Of THE ORIGINAL" 
"MItl»»IC4/«)+.5>"X Of THE ORIGIN^" 



'X Of 



I UNO ONE 

H <> t THEN 2380 

02-1 THEN 2460 

0=1 THEM 2420 
IF U2»l THEN 2440 
IF C5+E»C6*£2 THEN 2460 
IF C3*E<C6#E2 THEN 2440 
P*I«T -THE UNION IfltfS "CI 
GOTO 2600 

PRINT -THE CONFEDERACY VIMS *C* 
GOTO 2660 

PRINT "BATTLE OUTCOME UNRESOLVED" 

LET U0=U0*1 

IF 4*0 THEN 2790 

80T8 2680 

LET U-INT<17#C2«C1/(C3«0M 
LET E2=3»0 
6OT0 2280 

PRINT "TOOK CASUALTIES UERE "INTf 100KC3/C1 )*.5)' 

PRINT *THE ACTUAL CASUALTIES AT ";« 

PRINT 

REN - FIND UHO UOH 
IF U*1 THE* 2590 

IF C3*E<17«C2*C1/(C3«2O>*5*0 THEH 2«Q 

PRINT "YOU LOSE ";C* 

IF A-0 THEH 2790 

IE? t*U1 

GOTO 2680 

PRINT "YOU WIN ";c* 

REH - CUHULATIVE BATTLE FACTORS tMICH ALTER HISTORICAL 

REH RESOURCES AVAUABLE.IF A REPLAY 1(M'T UPDATE, 

IF A=0 THEH 2790 

LET U*U*1 

Iff II-T1+C5+E 

LET T2"T2*C6*E2 

LET PI=PUCi 

LET P2-P2*C2 

LET ai>eU(F(l>«H(I)4|C1)> 

LET fl2-02t(F*2)tH(2)tI(2J) 

LET R1«Rf*H1*nOO-II>/20 

LET R2-R2+N2»< 100-12)720 

LET H3>H3*HI 

LET N4»H4*H2 

B05UB 3300 

U»0sU2-0 

PRINT ■ — -- •— <■ 

GOTO 620 

*€H FINISH OFF 

PRINT "THE CONFEDERACY HAS SURRENDERED* 
GOTO 2860 

PRINT -THE UNION HAS SURRENDERED.- 
PR1NT • 



PRINT 
PRINT 
IF Y* 
IF Y2 
u u 
if y 

PRINT 

60TO 

PRINT 

PRINT 

IF R1 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

IF II 

PRINT 

PRINT 

PRINT 

PRINT 

REH-- 

STOP 

REH * 

PRIHT 

IF A 



THE CONFEDERACY *; 

■HAS UOH "U" BATTLES MP LOST "L 
5 THEN 2940 
■5 THEN 2920 
<■ L THEN 2940 
5 THEN 2940 

•THE CONFEDERACY HAS UON THE UAR* 
2950 

"THE UNION HAS UON THE IIAR" 

'0 THEN 3108 
■FOR THE -H+L+WO" BATTLES FOUGHT (EXCLUDING RERUNS)" 

"CONFEDERACY"," UNION" 

■HISTORICAL LOSSES', INT f PI +.5 J f INT (?S*. 5 J 

"SIMULATED LOSSES*, INK T10) t I*T<T2*.5> 

X OF 0RIGINAL",INTUOO«<T1/PI>*.5),INTaOO*(T2/P2)*.5> 
■■YES* THEN 3100 

■UNION INTELLIGENCE SUGGESTS THAT THE SOUTH USEI " 
■STRATEGIES 1, 2, 3, 4 IH THE FOLLOWING PERCENTAGES* 

sm;si2);S(3);$<4> 



UNION STRATEGY IS COMPUTER CHOSEN 
-UNION STRATEGY IS - B 
<> THEN 3IBQ 



3140 

3150 

3153 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

32S0 

3260 

3270 

3230 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3320 

3330 

3540 

3350 

3S60 

3570 

3580 

3390 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3660 

3690 

3695 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3785 

3790 

3800 

3810 

3820 

3830 

3840 

3830 

3860 

3863 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

40IO 



INPUT Y2 

IF Y2 <= THEN 3U0 
IF Y2<5 THEN 3290 
PRINT 'mi* I , 2 ,3 
GOTO 3140 
LET S0*0 
LET Rs100«RND<0) 
FOR I»t TO 4 
LET S0"SOf$CI) 

REH - IF ACTUAL 5TRATE8Y INFO IS 
REN THEN RM08 IS EXTRA HEIGHT 
WH 3270 



OR 4 (USUALLY PREVIOUS UNION STRATEGY) 1 



I* PR08RAM DATA STATEMENTS 
GIVEN TO THAT STATEGY. 



ACTUAL STRAT. IN,THEH HERE IS Y2= HIST, STRAT. 



IF R<SO 
NEXT I 
REN - IF 

LET Y2-I 
PRINT Y2 

RETURN 

REM LEARN PRESENT STRATEGY, START FORGETTING OLD ONES 
REN - PRESENT STRATEGY OF SOUTH GAINS 3*5. OTHERS LOSE 
REH PROBABILITY POINTS, UNLESS A STRATEGY FALLS PELOU 

LET $0*0 

FOR I>1 TO 4 

IF 9(1) <■ 5 THEN 

LET sfi>*sa>-s 

LET SO*S0+S 
NEXT I 

XYUSO 



5X, 



3390 



LET sm< 
RETURN 

REH - HISTORICAL DATA.. .CAN ABB MORE CSTRAT.,ETC> 8T INSERTING 
DATA STATEMENTS AFTER APPRO, INFO t AND ADJUSTING READ 

•BULL RUN", 18000,18580, 1967,2708, J 

"SHILOH", 40000. ,44894., 18699. 1304? f 3 

"SEVEN DAYS", 95000. t 1 15000. ,20614, 15849,3 

■SECOND DULL RUN", 54000., 63000. ,10000, 14000,2 
IATA 'AHTIETAH-, 40000., 30000., 10000, 12000,3 



REN 

DATA 

DATA 

DATA 

IATA 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
8ATA 
DATA 
DATA 
PRINT 



FREEERICKSBUR6-,73080. ,120000. ,3377, 12633, I 
"HURFREESDDRO", 38000 .,43000. ,11000,12000,1 

"CHANCELLORSVILLE", 32000, 90000., 13000. 17197.2 

"VICKS8URG",5OO00., 700 80-, 12000,19000, I 

"GETTYSBURG V23C0.|G5OOO., 26000, 23080, 3 

•CHICNAHAUGA", 66000. ,60000. ,18000,1*800, 2 

"CHATTANOOGA", 37000., 60000., 3670O., 5800. 2 

-SPOTSYLVANIA-, 62000. ,110000., 17723, 18000,2 

■ATLANTA", 63000., 1 00000., 8500, 3700,1 
■JULY 21, 1861. GEN. BEAUREGARD, COMMANDING THE SOUTH, MET* 
PRINT ■UNION FORCES WITH GEN. HCDOUELL IN A PREMATURE BATTLE AT" 
PRINT -DULL RUN. GEN. JACKSON HELPED PUSH RACK THE UNION ATTACK." 
GOTO 1150 

PRINT -APRIL A-7, 1862. THE CONFEIERATE SURPRISE ATTACH AT" 
PRINT -SHILOH FAILED DUE TO POOR ORGANIZATION." 
GOTO 1150 

PRINT *M*t 25-JULT 1, 1862. GENERAL LEE (CSA) UPHELD THE* 
PRINT -OFFENSIVE THROUGHOUT THE RATTLE AND FORCE! GEN. MCCLELLAH 1 * 
PRINT "AMD THE UNION FORCES AWAY FROft RICHH0N8." 
GOTO 1150 

PRINT -AUG 29-30, 1862. THE COHIIHES CONFEDERATE FORCES UNDER"; 

PRINT • LEE" 

PRINT -AND 

GOTO 1150 

PRINT 'SEPT 17, 1862. THE SOUTH FAILED TO INCORPORATE MARYLAND* 

PRINT -INTO THE CONFEDERACY." 

GOTO 1150 

PRINT "DEC 13, 1862. THE CONFEDERACY UMIER LEE SUCCESSFULLY" 

"REPULSED AN ATTACK 8Y THE UNION UNDER SEN f DURMSIDE." 

130 



JACKSON DROVE THE UNION FORCES BACK INTO UASHINQTON/ 



'??: 31, 1862. THE SOUTH UNDER GEN. BRAGG UON A CLOSE 
'MTTLE*' 

150 

'MAY 1-6, 1863. THE SOUTH HAD A COSTLY VICTORY 



'ONE OF THEIR OUTSTANDING GENERALS, 'STQNEtJALL 



AND LOST' 
JACKSON. 4 



PKJNT 
GOTO 1 
PRINT 
PRINT 
GOTO 1 
PRINT ' 
PRINT ' 
GOTO 1150 
PRINT "JULY 4, 
PRINT "BECAUSE 
GOTO 1150 

PRINT -JULY 1-3, 11 
PRINT ■GETTYSBURG" 
PRINT "COST THEM ONE 
GOTO 1130 

PRINT "SEPT. 13, 1863, CONFUSION IN A FOREST HEAR CHICKAHAUGA LEO- 
PRINT "TO A COSTLY SOUTHERN VICTORY." 
GOTO 1130 

PRINT "NOV. 25, 1863. AFTER THE SOUTH NAD SIE6E8 OEM. R03ENCRAHS'" 
PRINT "ARMY FOR THREE KONTHS, GEN. GRANT BROKE THE SIEGE. " 
GOTO 1150 

PRINT "MAY 5, 1864. ORAMT'S PLAN TO KEEP LEE ISOLATED BEGAN TO" 
PRINT "FAIL HERE, AND CONTINUED AT COLD HARBOR AND PETERSBURG." 
GOTO 1150 
PRINT "AUGUST, 1864. SHERHAtf ANB THREE VETERAN AMIES CONVERGED* 

PRINT "ON ATLANTA AND DEALT THE DEATH BLOU TO THE CONFEDERACY." 
EOTG 1150 

END 



1863. V1CKSBURG HAS A COSTLY DEFEAT FOR THE SOUTH' 
IT SAVE THE UNION ACCESS TO THE MISSISSIPPI." 



1863. A SOUTHERN MISTAKE BY SEN. LEE AT *J 



JF THE MOST CRUCIAL BATTLES OF THE ¥AR. r 



dfl 




mbat 




In this game, you are fighting a small- 
scale war with the computer. You have 
72,000 troops which you first must 
distribute among your Army, Navy, and 
Air Force. You may distribute them in 
any way you choose as long as you 
don't use more than 72,000. 

You then attack your opponent (the 
computer) and input which serviceand 
the number of men you wish to use. 
The computer then tells you the 
outcome of the battle, gives you the 
current statistics and allows you to 
determine your next move. 

After the second battle, it is decided 
from the total statistics whether you 
win or lose or if a treaty is signed. 

This program was created by Bob 
Dores of Milton, Massachusetts. 



COflBAY 




CREATIVE COMPUTING H0RRISI0UH, HEU JERSEY 


1 AH AT WAR UITH YOU. 




U£ HAVE 72000 SOLDIERS APIECE. 


DISTRIBUTE YOUR FORCES. 




ME 


YQU 


ARMY 30000 


7 25000 


NAVY 20000 


? 25000 


A.F. 22000 


? 22000 


YOU ATTACK FIRST. TYPE 1 


FOR ARMY 2 FOR NAVY 


A*D 3 FOR AIR FORCE, 
1 3 

HQU KANT NEK 






t 22000 




YOU UIPED OUT ONE OF BY ARHY PATROLS* BUT I DiSTROYE 


2 NAVY IASES AND B0HIED 3 ARRY BASES. 


YOU 


HE 


AftflY 6230 


2O0O0 


NAVY «33 


2C0O0 


A«F. 22000 


220O0 


UHAT 13 YOUR NEXT HOVE? 




AR*T»1 *AVT=2 AIR FORCE 


=3 


f a 




HOY ft ANY KH 


, 


1 20000 




HY NAVY AND AIR FORCE IN 


A CORBINEB ATTACK LEFT 


YOUR COUNTRY IK SHAMBLES, 





FKDfl THE RESULTS OF BOTH OF YOUR ATTACKS, 

YOU LOST-I COHOUEREB YOUR COUNTRY. IT SERVES YOU 

RIBMT FOR PLAYING THIS STUPII GAflEHf 
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I "IB! IMI33)i-CIMMI- 

« Sffi 3ii&&!?fflMB£.«"" ■« »•« «" Mum, „ PKCE . 

4 Mint ( -fl£-,-rou" 

7 PRINT -ARM", 30080, 

8 INPUT A 

»«»T -BAVr-,20080, 
19 INPUT I 

'i nm "*.f.",2zo«, 

I? INPUT C 

13 IF A*B*C>72000 THEN 5 

14 0«30000 

15 £"20008 
14 F«2288C 

II sis js ra?,ffBi£? ■ fw « » ™ ««■ 

20 PRINT "HOD HAXT *£*• 

21 INPUT X 

22 IF KO THEN 20 

23 M t 0010 100,200,300 
100 IF I>A THEN 20 

185 IF X<A/3 THEN 120 
110 IF X<2.A/3 THE* 150 
113 OOTO 270 

12 EM unw ™ "- »■ -»■■ 

HO OOTO 500 

UO L=0 

165 60 TO 500 

200 IF X>B THEN 20 
210 IF X<E/3 IRE* 230 
2»5 IF X<2*E/3 TWK zjo 
220 60T0 270 

235 GOTO 500 

IS "KJJ BESIMrED --'" ( 2^3 Jrw nr MNV - 

260 SOTO 500 

S 5i~° - - - HA,- " 2 " 

285 C»I«T(C/3) 

290 £*IVfT<?t£/3> 

2M OOTO 500 

300 IF X>C THEN 20 

310 IF X<C/3 TKElf 350 

320 IF X<Z*C/3 THCW J?0 

330 GOTO 380 

35? "iS«™y* * ma gM uipei> <,uT, " 

360 GOTO 500 

w l"'",Zm' " ""'•"- ,M u0 "- *• "•*» «■ «»««..■ 

37? E*IAT(E/3J 
378 FMHTCF/3) 
J?? SOTO 300 



387 A=INT(|/3> 
3»0 0»lAT(2»l/3) 
500 PRINT 

sti PRi»r,"rou-,"w 

310 PAINT H AMV-.A.| 
520 PRINT "NAV»-,| E 
530 PRINT -A.F.-,C,F 
1000 PRINT -nui IS TOUR NEXT HWIV 

1030 PRINT 'KOU HANI HE*" 

1040 INPUT T 

1045 IF T<0 THEN 1030 

1830 ON 6 60TO 1600,1700,1800 

1400 IF T>A THEN 1030 

•410 IF KI/2 THE !«• 

1417 GOTO 2000 

1*33 "a-T "' UIP " ° UI Y0U " *' TflCK! " 

1440 OOTO 2000 

1700 IF T>| THEN 1030 

1719 IF T(E/2 THEN 1750 

1720 GOTO 1770 

1760 8*8/2 
1765 OOTO 2000 

1780 E=<£/?1 

17?0 60TO20OO 

1800 IF r>C THE« 103O 

1810 IF f>F/2 XHEn 1630 

1820 OOTO 1850 

is? sa; ^r;;„:r;: kej:.: «-««• -«« «. 

1835 A=A/ ] 

1837 8*8/3 
I860 C*C/J 
1845 OOTO 2000 

I860 GOTO 2010 
2000 PHUT 

2905 IF A»B»C<2/3»(fj.E*FI THEN 2013 

2010 m*T -TOU UQtf, OH< SHUMSHir- 
2012 6010 2020 
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Craps 



"■ 










































This game simulates the game of 
craps played according to standard 
Nevada craps table rules. That is; 

1. A 7 or 11 on the first roll wins 

2. A 2, 3. or 12 on the first roll loses 

3. Any other number rolled becomes 
your "point." You continue to roll; if 
you get your point, you win. If you 
roll a 7, you lose and thedice change 
hands when this happens. 

This version of craps was modified 
by Steve North of Creative Computing. 
It is based on an original which 
appeared one day on a computer at 
DEC. 




CBflPS 
CREATIVE COnrUTING flOftfi ISTOUN, fCU JERSEY 




















2,3,12 ARE LOICfiS 4,5,6,8,?, 10 POINTS 
PICK A HUJ1BER AND IKPUi TO ROLL BICE? \ 
INPUT THE AHQUJfT OF YOU* UAGER.T 300 

I WILL NOW THROW THE BICE 

7 NATURAL... .A UlftNERHII 

7 PATS EVEN N0HEY,YOU WIN 300 DOLLARS 

IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 21 5 
YOU ARE NflU AHEAD t 500 
INPUT THE AWJBNT OF YOUR WAGER.? 230 

I WILL N0U THROW THE DICE 

4 POINT I WILL ROLL A6AIN 

3 NO POINT I WILL ROLL AGAIN 

3 NO POINT I KILL ROLL AGAIN 

4 NO POINT I WILL ROLL AGAIN 
7 CRAPS T0U LOSE 

YOU LOSE • 230 

IF YOU WANT TO PLAY AGAIN PRINT 3 IF NOT PRINT 2T 5 
YOU ARE NOW AHEAD I 270 
INPUT THE AHOUNT OF YOUR UA6ER,? 400 

1 WILL NOW THROW THE NICE 

1 POINT I WILL ROLL AOAIN 

2 NO POINT I WILL ROLL AGAIN 

10 HO POINT 1 WILL ROLL AGAIN 

11 ND POINT I WILL ROLL AGAIN 
I NO POINT I WILL ROLL A6AIN 
A NO POINT I WILL ROLL AGAIN 
10 HO POINT I WILL ROLL AGAIN 
7 CRAPS YOU LOSE 

YOU LOSE * 400 

IF YOW UANT TO PLAT iGAIN PRINT 3 IF NOT PRINT 2t 5 
YOU ARE NOW UNDER f 130 
INPUT THE AMOUNT OF TOUR WAGER. T 300 

1 mill NOW THROW THE DICE 

4 POINT I WILL ROLL AGAIN 

2 NO POINT I WILL Ron AOAIN 

3 NO POINT I WILL ROLL AOAIN 
A NO POINT I WILL ROLL AGAIN 

5 NO POINT 1 WILL ROLL AOAIN 
7 CRAPS TOU LOSE 

YOU LOSE * 300 

IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2T 5 
YOU ARE NOW UNDER $ 430 
INPUT THE AHOUNT OF YOUR UAOER,? 430 

I WILL NOW TKROU THE DICE 

3 CRAPS. ..YOU LOSE 
TOU LOSE 630 DOLLARS 

IF YOU WANT TO PLAY AGAIN PRINT 3 IF NOT PRINT 2? 2 
YOU ARE NOU UNDER * 1240 
TOO IAD, TOU ARE IN THE HOLE. COHE AGAIN* 


















- 



5 PRINT TABC3i);"CRAPS- 

10 PRINT TAIU3)i"CREATJVE COMPUTING NOSRISTOUN- MEU JCRSET" 

12 PRINT:PRJNIiPRINT 

13 LET R-0 

20 PRINT *2,3 ( 12 ARE LOSERS 4,3 t *,4f,IO POINTS' 

21 LET T=1 

22 PRINT "PICK A NUHDER AND INPUT TO ROU BICE* 1 : 

23 INPUT Z 

24 LET X'CRNDCO)) 

25 LET T -T+1 

24 IF T<«2 GOTO 24 

27 PRINT-INPUT THE AMOUNT Of YOUR WAGER."; 

28 INPUT F 
30 PRINT " I WILL NOW THROW THE DICE* 

40 LET E»INT17«RHDm> 

41 LET S*INT(7*RND<1)> 

42 LETX-EtS 
30 IF »? GOTO 180 
33 IF |«l t OOTO 180 
40 IF X=1 GOTO 40 

42 IF X-2 GOTO 195 

43 IF X*0 GOTO 40 
70 IF 1-2 GOTO 200 
80 IF X-3 GOTO 200 
90 IF X-12 GOTO 200 
123 IF X*5 GOTO 220 
130 IF X *4 60T0 220 
140 IF X»G GOTO 220 
130 IF )>* GOTO 220 
140 IF X «10 GOTO 220 
170 If XM GOTO 220 
ISO PRINT X -NATURAL* 
1G5 PRINT X-PAYS EVEN N0NET t YOU WIN 
ltO GOTO 210 

1*5 PRINT X'SNAKE EYES. ...TOU LOSE" 
1?4 PRINT •TOU LOSE'F 'DOLLARS" 
1t7 LET F-O-f 
1?S OOTO 2 tO 

200 PRINT X "CRAPS... YOU LOSE 
205 PRINT "YOU LOSE*F*D0LLARS 
204 LET F-O-F 

210 LET R- R*F 

211 GOTO 320 
220 PRINT X 'POINT 1 WILL ROLL AOAIN* 

230 LET H«INT(?tRND(1)> 

231 LET Q=INT(7*RNDC1>> 

232 LETO-HfQ 
240 IF 0-1 OOTO 230 
230 IF 0>7 OOTO 290 

233 IF 0-0 GOTO 230 
240 IF 0-X GOTO 310 

270 PRINT -NO POINT I WILL ROLL AGAIN" 
210 GOTO 230 

2fO PRINT O-CRAPS TOU LOSE 
2P1 PRINT TOW LOSE $-F 
2t2 F=0-F 
213 GOTO 210 
310 GOTO 320 

310 PRINT X"A WINNER 

311 PRINT X "AT 2 TO I ODDS PATS 

312 LEI F»2*F 
OOTO 210 




CONORATSIIIIMir 

YOU. ..LET HE SEE..."2«F"D0LLARS" 



IF TOW WANT TO PLAT AGtUfl 






313 

320 PRINT ■ 

330 INPUT ,i 

331 IF ft<0 GOTO 334 

332 IF R>0 GOTO 334 

333 IF R»0 GOTO 331 

334 PRINT 'YOU ARE HOW UNDER *"$-» 

333 GOTO 340 

334 PRINT "YOU ARE NOW AHEAD t 
337 GOTO 340 
33t PRINT "YOU ARE NOW EVEN AT 0" 

340 IF N*3 GOTO 27 

341 IFR<OGOT0350 

342 IFR>OGOIOJ53 

343 IFR«OGOT0335 

330 PRINT-TOO BAD, YOU ARE IN THE HOLE 

331 GO 10340 

333 PftlHT-COHORATULATiOHS— YOU CAflE OUT 

334 8DT0340 

333 PRINT-CONGRATULATIONS— YOU CANE OUT EVEN, NOT BAD FOR AN ANATEUR" 
340 END 







UINNEFC 








CUBE is a game played on the facing 
sides of a cube with aside dimension of 
2. A location is designated by three 
numbers — e.g.. 1.2. 1, The object is to 
travel from 1, 1. 1 to 3, 3, 3 by moving 
one horizontal or vertical (not 
diagonal) square at a time without 
striking one of 5 randomly placed 
landmines. You are staked to $500; 
prior to each play of the game you may 
make a wager whether you will reach 
your destination. You lose if you hit a 
mine or try to make an illegal move — 
i.e., change more than one digit from 
your previous position. 

Cube was created by Jerimac Ratliff 
of Fort Worth, Texas. 
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CREATIVE COMPUTING 



HQRRISTQUN, 



.*.' 



KEtf JERSEY 



DO TOU IMHT TO SEE THE INSTRUCTIONS? ITM— 1 t MJ--01 

T 1 

THIS IS A SANE IH UHICH YOU MILL IE PLAYIK6 AMIMT IHE 

RANDOM DECISION OF THE CONFUTE*. THE FIELD OF PLAT IS * 

CUIE OF SIDE 3. ANT OF THE 27 LOCATIONS CAN DE DESIGNATED 

BT INPUTINO THREE NUHBERS SUCH AS 2,3,1. AT THE START, 

TOO ARE AUTOHATICALLT AT LOCATION 1,1,1* THE OBJECT OF 

THE SANE IS TO GET TO LOCATION 3,3,3* ONE HIHOR DETAIL, 

THE COHPUTER UILL PICK, 4T RANDOH, 5 LOCATIONS AT UHICH 

I! UILL PLANT LANS NINES* IF TOO HIT ONE OF THESE LOCATIONS 

TOU LOSE* ONE OTHER DETAIL, TOU NAT NOVE ONLY G*E SPACE 

Iff ONE DIRECTION EACH HOVE. FOR EXANPLEi FRCN 1,1,2 TOU 

HAT HOVE TO 2,1,1 OR 1,1,3* TOU NAT NOT CHANGE 

T90 OF THE NUflDERS ON THE SANE NO*E. IF TOU WANE AM ILLEGAL 

HIVE, TOU LOSE AND THE COHPUTER TARES THE NOISY TOU HAY 

HAVE BET ON THAT RQUNI, 



ALL YES 01 NO WJEITIWS UILL IE ANSWERED BY A t FOR YES 
01 A t (ZERO) FOR NO. 

UIEN STATINS THE ANOWT OF A UAOEfl, PRINT ONLT THE NURSE* 

OF DOLLARS (EXAHPLE: 250) TOU ARE AUTOMATICALLY STARTED KITH 

3*0 DOLLAR ACCOUNT. 

GOOD LUCK 

UflHT TO HAKE A UAOERT 

T 1 

HDU HUCHT 

? 2O0 

ITS TOUR HOVE 

t 1,1,2 
NEXT HOVE 

HEXT NOVE 

t 2,2,2 

NEXT HOVE 

t 2,2,3 

NEXT NOVE 

T 2,3,3 

•+*t«t| AUG ****** 

YOU LOSE 




Mil 



TOU NOV HAVE 200 DOLLARS 
SO TOU UANT TO TRY AGAINT 
T 1 

IMftT TO HAKE A UAOERT 
1 1 

HOU NUCH? * 

T 100 

ITS TOUR HOVE 

t 1t2»1 

NEXT NOVE 

? 2,2,1 

NEXT HOVE 

t 2,2,2 

NEXT HOVE 

t 2,3,2 

NEXT HOVE 

1 2,3,3 

NEXT NOVE 

? 3,3,3 

CONGRATULATIONS 

YOU HOU HAVE 300 DOLLARS 

DO YOU WANT TO TRT AGAIN? 

? 

TBUBH LUCK 

SQODIYE 



53 



10 PRINT TAB<34) "CUBE" 




20 PRINT TABM3> "CREATIVE COHPUTING NDftfilSTOUH, NEU JERSEY" 


876 IF AKZf THEN 1522 


30 PRINT I PRINT : PRIHT 


8B0 LET U»t 
890 LET X*1 


100 PRINTED YOU UANT 10 SEE THE INSTRUCTION? (YES-1 t NQ«0>" 


110 litPUT B7 


900 LET Y>1 


120 IF B7=0 THEN 370 


910 PRINT 


130 PRINT"THIS IS A 6ANE IN UHICH YOU UILL BE PLAYIN8 AGAINST THE** 


920 PRINT "ITS YOUR HOVE" 


140 PRINT"RANDOH DECISION OF THE COHPUTER. THE FIELD OF PLAY IS A* 


930 INPUT P,0,R 

940 IFPMItl THEN1030 


150 PRINT"CUBE OF SIRE 3. ANY OF THE 27 LOCATIONS CAN BE BESIGNATED" 


140 PRINT'ST IJIPUTIKS THREE NUHBERS SUCH AS 2,3,1. AT THE START," 


950 1FP*U*1TREN1000 


170 PRINT"YOU ARE AUTOHATICALLY AT LOCATION 1,1,1. THE OBJECT OF" 


960 IF0>Xt1 THEN1030 


ItO PRINT*THE GAME IS TO SET TO LOCATION 3,3,3. OK HINGR DETAIL," 


970 IF •>»41> THCH 1010 


190 PRIHT"THE COftPUIER WILL PICK, AT RANDOH, 3 LOCATIONS AT UHICH* 


980 IF R MY+1) THEN 1030 


200 PRINT-IT UILL PLAHT LAND NINES. IF YOU HIT ONE OF THESE LOCATIONS 


990 80TO 1050 


210 PRINT"YOU LOSE. ONE OTHER DETAIL, YOU HAT HOVE ONLY ONE SPACE ■ 


1000 IF 0>- 141 THEN 1030 


220 PRINT-IN ONE DIRECTION EACH KOVE, FOR EXAMPLE* FROM 1,1,2 YOU H 


1010 IF ft>*YM THEN 1030 


230 PRINT"HAY HOUE TO 2,1,2 OR 1,1,3, TOW HAY NOT CHANGE" 


1020 GOTO 1050 


240 PRINT H TUO OF THE NUMBERS ON THE SANE HOVE, IF YOU HAKE AN ILLEGAL 


1030 PRINT 'ILLEGAL «0VE'\ "YOU LOSE' 


250 PRINT"HOVE, YOU LOSE AND THE CONPUTER TAKES THE HONEY YOU HAY* 


1040 OOTO 1410 


240 PRINT"HAVE BET ON THAT ROUND." 


1050 LET U=P 


270 PRINT 


1060 LET X*Q 


290 PRINI 


1070 LET Y=R 


290 PRINT-ALL YES OR NO QUESTIONS UILL BE ANSWERED BY A 1 FOR YES" 


1090 IF P=3 THEN 1100 


300 PRINT"OR A (ZERO) FOR NO*" 


109O SOTO 1130 


310 PRINT 


1100 IF 8-3 THE* 1120 


320 PRIKT^UKEN STATINS THE AAOUNT OF A UAGER, PRINT ONLY THE HUNGER" 


1110 60TO 1130 


330 PRINT-OF BOLLARS (EXAHPLE: 250) YOU ARE AUTOHATICALLY STARTEB WITH 


1120 IF R=3 THEN 1530 


340 PRIHI"500 DOLLAR ACCOUNT." 


1130 IF P*A THEN 1150 


350 PRINT 


1140 SOTO 1180 


340 PRINT-GOOD LUCK" 


1150 IF 0=B THEN 1170 


370 LET A1=300 


1160 OOTO 1180 


3S0 LET A-IHT(3t<RNBa>n 


1170 IF R"C THEN1400 


390 IF AOO THEN 410 


1180 IF P*0 THEN 1200 


400 LET A-3 


1190 GOTO 1230 


411 LETB«INTC3*(RNDm>) 


1200 IF fl"E THEN 1220 


420 IFDO0THEH410 


1210 80T0 1230 


430 LET B=2 


1220 IF R=F THEN 1400 


440 LETC=INT(3»(BNDtX)>) 


1230 IF P-S THEN1250 


450 IFCO0THEH470 


1240 60TO 1280 


460 LETC>3 


1250 IF 0"H THEN1270 


470 LETB"IHT<3«<RflROO>> 


1260 GOTO 1280 


480 1FDO0THEN500 


1270 IF R'lTKEN 1400 


490 LETM1 


1230 IF P-J THEN 1300 


500 LETE"INT<3*(RHD0O)> 


1290 GOTO 1330 


510 IFEO0THEH530 


1300 IF Q"K THEN1320 


520 LETE-3 


1310 OOTO 1330 


530 LETF=IKT<3*(RNDm)) 


1320 IF R-L THEN 1440 


540 1FFO0THEH540 


1330 IF P-N THEN 1350 


550 LETF.3 


1340 GOTO 1380 


560 LET0»INT(3#<RHBiX))> 


1350 IF 0-H THEN 1370 


570 IFGO0THEN590 


1340 SOTO 1380 


5S0 LETG- 1 


1370 IF R=0 THEN 1400 


590 LETH=INT(3*(RND(X))> 


1380 PRINT *HEXT HQVE" 


600 IFHO0THEN620 


1390 OOTO 930 


610 LETH=3 


1400 PRINT N ******1AN09MM* I> 


620 LETI*INT(3*<RHD(Xn> 


1410 PRINT "YOU LOSE* 


430 IFIC0THEN650 


1420 PRINT 


640 LETI-2 


1430 PRINT 


650 LET>INT(3*(RND(Xm 


1440 IF Z«0 THEN 1580 


660 IFJO0THEN630 


1450 PRINT 


470 LETJ>3 


1460 LET Z2-A1-Z1 


690 LEU=INT(3*(R*(Dm>> 


1470 IF 22>0 THE* 1500 


690 IFXO0THEK710 


1480 PRINT "YOU BUST" 


700 LETK-2 


1490 GOTO 1410 


710 LE1L-INT(3»(RNB(X))> 


1500 PRINT " YOU NOU HAVE"; Z2; "DOLLARS 


720 IFLO0THEN740 


1510 LET A1«Z2 


730 LETL-3 


1520 GOTO I5B0 


740 LEIH*INT(3»<RNDtX»)> 


1522 PRINT-TRIED TO FOOL KE; BET AGAIN**; 


750 IFNO0THEN770 


1525 GOTO 870 


760 LETH-3 


1530 PRINT-COHSRATULATIONS 4 ' 


77* LETN«INTC3+4RNO(X>>> 


1540 IF Z"0 THEN 1580 


790 IFNO0THEN800 


1550 LET Z2-A1+Z1 


790 LET Net 


1560 PRINT "YOU NOU HAVE"; Z2;"D0LLARS" 


600 LET 0»INT (3*(RND(X))I 


1570 LET A1=Z2 


BIO IF <>0 THEN 830 


1580 PRINTED YOU UAHT TO TRY AGAIN'" 


820 LET 0*3 


1590 INPUT S 


630 PRINT "WANT TO NAKE A UAOER?" 


1600 IF S=1 THEN 380 


840 INPUT Z 


1610 PRINT "TOUGH LUCK" 


850 IF Z»0 THEN 920 


1620 PRINT 


860 PRINT "HOU NUCHT" 


1630 PRINT " flOOBBYE' 


870 INPUT l\ 


1640 END 
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I n this program you are captain of the 
destroyer USS Computer, An enemy 
submarine has been causing trouble 
and your mission is to destroy it. You 
may select the size of the "cube" of 
water you wish to search in. The 
computer then determines how many 
depth charges you get to destroy the 
submarine. 

Each depth charge is exploded by 
you specifying a trio of numbers; the 
first two are the surface coordinates 
(X.Y), the third is the depth. After each 
depth charge, your sonar observer will 
tell you where the explosion was 
relative to the submarine. 

Dana Noftle wrote this program 
while a student at Acton High School, 
Acton, Massachusetts. 

































DEPTH CHARGE 
CREATIVE C0HPUTIN6 MORRISTOUN, NEU JERSEY 






- 



DEPTH CHARGE BARE 


















DIMENSION Of SEARCH AREA? 50 












YOU ABE THE CAPTAIN OF THE DESTROYER USS COMPUTER 
Ah ENEMY SUB HAS BEEN CAUSING TOU TROUBLE. YOUR 
MISSION IS TO DESTROY IT. YOU HAVE 6 SHOTS. 
SPECIFY BERTH CHAR6E EXPLOSION POINT UITH A 
TRIO OF NUMBERS — THE FIRST TUG ARE THE 
SURFACE COORDINATES; THE THIRD IS THE DEPTH. 






BOUD 


IUCK > 




























urn 


1 1 T 25,25,23 








SOHlkfi 


REPORTS SHOT IMS 


SOUTHEAST 


AND 


TOO LOU, 


























' 



TRIAL 12? 12,35,12 

SONAR REPORTS SHOT PAS SOUTHWEST AND TOO LOU. 



TRIAL 13? 11,43,5 

SONAR REPORTS SHOT UAS NORTHEAST AND TOO HIOH. 

■ 
TRIAL N 4 t 15,39,8 

SONAR REPORTS SHOT UAS EAST AND TOO LOU, 









- 



■ 






TRIAL ft S ? 14,39,4 

BOOH! * YOU FOUNO IT IN 3 TRIES! 

ANOTHER 6AHE IT OR HI* N 

OK, HOPE YOU ENJOYED YOURSELF. 





















■ 
























dlPJH CHAffGE GAME 



.... 















DIMENSION OF SEARCH AREA? 10 






YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER 
AH ENEMY SUB HAS BEEN CAUSIN6 YOU TROUBLE, YOUR 
MISSION IS TO DESTROY IT. YOU HAVE 4 SNOTS, 
SPECIFY DEPTH CHARGE EXPLOSION POINT UITH A 
TRIO OF NUMBERS -- THE FIRST TUO ARE THE 
SURFACE COORDINATES; THE THIRD IS TH€ DEPTH. 









LUCK 



TRIAL f 1 ? 5,5 t 5 

SOMftR REPORTS SHOT 

































UAS NORTH AND TOO HIGH, 






TRIAL B 2 T 3,2.7 

SONAR REPORTS SHOT UAS SOUTH AND TOO HISK, 






TRIAL 13? 3»3,f 

SONAR REPORTS SHOT UAS SOUTH AHB TOO LOU. 



TRIAL « 4 T 5,4,8 

BOOH' ! YOU FOUNO IT IN 4 TRIES! 



■ 















2 PRINT TAB13Q>;*DEPTH CHARGE' 

4 PRINT TAB<15>;*CREATIUE COMPUTING 

4 PRINTt PRINTl PRINT 






flORRISTOUH, NEU JERSEY 1 



10 

20 

JO 

40 

50 

60 

70 

80 

90 

TOO 

110 

120 

130 

140 

200 

210 

30O 

400 

410 

420 

500 

510 

520 

530 

540 

530 

560 

570 

580 

590 

600 



PRINT "DEPTH CHANGE GAME": PRINT 
INPUT -DIMENSION OF SEARCH AREA";G: 
NMNT(L06(0)/L06(2)>t1 






PRINT 



PRINT 
PRINT 
PRINT 
PRUT 
PRINT 
PRINT 
PRINT 



■YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER" 
"AN ENEMY SUB HAS BEEN CAUSIN6 YOU TROUBLE. YOUR- 

-MISSION IS TO DESTROY IT, TOU HAVE-WSttOTS." 

•SPECIFY DEPTH GHAROE EXPLOSION POINT UITH A" 

"TRIO OF NUMBERS — THE FIRST TUO ARE THE" 

"SURFACE COORDINATES; THE THIRD IS THE DEPTH, " 

t PRINT "GOOD LOCK !"t PRINT 



A*IHT19*RHDm> J B»INT(B*RNDUM t C>INT10 
FOR D*1 TO N f PRINT ; PRINT "TRIAL R';B; : 
IF ABSU-A>*ABS<Y-B**ABS12-C)*0 THEN 300 



•room) 
INPUT X,Y,Z 



FOUND IT 



GOSUB 500 : PRINT : NEXT D 

PRIM! t PRINT "TOU HAVE BEEN TORPEDOED! 

PRINT "THE SUBMARINE VAS AT 

PRINT : PRINT "BOON! ! 

PRINT ; PRINTi INPUT 'ANOTHER GAME (Y 

IF At-"Y" THEN 100 

PRINT -OK. HOPE YOU ENJQYEI YOURSELF. 

PRINT "SONAR REPORTS SHOT UAS "; 

THEN PRINT -NORTH"; 

THEN PRINT 'SOUTH"; 



ABANDON SHIP!" 
JC I 0070 400 



in";d;-tries» 
OR NI-JAI 

" ! 6010 600 



IF 
IF 
IF 
IF 

IF 
IF 

IF 
IF 



Y>B 
Y<B 
X>A 
X<A 
Y<> 
2>C 
Z<C 
I=C 









THEN PRINT "EAST"; 
!HEN PRINT "UEST"; 
* OR XOA THEN PRINT ■ AflD"; 
THEN PRINT ■ TOO LOU." 
THEN PRINT " TOO HIGH." 
THEN PRINT ■ DEPTH OK." 












RETURN 
END 
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This program fills an 8%x11 piece of 
paper with diamonds (plotted on a 
hard-copy terminal, of course). The 
program asks for an odd number to be 
input in the range 5 to 31- The 
diamonds printed will be this number 
of characters high and wide. The 
number of diamonds across the page 
will vary from 12 for 5-character wide 
diamonds to 1 for a diamond 31- 
charaders wide. You can change the 
content of the pattern if you wish in 
Statement 6. 

The program was written by David 
Ahl of Creative Computing, 



i print TAB<3J);"»i<wO N r 




2 PRINT FAi MS J ; "CREATIVE COAPUMrtS flOftftlSTQUti 


3 PRIHTiPftlMTiffilHT 




4 PRINT "FOR A PRETTY DIMOH* 


PATTERN/* 


3 IMfUT "TTPE lit ft* DM NUNKf 


1 IETUEEN 5 AND 21 


& Q*IHTUO/R):fif**CC* 




8 FOR L*l TO Q 




tO X*MY*RiZ-2 




20 FOR MX TO T STEP Z 




23 PRINT Tft»(U-tt>/2); 




29 FM *M TO 




29 C-1 




30 FOR A 1 TO H 




32 IF OLEMM) THE* PRIHT T 


;:6OI0 50 


34 PRINT moi(ftt ( c r n; 




34 C*C+I 




30 NEXT A 




33 IF MQ THEN *0 




55 PRINT TA*(R«H*<R-N>/2>; 




54 NEXT H 




60 PRINT 




?0 NEXT N 




83 IF XOt 1HEN 93 




65 X«R-2if*1il"-2 




90 GOTO 20 




95 NEXT L 





HEU JERSEY' 



IRIPKINT 



DIAHOND 
CREATIVE COMPUTING H0RRIST0UN, NEU JERSEY 



FOR A PRETTY OIAHOHD PATTERN, 

TTPE IN AN ODD NUME8 BElUEtN 5 *N0 21? 15 



C 
CCI 

ecu 

CCMI 

CCMM 

CCIM It 

CC I II ! 1 1 

CC ! ! t 1 t 1 S 

CCMMII 

CCMM! 

CCMM 

CC1I I 

ecu 

CC! 

e 

c 

CCI 

ecu 

cent 

KM II 
CGI II 1 1 

CCMMII 

CCIMMII 

CCMMII 

CC M II I 

CCMI I 

CCMI 

CCII 

CCI 

c 

c 
CC* 

ecu 



I 



9* LN* 



CC 

CCI 

CCM 

CCIM 

CCMM 

CCIM 

CCII 

CCI 

CCMI 

CCM 

CCI 

c 

c 

CCI 

CCM 

CCM! 

CCMM 

CCI MM 

CCMMM 

CCIMMII 

CCMMM 

CC M I ! I 

CCMM 

CCM! 

CCM 

CC! 

e 



u 

Ml 

Mil 

Ml! 

Mil 

Mil 

Mil 

Ml 

II 

I 



1 

M 

Ml 

MM 

Mill 

MMI 

MIM 

MM 

Ml 

II 

I 



t 

II 

IM 

IM 

Ml 

HI 

Ml 

III 

Ml 

II 

( 



C 
CC! 
CCMI 
CCMIM 
CCMMII 
CCIMMII 
CCMMMM 
ICCIMMIMI 
CCIMMM! 
CCII MM I 
CCMMM 
CCMMI 
CCM* 
CC! 
C 

c 

cc- 

CCMI 
CCMM 
CCMMI 
CCMMM 
CCMMIM 
I CCMMMM 
CCMMIM 
CC II I M I 
CCMIM 
CCMM 
CCIM 
CC! 
£ 
C 
CCI 
CCMI 



CCM 
CCMI 



CC 
! CCI 
HUM 
! CCI 

CG 



Mil 

M ! ! 1 
MIM 
MM! 



I 



11 



MUM 

MUM 

MUM 

IMIM 

HUM 

CCMMII 

CCMIM 

CCIM 

CC! 

C 

c 

CC! 

CCM! 

CCMM! 

CCMMM 

CCMMIM 

CCMMMM 

CCMMMMP 

CCMMIMI 

CC ! 

CCMMM 

CCMMI 

CCMI 

CC! 

C 



c 

CCI 
CCM 
CCM! 
CCMM 
CCMIM 
I CCMMMIMM 
MCCMIMMMIII 
I CCMMMMMI 
CCMMMMI 
CCMMI 

CCI Ml 

CCIM 

CC! 

C 

G 

CC- 

CCM! 

CCMM 

CCMIM 

I CCMMMMI 
M CCMMIMMM 
IMCCMMHMIIM 

II CCMMMMMI 
I CCMMMMI 

CCMIM 

CCMM 

CCMI 

CCI 

C 

c 

CC! 
CCMI 

CCMM 

CCMMI 

I CCMMM 

M CCMMIM 

MICCMMMM 

M CCMMIM 

I CCMMII 

CCMIM 

CCMM 

* CCIM 

CC! 

c 
c 

CC! 
CCIM 
CCMM! 
} CCMMIM 

M CCMHIIIII 
M ! CCM M I ! ! ! ! M 
MMCCMMMMMM 
IM CC1MMIMIM 
M CCMMMMI 
I CCMMIM 

CCMMI 
CCM! 
CC! 
C 



C 

CCI 

CCIM 

CCMMI 

CCMMIM 

CCMMMMI 

CCMMMMMI 

ICCMMIIMMM 

CCMMIMMM 

CCMMMM! 

CCIMMM 

CCMM! 

CCIM 

CC! 

C 

c 

CCI 
CCMI 
CCI MM 
CC ! II ! ! 
CCMMM 
CCIMMM 
I CCMMMM 
CCMMIM 
CCMMM 
CCI MM 
CCMM 
CCM! 
CC! 
C 

c 

CC! 
CCM! 
CCMMI 
CCMIM 
CCMMM 
CCMMMMMI 
! CCMMIMMM! 
CCMMIMMM 
CCMMMM! 
CCIMMM 
CCMM! 
CCM! 
CC! 
C 
C 
CC! 
CCM 
CCM! 
CC!!!! 
CCMMI 
CCMMM 
[CCIMMM 
CCMMM 
CCMIM 
CCMM 
CCM! 
CCM 
CC! 
C 



! 
II 



I 

M 
II 
M 
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Not exactly a game, this program 
simulates rolling a pair of dice a large 
number of times and prints out the 
frequency distribution. You simply 
input the number of rolls. It is in- 
teresting to see how many rolls are 
necessary to approach the theoretical 
distribution: 



.% 



Daniel Freidus wrote this program 
while in the seventh grade at Harrison 
Jr-Sr High School, Harrison, New York. 



2 1/36 


2.7777 


3 2/36 


5.5555 


4 3/36 


8.3333 


etc. 






DICE 
CREATIVE COMPUTING NDRRI9TQUN, MEU JCtSEf 



THIS PROSRAH SIMULATES THE R0LL1HO OF A 

PAIR QF IICE. 

YOU ENTER IKE MMIEft OF TIKES YOU UANT THE COIPUTER TO 

'ROLL' THE DICE. VATCN OUT, VERT LAROE NUMBERS TAKE 

A LONS TINE. IN PARTICULAR, NUMBERS OVER 3MB. 



nOKRISTOUN, NCU JERSEY* 



2 PRINT TAB(34>;-BIC£" 

4 PRINT TAB(15);"CR£ATIVE COMPUTING 

A PRINTlPRINTiPtUT 

10 DIN F(12> 

20 REN DANNY FREIDUS 

30 PRINT "THIS PRQBRAN SIMULATES THE ROLLINS OF A" 
PAIR OF DICE." 

YOU ENTER TIE NUMBER OF TIMES YOU UANT THE COMPUTER TO" 
'ROLL' THE BICE. HATCH OUT, VERT LARGE RUMBERB TAKE" 
A LINO TINE. IN PARTICULAR, NUMDER5 OVER 3000." 
2 



HOU MANY R8LL8T 10000 

TOTAL SPOTS NUMBER QF TIMES 



HOU flANT ROUS' 



40 PRINT 

30 PRINT 

60 PRINT 

70 PRINT 

80 FOR 0-1 TO 

90 F<B)«0 

100 NEXT I 

110 PRINTlPRINT 

120 INPUT X 

130 FOR SM TO X 

MO A-INT<4»RND(I)*1> 

130 D-INT(4-RND«1»*1) 

160 R-A*l 

170 F(R)-f«R)*1 

180 NEXT S 

183 PRINT 

1M PRINT "TOTAL SPOT8VHUHDER OF TINES' 

200 FM V-2 T8 12 

210 PRINT V.FIV) 

220 NEXT V 

^22 PRINTlPRINT 'TRY A8AIN"' 

223 INPUT 20 

224 IF M«"YES" THEN SO 
240 CUD 



2 




312 


i 




343 


4 




820 


3 




1144 


4 




13t3 


7 




IMS 


8 




1330 


i 




1123 


10 




«4t 


11 




342 


12 




264 


TIT 


ABA INT 


TES 


HOU 


HANT (OlLST 100 


TOTAL SPOTS 


NUMBER Of TINES 


2 




1 


i 




1 


* 




" 


5 




t 


4 




16 


7 




22 


* 




16 


1 




1 


10 




11 


II 




1 


12 
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Digits 



The player writes down a set ot 30 
numbers (0. 1 1 or 2) at random prior to 
playing the game. The computer 
program, using pattern recognition 
techniques, attempts to guess the next 
number in your list. v 

The computer asks for 10 numbers at 
a time. It always guesses first and then 
examines the next number to see if It 
guessed correctly. By pure luck (or 
chance or probability), the computer 
ought to be right lOtimes. It is uncanny 
how much better it generally does than 
that! 

This program originated at Dart- 
mouth; original author unknown. 



DIGITS 
CREATIVE CORPUTMG HORRISTOUN, NEU JERSEY 



TEN NUMBERS, PLEASE? 0, 1,0,2,0,0,0,2,1,1 



flQ, 



THIS IS A QA1E OF GUESSING 

FIR IHBTRUCTiflKS, TYPE T, ELSE TYPE 



■T 1 



PLEASE TAKE A PIECE OF PAPER AMD WRITE D04JN 

THE II6ITS '»', '1', OR 'I' THIRTY TIMES AT AfttWM* 

AIRAHSE THEN IN THREE LIMES Of TEJf DIGITS. 

I UILL ASK FOR THEM 10 AT A TINE. 

1 UILL ALUATS GUESS THEN FIRST, AMI THEN LOOK AT TOUR 

NEXT HUHBER TO SEE IF I WAS RIGHT. BT PURE LUCK 

} OUGHT TO *E RIGHT 10 TIRES. IUT I HOPE TO 10 1ETTER 

THAH THAT fill 



TEN HUHftEftS, PLEASET 1,0,2,1,1,0,1,1,2,2 

NT GUESS YOUR NO, RESULT HO. RIGHT 





1 


URONG 










RIOHT 


1 




2 


URONG 


1 




1 


URONG 


1 




t 


RIGHT 


2 







IttOAG 


2 




% 


WONG 


2 




1 


RIGHT 


a 




2 


UR0N6 


3 




2 


WONG 


3 


TEN HUHBEtS, 


PLEASET 2,0,2,0,1,1,2,0,0,0 




NT 0UE8S 


YOUR HO. 


RESULT 


NO. RIGHT 




2 


RIGHT 


4 







WflONQ 


A 




2 


RIGHT 


5 







RIGHT 


6 




1 


RIGHT 


7 




1 


RIGHT 


8 




2 


RIGHT 


9 







URONG 


9 







URONG 


? 







UROttli 


? 



MI 6UESS 


VOI 


2 





2 


1 


2 





2 


2 


D 





I 





1 





1 


2 


I 


1 


1 


T 



RESULT 


NO. RIGHT 


HRONG 


» 


URONG 


9 


URGN8 


? 


RIGHT 


10 


RIOHI 


11 


MONO 


11 


urong 


11 


URONG 


11 


RIGHT 


12 


RIBtfl 


13 



I BUtSSeH HOSE THAN 1/3 OF (OUR NUHBEPS. 
1 WIN. 

si ran want to tbt again <i for yes, o for hoji i 

TEH NUMBERS, PLEASET 0,0,0,0,0,0,1,1,1,1 



fir GUESS 


TOUR HO. 


RESULT 


NO. 


RUNT 


ft 


ft 


RIOHT 


1 




7 





URONG 


1 




1 


ft 


URONb 


1 




2 





UfttJHG 


1 




2 





HHM8 


t 




2 





UR0H6 


1 







1 


WRONG 


1 




2 


1 


URQN6 


1 




* 


1 


URQNO 


1 




2 


1 


URONG 


1 




TER NUKBEflS, 


PLEASET 3,2 


,2,1,1,1,1,1,1,1 






HI GUE5S 


TOUR HO. 


RESULT 


NO. 


RIGHT 


1 


2 


URONG 


1 




1 


2 


URONG 


1 




i 


2 


URONI 


t 




2 


1 


URONG 


1 




1 


1 


RIGHT 


2 




2 


1 


URONG 


2 




1 


1 


URONG 


2 




2 


1 


URONI 


2 




2 


1 


URONI 


2 




1 


1 


RIGHT 


3 




TEN HUntERS, 


PLEASET 0,2,4,2,1, 0,1,0,1,1 






HI GUESS 


TOUR HO. 


RESULT 


HO. 


RIGHT 


2 


1 


URONG 


3 







2 


URONG 


3 




2 





URONG 


3 




2 


2 


SIGHT 


A 




2 


1 


URONG 


* 




1 





URONG 


i 







1 


URQN6 


4 




1 





URONG 


4 




« 


t 


URDNO 


4 




1 


! 


RIGHT 


3 





I GUESSED LESS THAN 1/3 OF TOW HUNGERS. 
YOU SEAT HE. CORBRATULATIONS *•«* 

00 TOO WANT 10 TRT AGAIN 11 FOR YES, I F( 

THANKS FOR THE GAPE. 



N0)? 
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10 PRINT TAf (HI Tiffins" 

2: PRINT TAS<13);"CREATIVE C0HPUT1H6 

30 PRUTiPRINTtPRUT 

210 ftmr-THis is a oahe of buessug.* 

PRINT "FOR INSTRUCTIONS, TYPE '1*, 

INPUT E 

IF E"0 THEM 340 

PRIST 

PLEASE TAKE A PIECE OF PAPER AHI URITE DOUN* 



HORRISTOUN, NEU JERSEY' 



ELSE TYPE '0' 



PRIST 

PRINT 

PRUT 

PUNT 

PRUT 

PRINT 

PRINT 

PRINT 

PRINT 

READ 

**TA 



•THE SUITS '0' t 'T, OR '2' THIRTY TIMES AT 
'ARRANGE THEN IH THREE LINES OF TEH SUITS*" 
'I NILL ASK FOR THEN 10 AT A TINE,* 
•I iUL ALNRYS IUESS THEN FIRST. AMD 



RANBQtt*' 



TQUR" 



NEXT HUNSER TO SEE IF I HAS Rlf 
I OUGHT TO RE RIGHT 10 TIftES. 
THIN THAT *••*•" 
PRINT 
»,G,C 



iBT. 
IUT 



THEN LOOK AT 
IT PURE LUCK" 
I HOPE TO W SETTER- 



: NEXT J: NEXT I 
NEXT J; NEXT I 
NEXT Jt NEXT I 



9T0 

1 

UtO 

1«0 

1030 

mo 

ttiO 
t#70 
1010 
109O 



SIN rt(2*,2),K<2,2) t L(S r 2> 

FOR 1-0 TS 26: FOR J*0 TO 2; IIU»J>«1 

FOR I<0 TO 2l FOR J-9 TO 2t K(l,J>*ff 

FOR I"0 TS Gl FOR J«# TO 2t L(I,J)»3t 

LC0,0)»2l l(4»1)«2i L(8 t 2J-2 

I«2At Z1-St Z2-2 

x»o 

fIR T*1 TO 3 

PRUT 

PRINT "TEN NtWSERS, PLEASE"; 

INPUT N<1>.Nf2> f N(3) r N(4) f N(S) t H<4> f M(7).N<G> f N(?) r NM0) 

FIR 1-1 TO 10 

l-RCD-1 

IF U>SBN(U> THEN 620 

PRINT "ONtY USE THE DIBITS '0% *\* % OR '2'." 

PRINT -LET'S TRY *OAU.»i SOTO 530 

NEXT I 

PRINTi PRUT "NT 6UE3SVY0UR N0,- ( "AESULTVN0. RISHT'iPRINT 

FIR U"l TO 10 

N-NCNIt S*0 

FOR J-0 TO 2 

SUA*Ka2,J)+8*L(Zl f J>tC*)1U,J> 

IF 9>S1 THE* 740 

IF S<S1 THEN 740 

IF ftffSnX.S THEN 760 

S-Sli G-J 

NEXT J 

PRINT 8,K<U}, 

IF B*NfU> THEN SIS 

PRINT *IUOM) a %X 

GOTO 010 

W+1 

PRINT "RIGH7" p X 

ft<Z f HI-H<Z,H>tl 

Lt2l,lH. 1 21*11+1 

K(22 t N)"K(Z2 t NK1 

Z«Z-INI<Z/?>»» 

ZI»Z-INT(Z/9><? 

Z2-UCID 

NEXT I 

NEXT T 

PRINT 

IF X>10 THEN 960 

IF X<U THEN 1010 

PRINT "I GUESSED EXACTLY 1/3 ON YOUR NLMBERS." 

PRINT "IT IS A TIE GANE." 

GOTO 1030 

PRINT "I IUESSE* MORE THAN 1/3 Of YOUR NUHBERS-* 

PRINT 'I NU.'l FOR SM TO tOl PRINT CHR*(7);i NEXT 

GOTO 1030 

PRINT "I GUESSED LESS THAN 1/3 OF YOUR WWSER5." 

PRINT "YOU SEAT ft£. CtiHORATULATIQtiS *****' 1 



PRINT 

PRINT ' 
INPUT : 
IF X»1 
PRINT; 
ENS 



TOU VANT TO TRY AGAIN (1 FOR YES r FOR NO)' 



THEN 400 
PRINT "THANKS 



FOR THE GM1E,' 
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ins 



This is a game between you and the 
computer. To play, an odd number of 
objects {marbles, chips, matches) are 
placed in a row. You take turns with the 
computer picking up between one and 
four objects each turn. The game ends 
when there are no objects left, and the 
winner is the one with an even number 
of objects picked up. 

Two versions of this game are 
included. While to the player they 
appear similar, the programming ap- 
proach is quite different. EVEN WINS, 
the first version, is deterministic — i.e., 
the computerplays by fixed, good rules 
and is impossible to beat if you don't 
know how to play the game- It always 
starts with 27 objects, although you 
may change this in Lines 250, and 1060. 

The second version, GAME OF 
EVEN WINS, is much more interesting 
because the computer starts out only 
knowing the rules of the game. Using 
simple techniques of artificial in- 
telligence (cybernetics), the computer 
gradually learns to play from its mis- 
takes until it plays a very good game. 
After 20 games, the computer is a 
challenge to beat Variation in the 
human's style of play seems to make 
the computer learn more quickly. If you 
plot the learning curve of this program, 
it closely resembles classical human 
learning curves from psychological 
experiments. 

Eric Peters at DEC wrote the GAME 
OF EVEN WINS. The original author of 
EVEN WINS is unknown. 



EVEM U1MS 
CREATIVE CIHPUTIH8 flOftfttSTOUH, NEU JERSEY 



THIS 18 A TUO PERSON GAME CALLED 'EVEM UINS*' 
IB PHY THE BME, THE PLATERS MEED 27 MARDLES OR 
OTHER OBJECTS QM A TAKE. 



TrPE A 1 IF YOU UAMT TO GO FIRST, AND TYPE 
A IF YOU UANT IE TO 60 FIRST. 
T 

TOTAL* 2? 

1 PICK UP 2 ilAHBLES. 
TOTAL- 25 

AMI UHAT IS TOUR NEXT MOVE, MY TOTAL 13 2 
T 2 

TOTAL- 23 

TOUR TOTAL IS 2 
I PICK UP 4 MARDLES. 
TOTAL" 1? 

AMD UHAT IS YOUR HEXT HOVE, MY TOTAL IS 6 



TOTAL- 15 

YOUR TOTAL IS 4 
I PICK UP 2 MARBLES. 
TOTAL" 13 

AM WAT IS TOUR «£XT MOVE, MY TOTAL IS 8 
f 1 

TOTAL* 12 

YOUR TOTAL IS 7 
1 PICK UP 1 MARBLES. 
TMAL- 11 

AM WHAT IS YOUR MEXT MOVE, NY TOTAL IS ? 
T 1 

TOTAL- 8 

YOUR TOTAL IS 10 
I PICK UP 1 MARBLES* 
TOTAL* 7 

AMD UHAT IS TOW KEXT MOVE, MY TOTAL IS ID 
? 1 

TOTAL* * 

YOUR TOTAL 18 If 
I FICK UP 1 MARDLES. 
TDTAL- 3 

AMD UHAT 1ft YOUR NEXT HOVE, MY TOTAL IS 11 
T 1 

TOTAL* 4 

TOUR TOTAL IS 12 
I PICK UP 3 MARDLES. 
TOTAL* 1 



THE 2 PLATERS ALTERNATE TURNS. UITH EACH PLAYER 
REM0VIH8 FROM I TO 4 -MILES DM EACH MOVE, THE GAhC 
ENDS UHEM THERE ARE MD MABBLES LEFT, AMD THE UIKHER 
IS THE OME WITH Al EVEN NUMBER OF BARDIES, 



THE 8MLT RULES ARE THAT <1> TOU MUST ALTERNATE TUflNSp 
<2) YftU MUST TAKE BETKEEH 1 AMI 4 NARILE8 EACH TURN, 
AID (I) YOU CARNOI SKIP A TURK, 



AMD UKAT IS TOM «" «NE t MY TOTAL IS 14 



T 1 



THAT IS ALL OF THE MARBLES. 

MY TOTAL IS 14 YOUR TOTAL IS 13 

1 UON. 10 TOU UAMT TO PLAY 
AQAIftT TTPE 1 FDR VES AMD FOR HO. 
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1 PRINT TAB<31>rEVEH 111*3- 

2 PRIMT TABU3»; M CREAII« COHPUTIHG HOftRISTOUN, NEU JERSEY" 

3 PRINTtPRINTiPRIM 

4 n*o 

io m-o 

20 IIH N<28) t Yl20» 

30 PRIHT ■ THIS IS A TUO PERSON GAtiE CALLED 'EVEN UINS.'" 

40 PRIHT "10 PLAY THE 8AHE, THE PLAYERS HEED 27 HARILES 08" 

30 PRIHT "OTHER OBJECTS OH A TABLE.' 

60 PRIffT 

70 PRIKT 

SO PRIHT " THE 2 PLAYERS ALTERNATE TURNS, UITH EACH PLAYER* 

90 PH1HI "REHQVIHG FROM 1 TO 4 HARILES OH EACH HOVE* THE 8AHE" 

100 PRINT "EMS UHEH THERE AH HO HARHCS LEFT, AND THE UIHRER* 

110 PRINT "IS THE OHE UITH AN EUEH NUHBER OF NARBLES." 

120 PRINT 

130 PRINT 

MO PRINT * THE ONLY RULES ARE THAT (I) YOU HOST ALTERNATE TURNS/ 

150 PRINT "(2) YOU NU5T TAKE IETOEEN 1 MB 4 HARILES EACH TURN," 

140 PRIHI -AND 13) YOU CARWT SKIP A IUR*." 

170 PRINT 

180 PRINT 

190 PRINT 

200 PRINT * TYPE A 1 IF YOU MMT TO GO FIRST, AND TYPE* 

210 PRINT *A If YOU WANT HE Tfi 00 FIRST." 

220 INPUT C 

230 IF €»0 THEN 230 

2*0 60TO 1060 

250 T-27 

260 H«2 

270 PRINT "TOTAL*-;! 

280 WsflltM 

290 T=l-H 

300 PRINT "I PICK UP";tt;'MRBLES." 

310 IF T«0 THEN 8B0 

320 PRINT nOTAL=*;T 

330 PRINT 

340 PRINT * ANQ UHAT IS YOUR NEXT HOME, NY TOTAL IS";m 

330 IHPUT Y 

360 PRINT 

370 IF T<l THEN 1160 

3B0 IF Y>4 THEN 1160 

390 IF YOI THEH 430 

400 PRINT " YOU HAVE TRIE* TO TAKE WORE HARBLES THAN THCRE ARE* 

410 PRIHT "LEFT. TRY A6AIH." 

420 80T0 350 

430 Yt*yWY 

440 T"I-t 

430 IF T-0 THEN 660 

460 PRINT •TOTAL-";! 

470 PRINT 

480 PRINT ■ YOUR TOTAL 1S*;Y1 

4?0 IF T<,5 THEH 880 

300 R-W*IKT4T/6) 

310 IF INim/2)-Y1/2 THEM 700 

320 IF K4.2 THEN 580 

330 IF R>3.4 THEN 620 

340 n=S+i 

530 rt1=ril trl 

360 T=I-#t 

370 fiOTO 300 

580 n = T 

590 T-T-* 



600 3CTQ B3Q 

610 REH 230 IS WHERE I U1H. 

620 IF R<4.7 THEN 660 

630 IF R>3.3 THEN 460 

640 N<t 

630 60TO 670 

660 AH 

670 T*T-H 

680 NI-HltH 

6*0 GOTO 300 

700 REH I AH READY TO ENCODE THE STRAT FOR NHEH OPP TOT IS EVEN 

710 IF R<1.5 THEN 1O20 

720 IF R>3.3 THEN 1020 

730 N-R-l 

740 HI-HHH 

730 T=T-H 

740 IF K.2 THEN 790 

770 REH 18 H ZERO HERE 

710 60T0 300 

700 REH 18 « ZERO HERE 

800 PRIHT "I PIC* UP";H;"HAR8LES.' 

810 PRIHT 

820 SOTO SSO 

830 REH THIS IS WERE I UIN 

840 PRINT -I PICK UP-jHpHARBLES.- 

830 PRIHT 

840 PRIHT "TOTAL ■ 0* 

870 H1-H1+H 

880 PRIHT " THAT IS ALL Of THE HARILES," 

8t0 PRINT 

?00 PRINT - BY TOTAL IS";ii;" YOUR TOTAL IS";T1 

910 PRINT 

928 IF INT<Nl/2>-H1/2 THEN 950 

930 PRINT " TOU HON. BO YOU UANT TO PLAY" 

940 GOTO 960 

930 PRIHT " I UOH. 00 YOU UANT TO PLAY" 

940 PRINT -AflAINt TYPE 1 FOR TES AMI FOR «J." 

970 IHPUT A1 

980 IF At-0 THEN 1030 

9f0 «1»0 

1000 YUO 

1010 OOTO 200 

1020 GOTO 640 

1030 PRINT 

1040 PRIHT "OK- SEE YOU LATER." 

1050 OOTO 1230 

1060 T=27 

T070 PRIHT 

1080 PRIHT 

1090 PRIHT 

1100 PRIHT h total*";t 

1110 PRINT 
1120 PRINT 



1130 
1140 

1150 
TUO 
1170 
1180 
1190 
T200 
1210 
1220 
1230 



PRIHT " 

INPUT Y 

OOTO 360 

PRIHT 

PRIHT 

PRIHT 

PRIHT 

PRIHI " 

PRIHT 

ROTO 350 

END 



UHAT 13 TOUR FIRST NQVE?* 



THE NUMBER OF HAR8LES TOU 
INTEGER BETUEEH t AND 4." 



TAKE BUST BE A POSITIVE" 



WHAT IS TOUR HEX! HOVt?" 
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OflftE OF EVEN UIH3 
NATIVE COMPUTING HORIUSTOUH, rttu JERSEY 



DQ YOU UAKT INSTRUCTIONS CTES OR HO)T YES 



THE GAME IS PLAYEO AS FOLLOUSi 

AT THE BEGINNING OF THE GAME, A ftAHMH HUNGER OF CHIPS ARE 
PLACED ON THE BOARD. THE NUMBER IF CHIPS ALWAYS STARTS 
AS AH ODI WJHBER. OH EACH TURK, A PLAYER MUST TAKE OHE f 
1WI V THREE, OK FOUR CHIPS. THE UINMER IS THE PLATER UHO 
FINISHES IPITH A TOTAL NUMBER OF CHIPS THAT IS EVEN. 
THE COHPUTEft STASIS OUT KHGUIN6 ONLY THE RULES OF THE 
MM. IT GRADUALLY LEARNS TO PLAT UELL. IT SHOULD BE 
IIFFICUU TO BEAT THE COMPUTER AFTER TUENTY BAKES IH A ROU, 
TRY ITIIII 

TO QUIT AT AMY TIME, TYPE A '•' AS YOUR HOVE. 



THERE ARE 2T CHIPS OH THE BOARD. 
COMPUTER TAKES 4 CHIPS LEAVING 17 
THERE ARE 13 CHIPS tH THE BOARD. 
COMPUTER TAKES 4 CHIPS LEAVING 9 . 
THERE ARE 7 CHIPS OH THE BOARD. 
COMPUTER TAKES 4 CHIPS LEAVING 3 , 
THERE ARE 2 CHIPS DM THE 
COMPUTER TAKES 2 CHIPS. 
GAME OVER ... I UlNIM 

THERE ARC 1* CHIPS OH THE 
COMPUTER TAKES 4 CHIPS LEAVING 15 
THERE ARE 11 CHIPS OH THE BOARD. 
COMPUTER TAKES 4 CHIPS LEAVING 7 t 
THERE ARE 5 CHIPS OH THE BOARD. 
COMPUTER TAKES 4 CHIPS LEAVING 1 . 
OAHE OVER ... I UIHI M 

THERE ARE 9 CHIPS OH THE BOARD. 
COMPUTER TAKES 4 CHIPS LEAVIHO 5 ■ 
THERE ARE 3 CHIPS OH THE BOARD. 
COMPUTER TAKES 3 CHIPS. 
OAHE OVER ... YQU UIHI I ! 



TOUR HOVET 4 



,. TOUR MOVE! 2 



YOUR MOVET 1 



, TOUR MOVE! 4 
TOUR MOVET 2 



YOUR MOVE? 1 



YOUR HOVE T 2 



THERE ARE 21 CHIPS OH THE 
COMPUTER TAKES 2 CHIPS LEAVIHO 
THERE ARE 17 CHIPS OH THE BOAR! 
COMPUTER TAKES 4 CHIPS LEAVING 
THERE ARE 12 CHIPS OH THE BOARI 
COMPUTER TAKES 4 CHIPS LEAVING 
THERE ARE 5 CHIPS ON THE BOARD, 
COHPUTER TAKES 4 CHIPS LEAVING 
CiVHE OVER ... I UIHI : 1 



THERE ARE f CHIPS OH THE BOARI. 
COMPUTER TAKES 2 CHIPS LEAVING 7 . 
THERE ARE 3 CHIPS OH THE BOARD, 
COMPUTER TAKES 2 CHIPS LEAVING 1 . 
GAME OVER ... I UINH ! 

THERE ARE 21 CHIPS OH THE BOARD, 
COMPUTER TAKES 2 CHIPS LEAVING 19 
THERE ARE IS CHIPS OH THE BOARB. 
COMPUTER TAKES 4 CHIPS LEAVING 14 
THERE ARE 13 CHIPS OH THE BOARB, 
COMPUTER TAKES 4 CHIPS LEAVING ? . 
THERE ARE CHIPS OH THE BOARD. 
COMPUTER TAKES 2 CHIPS LEAVING 6 . 
THERE ARE 5 CHIPS OH THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVING 1 . 
OAHE OVER ... I UMIII 

THERE ARE 9 CHIPS OH THE SOAR*. 
COHPUTER TAKES 2 CHIPS LEAVING 7 . 
THERE ARE 3 CHIPS OK THE IOARO. 
COHPUTER TAKES 2 CHIPS LEAVING I . 
SAME OVER ... I UINMI 

THERE ARE 21 CHIPS OH THE BOARD. 
COHPUTER TAKES 2 CHIPS LEAVING 1? 
THERE ARE IS CHIPS OH THE BOARD. 
COMPUTER TAKES 2 CHIPS LEAVING 13 
THERE ARE 10 CHIPS OH THE BOARD. 
COHPUTER TAKES 4 CHIPS LEAVIH8 6 . 
THERE ARE 2 CHIPS OH THE BOARD. 
COHPUTER TAKES 2 CHIPS. 
GAME OVER ... L UINMI 



19 ... TOUR HOVET 2 



.. TOUR MOVE? 1 
, YOUR MOVET 3 
. YOUR MOVET 1 

. TOUR MOVET 4 
. YOUR HOVE? 1 

.. TOUR HOVEt 1 
.. YOUR HOVET 1 
. YOUR MOVET 1 
.. YOUR HOVET 1 
i. YOUR ttOVET 1 

,. YOUR MOVET 4 
., YOUR MOVET t 

,.. YOUR MOVE? 4 
... YOUR HOVET 3 
.. YOUR HOVET * 



PRIMT TAB<2Q);"GAHE OF EVEN UIN5 H 
PRIRT TAB<13);*CREATIVE COMPUTING 
PRlHTiPfllNTiPRIRT 



MQRRISTOUN, NEU JERSEY* 



BO YOU UAKT INSTRUCTIONS (TES OR NO)";AI 

KG* 1 THEN 20 

PRINT "THE GAME IS PLAYED AS FOLLOUSt* 

AT THE BE6IHNEHG OF THE OAHE, A RANDOM NUMBER OF 

PLACED OR THE BOARB. THE NUMBER OF CHIPS ALUAYS 

AS AH ODD NUHBEft. OH EACH TURK, 

PRINT 

PRINT 

PRINT 

PRUT 

PRINT 

PRINT 

PRINT 

DIH 

L«Oa 0-0 

FOR !'■( TO 5 

RII.DM 

R<a,I>-4 

NEXT I 

A-0* R'O 

P»IHT((13»RH|(1)+9>/2)*2*1 



INPUT 
IP At 

6 PRINT 

7 PRINT 
G PRINT 
9 PRINT 
1B 
11 
12 
13 
14 
15 
ti 
20 
25 
3d 
40 
50 
40 
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90 



CHIPS ARE" 
STARTS" 
A PLATER MUST TAKE ONE,' 
UIHNER IS THE PLAYER UHO* 
CHIPS THAT IS EVEN." 
ONLY THE RULES OF THE" 
BIABUAILY LEARHS TO PLAY UELL. IT SHOULD *E" 
TO BEAT THE COMPUTER AFTER TWENTY GAMES IN A ROU. 



TUO, THBEE, OR FOUR CHIPS. THE 
'FINISHES UITH A TOTAL HUHBER OF 
'THE COHPUTER STARTS OUT KHOU1HG 
'GAME. IT 
'DIFFICULT 



"TRY ITU!! 1 
"TO QUIT AT 



| PRINT 
ANY TIHE, 



TYPE A 



AS YOUR MOVE. - ! PRINT 



100 

tic 

120 
130 
140 
150 
uo 
174 
180 
1T0 
200 
210 
220 
230 
240 
230 
260 
270 
2B0 
290 
3B0 
310 
320 
330 
340 
330 
340 
370 
390 
400 
410 
420 
430 
430 
4 iO 
470 
400 
490 
300 
310 
320 
330 
340 
550 
340 
370 



IF Ml THE* 330 

PRINT "THERE ARE" ;P ["CHIPS Off THE BOARD. 1 

E1>E 

LI'L 

E-U/2-IHT(A/2>)*2 

L-INTUP/6-IHT(P/6>}«6*.3> 

IF R£E,L)>-P THEN 320 

H*R<£ ( L) 

IF H«0 THEN 370 

P-P-M 

IF H-1 THEN 510 

PRINT "COMPUTER TAX£S*;H;"CKIPS LEAVING" 

B*B*H 

INPUT M 

H'1NT<H> 



YOUR MOVE' 



THEN 
THEN 
THEN 

THEN 



4S0 

460 

460 

360 



330 



420 

TQU 



UIHf! 



PRINT 



IF N<1 
IF N>4 
IF M>P 
IF |* 

P»P-H 

A"A*H 

GOTO 100 

IF Ml THEN 

PRINT -COHPUTER TAKES";P;"CHIPS.' 

R(E»L)«P 

••B*P 

IF B/2=INT(D/2) THEN 

PRIHT "GAME OVER ... 

IF R(C,L>'1 THEN 400 

R<£,L)=R4E,L)~1 

GOTO 70 

PRINT "GAME OVER ... 

GOTO 70 

IF* M=0 THEN 570 

PRINT M;"IS AH ILLEGAL HOVE ... YOUR MOVE"; 

GOTO 230 

IF R(E1 t L1>-1 THEN 70 

R(E1,L1>-R(E1,L1)-t 

GOTO 70 

PRINT "COHPUTER TAKES I CHIP LEAVING";P; - ..- TOUR MOVE"; 

GOTO 220 

PRIHT "THERE IS 1 CHIP OH THE BOARD." 

GOTO 120 

PRIHT "COHPUTER TAXES 1 CHIP.* 

GOTO 340 

END 



I UINMl't PRINT 
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Flip 




The object of this game is to change 
a row of ten X's 

XXXXXXXXXX 
to a row of ten O's: 

0000000000 
by typing in a number corresponding 
to the position of an "X M in the line. On 
some numbers one position will 
change while on other numbers, two 
will change. For example, inputting a 3 
may reverse the X and in position 3, 
but it might possibly reverse some 
other position too! You ought to be able 
to change all 10 in 12 or fewer 
moves. Can you figure out a good win- 
ning strategy? 

To reset the line to all X l s (same 
game), type (zero). To start a new 
game at any point type 11. . 

The original author of this game was 
Michael Kass of New Hyde Park, New 
York. 



FLIPFLGP 
CREATIVE CONFUTING HORRISTOUN, NEU JERSEY 

THE OBJECT OF THIS PUZZLE IS TO CHANGE THISt 

X I 1 1 1 I M M 

10 THI81 

DO 00 Q 10 I Q I 

BY TYPING THE NUHBER CORRESP0MIW TO THE POSITION OF THE 
LETTER OK SOME RUBBERS, ONE POSITION U1LL CHANGE, ON 
OTHERS, TOO IMLL CHAN6E. TO RESET LINE II ALL X'S, TYPE ( 
(ZERO* ANB TO START OVER IN THE NIBBLE Of A GAAE, TYPE 

11 (ELEVEN), 

HERE IS THE STARTING LINE OF X'S, 



2 PRINT TAB(32);"FLIPFL0P" 

4 PRINT IAB(15);"CR£ATI« COMPUTING 

6 PRlNT:PRINTtPRIH1 



BORRISTOUN, NEU JERSEY' 



1 Z 3 4 5 6 7 8 ? 10 


X X X X X K X X X X 


INPUT THE NUHBER? 2 


1 2 3 


4 3 6 7 8 9 10 


X X 


X X X X X X 


INPUT 


THE HUME8? 1 


1 2 3 


u t ; 8 f » 


X 


X X X X X 


U9U1 


THE NliNBEBT 4 


1 2 3 


4 5 6 7 a 9 10 


X 


X X X X 


INPUI 


THE HUMBERT 5 


1 2 3 


4 3 6 ? 9 10 


X 


X X X 


INPUT 


THE NUntERt 9 


1 2 3 


4 5 6 7 1 9 10 


X 


X X X 


INPUT 


TNE NUNRERT 1 


1 2 3 


\ 5 i ? 8 9 ] 





X X X 


INPUT 


TH£ NUHBERT 3 


1 2 3 


4 5 6 7 $ 9 10 





X x 



INPUT THE HUMBERT 10 

1 2 3 4 3 6 7 9 10 

0000000000 

VERY GOOD. YOU GUESSED IT IN ONLY 8 6UESSES. 

00 YOU UAHT TO TRY ANOTHER PUZZLET NO 



TO 
15 

20 

30 

40 

30 

60 

70 

80 

90 

100 

110 

120 

130 

MO 

i;o 

180 
1?0 
200 
210 
220 
230 
240 
2S0 
260 
270 
2B0 
2f0 
300 
310 
320 
330 
340 
350 
3*0 
371 
380 
390 
400 
410 
420 
430 
410 
430 
460 
470 
480 
4*0 
500 
310 
320 
330 
540 
350 
310 
370 
380 
3?0 
600 
610 
620 
630 
640 
630 
660 
670 



f n n n n xr 



TO THL5;* 



•0 0QOQQOOOO" 



THE NUMBER CQPRE5P0WBIMQ TO THE POSITION Of THE' 



SOME NUN1ERS, ONE POSITION UILL CHANGE , 



"OTHERS, TOO WILL CHANGE. 
'(ZERO) AND TO START OVER 
'If (ELEVEN!," 



TO RESET LINE TO ALL X' 
IN THE NIBBLE OF A 6ANE f 



REH **t CREATED BY MICHAEL CASS 

DIN At (201 

PRINT "THE OBJECT OF THIS PUZZLE IS 10 CRAHOE THIS: 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "BY TYPING 

PRINT "LETTER ON 

PRINT 

ntiNi 

PRINT 
PRINT 
REN 

iH«th 

PRINT "HERE IS THE STARTING LINE OF X'S. 

PRINT 

(.J 

PRINT *1 2 3 4 3 6 7 8 9 10" 
PRINT -X X X X X X X X X X" 
PRINT 
REH 

FOR X-1 TO 10 
M(Jt)-"X" 

NEXT X 

8010 320 

PRINT "ILLEGAL ENTRY— TRY AOAJH." 

PRINT "INPUT THE RUBBER"; 

INPUT M 

IF NOINT(N) THEN 310 

N"11 TNEN 180 

N>11 THEN 310 

N»0 THEN 230 

R«X THEN 510 



i, TYPE 
TYPE ■ 



IF 

IF 
IF 

IP 

N-N 

IF Aft(N>*"G H THEN 4B0 

A»(H)*"0" 

R»IAN<0*N7fl-N»-SIH(Q/N)*336*SlN<8'<IO 

N-R-INTIR) 

l-tOftllORl 

IF A*<N)-"Q" THEN 480 

A»(N)""0" 

SOTO 610 

AHN)*"X" 

IF H-H THEN 420 

SOTO 610 

IP A*<M>*"0' THEN 390 

At<H>»"0" 

R*.3?2t(1/TANCO/N4Q)}/SLH(N*2tQ>-C0S<N) 

N-t-INT(R) 

N>XNTilOtN) 

IF A$(N)>"0" THEN 390 

A$(HW0" 

60T0 610 

AI(N)-"X- 

IF H=N THEN 530 



5 6 7 

PRINT 



8 9 10' 



El NEXT i 



10 



fHER 320 



PIWT "I 2 

FOR 2-1 10 

C«C*I 

PRINT 

FOR 2=1 TO 

IF AMZK>' 

NEXT Z 

IF C>12 THEN 710 
690 PRINT "VERY 00OB. 
700 GOTO 720 

710 PRUT "TRY HARDER NEXT TINE. IT TOOK YGU";C;*GUES5ES, 
720 PRINT "BO YOU UAHT TO TRY ANOTHER PUZZLE"; 
730 INPUT Xft 
740 IF X$«"N0" THEN 780 
760 PRINT 
770 0010 180 
780 END 



YOU GUESSED II IN ONLY" ;C:*flU£SSES< 
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Football is probably the most pop- 
ular simulated sports game. I have seen 
some people elect to play com- 
puterized football in preference to 
watching a bowl game on television. 

Two versions of football are 
presented. The first is somewhat more 
"traditional 11 in that you, the player, are 
playing against the computer. You 

have a choice of seven offensive plays. 
On defense the computer seems to 
play a zone defense, but you have no 
choice of plays. The computer 
program presents the necessary rules 
as you play, and it is also the referee 
and determines penalties when an 
infraction is committed. FTBALL was 
written by John Kemeny at Dartmouth. 

In the second version of football, the 
computer referees a game played 
between two human players. Each 
player gets a list of twenty plays with a 
code value for one. This list should be 
kept confidential from your opponent. 
The codes can be changed in data 
statements 1770 for Team 1 and 1780 
for Team 2. All twenty plays are 
offensive; a defensive play is specified 
by defending against a type of offen- 
sive play. A defense is good for other 
similar types of plays t for example, a 
defense against a flare pass is very 
good against a screen pass but much 
less good against a half-back option. 

This game was originally written by 
Raymond Miseyka of Butler, Penn- 







FJMLL 
CREATIVE CONFUTING HORRISTOUN, HEU JERSEY 












THIS [S DARTMOUTH CHAMPIONSHIP FOOTBALL. 

YOU U1LL DUARTERBACK RARTKOUTH. CALL PLAYS AS FGLLOUS: 

1* STAPLE RUN; 2» TRICKY RUK; 3= SHORT PASS; 

4* LONG PASS; 5= PUNT; 6- QUICK KICK; 7* PUCE KICK. 



CHOOSE YQOfi OPPONENT? RUTQER3 






















DURTHQUTH UOH THE TOSS 

DO YOU ELECT TO KICK OR RECEIVE? RECEIVE 

54 im KICKOFF 

42 YARD RUtflACK 
BALL OH DARTMOUTH 48 YARD LINE 
FIRST DOWN DARTMOUTH". 

HEXT PLAY? 3 

SHORT PASS, IKCONPLETE- HO BAIN 
1ALL OH DARTMOUTH 49 YARD LIK 
DOUH 2 YAWS YO GO: 10 

MXT PLAT? 4 

LOHB PASS* INCOMPLETE . NO GAIN 
RUTGERS OFFSIDES — PENALTY Of 5 YARIS. 

DO YOU ACCEPT THE PEHALTY? YES 
DALL OH RUTGERS 47 YARD LIHE 
DOUN 2 YARDS YO B0| 5 














HEX I PLAT? 2 
TRICKY RUN. 3 YARD LOSS 
DALL OK DARTHOUTH SO YARD LIHE 
DQUK J YARDS TO GO; 8 



KEXT PLAY? 2 

RICKY ROH. 10 YARD GAIN 
DALL OH RUTBERS 40 YARD LIHE 
FIRST DOUH 1ARTH0UYH»*» 



HEXT PLAYT 4 

LONG PASS. COMPLETE 
KICK IS GOOD 







SCORE. 




DARTMOUTH KICKS OFF 

43 TARI KICKOFF 

ft YARD RUNBACK 
BALL OH RUT6ERS IS YAfiD LINE 
FIRST DOBN RUT6ERS*" 



SHORT PASS. BATTED BOWt. HO BAIN 
BALL ON RUT6ERS IS YARD LIK 
DOUH 2 YARDS TO 00: 10 



LONE PASS. BATTED BOUH. Nl 
BALL ON RUTGERS 15 TARD LINE 
DOUH 3 YARDS TQ lii): 10 



GAIN 



ION 6 PASS. INCOMPLETE. NO OAIN 
BALL ON RUTGERS 15 YARD LIK 
DOUH 4 YARDS TO QOl 10 



PUNT. 34 YARD PUNT 

15 YARD RUH BACK 
BALL ON RUT6ERS 34 YARD LIHE 
FIRST BQUN DARINDUTH*** 













NEXT PLAT? 2 

TRICKY RUM. 1 YARB LOSS 
BALL OH RUTGERS 35 TARD LIKE 
rQUtt 2 YARDS TO 60: 11 



NEXT PLAT? 3 

SHORT PASS. INCOMPLETE- HO 
BULL OH RUTGERS 35 YARD LINE 
BOUN 3 YARDS TO 00* It 



DAIlt 



NEXT PLAT? 2 

TRICKY RUN. 2 YARB LOSS 
RUT6ERS QFFSIRES — PENALTT OF 5 YARDS. 



DO YOU ACCEPT THE PENALTY? YES 
BALL ON RUTGERS 30 YARD LINE 
BOH 3 YARDS TO 60; 6 



NEXT PIAYT 2 

1RICKY RUN. 13 YARD GAIN 
BALL OR RUTBER5 17 YARD LINE 
FIRST DOUN JARTHQUTHm* 



rttll PLAIT * 

LOKG PASS. COMPLETE. 
KICK IS GOOD 

SCOREt 14 TO 



DARTMOUTH KICKS OFF 

48 TARB KICKOFF 

YARB RUNIACK 
BAIL OR RUTGERS 12 TARB LINE 
FIRST ROM RUT6ERS*** 



TOUCHDOWN *** 



SHORT PASS. COMPLETE, f YARB GAIH 
BALL ON RUTGERS 21 YARB LINE 
DOWN 2 YARBS TO GO: I 



SIMPLE RUN. NO GAIN 
RUTGERS OFFSIDES — PENALTY QF 5 YARDS. 



DO TOU ACCEPT 1NE PENALTY? YES 
BALL ON RUTGERS 14 TARB LINE 
OC-UN 2 TARBS TO 60: 6 



LONG PASS. INTERCEPTED. 
MLL ON RUTBERS 44 YARB LINE 
FIRST 0QUH (ARTNOUIH**t 



NEXT PLAY* 4 

LONG PASS, INTERCEPTED. 
BALL ON RUTGERS 13 YARD LINE 
FIRST OOUH RUTO£RS»»* 



SHORT PASS. COMPLETE. 7 YARB GAIN 
BALL ON RUTGERS 22 YARB LINE 
DOOR 2 YARBS TO 00; 3 



SHORT PASS. BATTER DOUN, HO GAIN 
BALL ON RUTGERS 22 YARB LINE 
DQVK 3 YARBS TO 00: 3 



SNORT PASS. BATTER DOWN. NO GAIN 
BALL ON RUTGERS 22 YARB LINE 
DOWN 4 YARBS TO GOi 3 



10 PRINT TABC33}J"FTBALL" 


740 PRINT "FIRST DOUN ";OS<P);"**»" 


20 PRINT IABH5);"CREATIVE CONFUTING HORRISTOUN, NEW JERSEY- 4 


770 PRINT 


30 PRINT: PRINT: PRINT 


780 PRINT 


220 PRINT "THIS IS DARTNOUIH CHAMPIONSHIP FOOTBALL." 


790 GOTO 860 


230 PRINT "YOU HILL QUARTERBACK DARTMOUTH. CALL PLAYS AS FOLLOUS:" 


800 REN PRINT POSITION 


240 PRINT "1* SINPLE RUN; 2= TRICKY RUN; 3" SHORT PASS;" 


810 IF X>50 THEM 840 


250 PRINT "4* LONG PASS; 5= PONT; 4* OUICK KICK; 7> PLACE KICK." 


820 PRINT LI(5);09(0};X;LS(6) 


210 PRINT 


830 GOTO 050 


270 PRINT "CHOOSE YOUR OPPONENT"; 


640 PRINT L*{5);otm;ioo-x;L*<4) 


2B0 INPUT 0111) 


850 RETURN 


290 Ot<0)>"BARTHOUTK- 


860 REN NEU PLAY 


300 PRINT 


870 LET T»T+I 


310 LET S<0>"0: LET SCU-O 


830 IF T-30 THEN 1060 


320 REN 


890 IF T<50 THEN 940 


330 BIN Lt(20) 


900 IF RHD<1)>,2 THEN 940 


340 FOR W TO 20: READ LIU): NEXT 1 


910 PRINT "END OF GAHE"*" 


350 DATA "KICKVRECIEVEV* TARD '/'RUN BACK FOR VBALL W ■ 


920 PRINT "FINAL SCORE: ';o»<o>;S(0>;- ";0f< 


340 RATA "YARB LINE"," SINPLE RUN"," TRICKY RUNV SHORT PASS" 


930 STOP 


370 DATA * LONG PASS" t "PUNT", " QUICK KICK ■,■ PLACE KJGKV LOSS * 


940 IF P*1 THEN 1870 


380 RATA " NO OAIR-,"GAIN V TOUCHDOUN \" TOUCHBACK ",*SAFETY««* 


950 PRINT "NEXT PLAY"; 


3G5 BATA "JUNK" 


960 INPUT Z 


390 LET PbINT(RNDM)O) 


970 IF ZOINTU) THEN 990 


400 PRINT Ot<P)J" HON THE TOSS" 


980 IF ADSa-4><»3 THEN 101O 


410 DEF Fkfm»1-2*P 


990 PRINT "ILLEGAL PLAY NUNBER, RETYPE"; 


420 BEF FitSm«P*(X1-X> + n-P)*CX-X1> 


1000 GOTO 960 


430 IF P*0 THEN 470 


T010 LET F=0 


440 PRINT 0*U>;" ELECTS TO RECIEVE* 


1020 PRIHT L$tz*6);". ■; 


430 PRINT 


1030 LET fi=RNB(n«(.98*FNF(t>».02) 


460 GOTO 580 


104O LET RKRND(I) 


470 PRINT # D0 TOU ELECT TO KICK OR RECEIVE"; 


1050 ON Z GOTO 1110,1130,1260,1480,1570,1570,1 


460 INPUT At 


1060 REN JEAN'S SPECIAL 


4*0 PRINT 


1070 IF RNDU)> 1/3 THEN ?40 


500 FOR E=1 TO 2 


1080 PRINT "GAHE DELAYED. DOS ON FIELD." 


510 IF A$»L$(E) THEN 550 


1090 PRINT 


320 NEXT E 


1100 GOTO 940 


530 PRINT "INCORRECT ANSUER. PLEASE TYPE 'KICK' Off 'RECEIVE"; 
540 GOTO 400 


MIO REM SINPLE RUN 


1120 LEI Y=m<24*(R-.5r3+3) 


550 IF £«2 THEN 500 


1130 IF RNB<1X,05 THEN 1180 


560 LET P=t 


1140 SOTO 2190 


380 LEI XM0*(1-P>*20 


1150 REH TRICKY RUN 


390 LEI Y=iHT(200KRNDin-.5)*i*55> 


1160 LET YMHTl20*R-3) 


600 PRINT t;l*<3j; m KICKOFF" 


1170 IF RH0(1)>.1 THEN 2190 


410 LET X»X-FNF[1}*Y 


1180 LET F=-1 


420 IF A8SCX-30»»50 THEN 700 


1190 LET X3»X 


430 LET Y»!NT<5O»RN0<ir2)*<1-P>*IHT(5O*AN0(ir4> 


1200 LET X=X*FHF(1)*Y 


410 LET X»X*FNFM>*Y 


1210 IF A8SU-30)>"50 THEN 1240 


650 IF ARS(X-50»>=50 THEN 653 


1220 PRINT "*»*FUHBLE AFTER "J 


451 PRINT T;Lt(3);" RUNBACK" 


1230 GOTO 2230 


632 GOTO 720 


1240 PRINT *M*FUflBLE," 


655 PRINT L114); 


T250 GOTO 2450 


660 GOTO 2600 


1260 REH SHORT PASS 


700 PRINT "TOUCHBACK FOR ";0$<P) 


1279 LET T»INTl60«(R1-*5>'3+10) 


710 LET X*2O*P*40 


12B0 IF R<.05 THEN 1330 


720 REN FIRST DOUN 


1290 IF R<.15 THEJf 1390 


730 60SUB 800 


1300 IF R<.55 THEN 1420 


740 LET X1»X 


1310 PRINT "COHPLETE. **; 


750 LET 0-1 


1320 GOTO 2190 



65 



1330 
1340 
1350 
13*0 
1370 
1380 
1390 
MOO 
1410 
U20 
1430 
1440 
14S0 
1460 
1470 
1480 
1490 
1300 
1510 
1520 
I5J0 
1340 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1660 
UfO 

)?oo 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

IE 00 

1810 

1820 

1830 

1640 

1630 

1660 

1670 

1860 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2120 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2Z4Q 



IF OM THEN 1420 

PRINT 'INTERCEPTE*.* 

LET F«-1 

LET X*X*FNF(1)*Y 

IF A83(X-50»"50 THEN 2450 

SOTO 2300 

PRINT "PASSER TACKLED. H f 

LET T>-lRT(10iR1) 

80T0 2190 

LET Y»0 

if rhduk.3 the* 1460 
print 'incomplete. ■} 
goto 2190 
print "sattei ooun. "j 

GOTO 2190 

REN LONG PASS 

LET Y"INT<160*tR1-.5K3+30> 

IF R<.1 THEN 1330 

IF R<.3 THEN 1540 

IF R<.75 THE** 1420 

GOTO 1310 

PRINT "PASSER TACKLES. "J 

LET T»-!W(139R1+3> 

GOTO 2190 

REN PUNT OR KICK 

LET Y=l«H100*(fl-.5r3*35> 

if im then 1610 

let ¥»int<y*u3) 

print y;l$<3);- puni* 

if ags<x*y»fnfu>-30i>"50 then 1670 

IF 8<4 THEN 1670 

LET YUINHR1*2»20) 

PRINT n;L»(3)r RUN RACK" 

LET Y«Y-Y1 

GOTO 1350 

REN PLACE KICK 

LET Y«INT(100«<R-.3)*3935> 

IF R1>.13 THErt 1750 

PRINT 'KICK IS ILOCKED***" 

LET XiX-3tFNFM) 

LET P=I-P 

6OT0 720 

LET *-X+FNF<lW 

IF ASS<X-50»-40 THEN 1810 

PRINT "KICK 13 SHORT." 

IF AI5(X-50)>*50 THEN 2710 

P*1-P 

60T0 630 

IF Rl>.5 THEN 1840 

PRINT -KICK IS OFF TO THE SIDE." 

60TQ 2710 

PRINT "FIELD GOAL«*»* 

LET S<P)=SCP1*3 

GOTO 2640 

REfl OPPONENT'S PLAY 

IF »H THEN 1940 

IF RNRU»t/3 THEN 1920 
LET 2-3 
GOTO 1010 
LET IpI 
GOTO 1010 

IF D»4 THE** 2090 

IF 10*X-X1<5 THEN 1890 

IF X<5 THEN 1890 

IF I<»10 THEN 2160 

IF X>X1 THEN 2020 

LET A»WT(2»RNR(1I) 

LET Z»2H*2 

8GT0 1010 

IF 8<3 THEN 1990 

IF X<43 THEN 1990 

IF RND<im/4 THEN 2070 

LET ■ -6 

GOTO 1010 

LET 1=4 

6010 1010 

IF X>30 THE* 2140 

IF 10+X-XK3 THEN 1890 

IF X<3 THEN 1990 

LET Z»7 

GOTO 1010 

LET Z=5 

GOTO 1010 

LET A*!NT(2*ftNlK1)) 

LET 2=2#A 

GOTO 1010 

REN GAIN OR LOSS 

LET X3»X 

LET X»X*FNF11)*Y 

IF A8S(X-50»»50 THEN 2450 
IF Y>0 THEN 2250 

PRINT A6Sm;L4<3»[ 



2Z30 PRINT L8f1543GNmJ 

2280 IF A»S<X3-50)>40 1HI=P# 2300 

2290 IF RNICIK.l THEN 2860 

2300 80SUI 806 

2310 IF PM THEN 2340 

2320 LET P*1-P 

2330 SOTO 740 

2340 IF F*G(l»"tO THEH 740 

2350 IF D«4 THEN 2320 

2360 LEI G«DM 

2370 PRINT "80* *;0;" "| 

2380 IF (X1-50)*F«F(tK40 THEN 2410 

2390 PRINT "GOAL TO GO" 

2400 GOTO 2420 

2410 PRINT "YAMS TO 60s -;10-FW<U 

2420 PRINT 

2430 PRINT 

2440 GOTO 860 

2450 REN 6ALL IN EN6-Z0NE 

2460 IF X>"100 THEN 2490 

2470 LET E>0 

2480 GOTO 2500 

2490 LET E«1 

2500 ON 1t£-F*2*P«4 GOTO 2510,2390,2760,2710,2390,2310,2710,2760 

2510 REN SAFETY 

2520 LET 8(t-P>*&(l-F>*2 

2330 PRINT L*(19) 

2540 80SU6 2800 

2550 PRINT OI<P);- KICKS OFF FftOtt ITS 20 YARD LIME." 

2360 LET X*20+P*60 

2570 LET P-1-P 

2580 60T0 590 

2590 REN OFFENSIVE T6 

2600 PRINT Lf(l7};"*** H 

2610 IF RN6(1)>.8 THEN 2680 

2620 LET S(P)-5<P)*7 

2630 PRINT "KICK IS G006" 

2640 GOSUI 2800 

2630 PRINT OSCP);" KICKS OFF" 

2660 LET P=1-P 

257C 65fC 3*0 

2680 PRINT "KICK IS OFF TO THE SHE* 

2690 LET S(P}«SfP)+6 

2700 GOTO 2640 

2710 REH TOUCHBACK 

2720 PRINT LS<16> 

2730 LET P»1-P 

2740 LET X=20*P*60 

2750 GOTO 720 

2760 REH GEFENSIVE ; :■ 

2776 nm U<17>; m for *;fl*(i-p>;"*t*- 

2780 LET P-1-P 

2790 GOTO 2600 

2800 REN SCORE 

2810 PRINT 

2820 PRINT "SCORE! *;S(Oi;" TO h ;stn 

2830 PRINT 

2G40 raw 

2830 RETURN 

2860 REN PENALTY 

2870 LET P3=IHT(2»RN6<1*> 

2880 PRINT 0$(P3>;" OFFSIDES " PENALTY OF 5 YAROS." 

2890 PRINT 

2900 PRINT 

2910 IF P3-0 THEN 2980 

2920 PRINT "00 YOU ACCEPT THE PENALTY"; 

2930 INPUT A4 

2940 IF Ai="NO" THEN 2300 

2950 IF AI»"YES" YHEN 3110 

2960 PRINT "TYPE 'YES' OR 'NO'* 1 ; 

2970 GOTO 2930 

2980 REN OPPONENT'S STRATEGY ON PENALTY 

2990 IF P*1 THEN 3040 

3000 IF Y<=0 THEN 3080 

3010 IF F<0 THEN 3080 

3020 IF FMH1K3«S-2 THEN 3080 

3030 60T0 3100 

3040 IF Y<*5 THEN 3100 

3050 IF F<0 THEN 3100 

3060 IF 8<4 THEN 3080 

3070 IF FNGdKIO THEN 3100 

3080 PRINT -PENALTY REFUSED." 

3090 GOTO 2300 

3100 PRINT "PENALTY ACCEPTED." 

3110 LET F-0 

3120 LET D-8-1 

3130 IF H>fi THEN 3160 

3140 LET X-X3-FNF<1>*5 

3150 GOTO 2300 

3160 LET X-X3*FNF(1)*5 

3170 GOTO 2300 

3180 END 
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FOOTBALL 
CREATIVE COMPUTING NORRISTOUN, htu JERSET 



TEAM 1 EO 10 20 30 40 30 60 70 80 90 100} TEAN 2 
TEAN 1 BEFENBS IB SOAL -- TEAN 2 lEfEHOS 100 IB GOAL 
THE COIN IS FLIPPED 



presenunb n.f.u. football ino eortrah used> 



DO YOU UANT IHSIftUCTIOHST YES 

THIS IS A GAME FOR TUO TEAMS IN UHICH PLATERS BUST 
PSEPASE A TAPE UITH A DATA STATEKEHI (1770 FOR TEAM I. 
1780 FOR TEAM 2) IN UHICH EACH TEAM SCRABBLES NOS. 1-20 
THESE HUNBERS ARE THEN ASSIGNED TO 20 GIVEN PIATS. 
A LIST OF DOS. AND THEIR PLATS ARE PROVIDE* UITH 
BOTH TEAKS HAV1N6 THE SAME PLATS. THE HORE SIHILdR THE 
PLATS THE LESS TABBA6E GAINED. SCORES ARE GIVEN 
UHENEVEtf SCORES ARE HABE. SCORES NAT ALSO BE OBIA1NE0 
IT INPUTTING ??,« FOR PLAT NOS. TO PUNT UR AITEBPI A 
HELDGOAL, INPUT 77,77 FOR PLAT HOS. QUESTIONS UILL IE 
A5BED THEN. ON 4IN DOUN TOU UILL ALSO BE ASHED UHEIHER 
TOU UANT TO PUNT OR AITEHPI A FIELD GOAL. IF THE ANSUER 10 
BOTH QUESTIONS IS HO II UILL BE ASSUMED TOU UANT TO 
IRT AND SAIN TAR0A6E. ANSUER ALL OUtSIIONS TES OR NO. 
THE GANE IS PLATED UNTIL PLAYERS TERHINATE (CGNfROL-CK 
PLEASE PREPARE A TAPE AND RUN. 



PLEASE INPUT SCORE LIHII ON 6ANET 2S 
TEAN 1 PLAY CHAR! 
NO. PLAY 



17 


PITCHQUT 


a 


TUPLE REVENSE 


4 


Mill 


H 


C* SNEAK 


19 


END AROUND 


I 


DOUBLE REVERSE 


10 


LEFT BUEEP 


1 


RIGHT SUEEP 


7 


OFF TACKLE 


11 


UISHIOK OPTION 


13 


FLARE PASS 


9 


SCREEN PASS 


s 


ROLL OUT OPTION 


20 


EIGHT CURL 


13 


LEFT CURL 


IS 


UISHBOrtE OPTION 


H 


SIDELINE PASS 


2 


HALF-BACK OPTION 


12 


RAZZLE-DAZZLE 


1 


BOItBl 1! 1 



TEAR OFF HERE «™. . 



TEAN 2 PLAT CHART 


u. 


PLAY 


20 


PITCHQUT 


2 


TRIPLE REVERSE 


V 


DRAU 


a 


OB SNEAK 


3 


END AftttUNB 


IB 


DOUBLE REVERSE 


12 


LEFT SUEEP 


11 


RISHT SHEEP 


1 


OFF TACKLE 


4 


UI8KD0NE OPTION 


19 


FLARE PASS 


u 


SCREEN PASS 


10 


ROLL OUT OPTION 


7 


RIGHT CURL 


f 


LEFT CURL 


15 


UISHBONE OPTION 


A 


SIBELINE PASS 


13 


HALF-BACK OPTION 


16 


RAZZLE-DAZZIE 


J 


B0HB1M! 





TEAN I RECEIVES KICK-OFF 
BALL UENT 52 TARBS, RON ON 8 

— > 
run 1 £0 10 29 30 40 SO 60 70 

TEAM 1 DO TOU UANT TO RUNIACK? TES 

BVKBACK TEAR t -1 YARDS 



90 IDOJ TEAM 2 



3i::Ei:::::: = :: = 3£iiaf| 41IUI1I 



iaiai::=:ssKS^:: 



TEAN 1 BOUtf 1 ON ? 

10 YARDS TO 1ST DOUN 
— > 
KAN I El 10 20 30 40 50 60 70 80 

INPUT OFFENSIVE PLAT, DEFENSIVE PLAY? 6,2 

QUARTERBACK SCRAHBLED 

NET TARBS 6AINEI Oft DOUN 1 ARE 33 

■ iiiiiiiitEaEii3i»siiniiiiiiiiiaiiiis=E = £3fzs:=i 

TEAN 1 DOUN I ON 40 

10 TARDS TO 1ST B04JN 
— > 
TEAN 1 CO 10 20 30 40 50 40 70 BO 

INPUT OFFENSIVE PLAT, DEFENSIVE PUTT 6,4 

PASS INCOMPLETE TEAfl 1 

NET TARBS QAINED ON BQUR 1 ARE 



TEAN t BOW 2 ON 4ft 

10 TARDS TO 1ST OOUN 

TEAN 1 CO 10 20 30 40 SO 60 70 80 90 

INPUT OFFENSIVE PLAT, BEFENSIVE PLATT 16,4 

PASS INCOMPLETE TEAN 1 

NET TARBS OAINEB ON DOUN 2 ARE 

TEAM 1 BONN 3 ON 40 

10 TARBS TO 1ST OOUN 
— > 
TEAN 1 CO 1* 20 30 40 50 60 70 80 90 

INPUT OFFENSIVE PLAT, DEFENSIVE PLATT ? f 4 

QUARTERBACK SCRANBLEO 

NET TARDS 6AJNEB ON DOUR J ARE 1 

TEAN 1 DOUH 4 ON 41 

9 TARDS TO 1ST DOUN 
— > 
TEAM 1 CO 10 20 30 40 50 60 70 80 90 

DOES TEAN 1 UANT TO PUNT? NO 

DOES TEAM 1 UANT TO ATTEMPT A FIEL8 SOALT NO 

INPUT OFFENSIVE PLAY, DEFENSIVE PLATT 13,20 

QUARTERBACK SCRABBLED 

NET TARDS GAINED ON DOUH 4 ARE -2 

CONVERSION UNSUCCESSFUL TEAfl 1 



90 tOO J TEftrt 2 



:----_T^;;;i^Iii 



90 I0OJ TEAA 2 



1003 TtAN 2 



ie;=s*gj«i 



10QJ IE A.I 2 



1003 JEAri 2 



3i:EB:iiEaiiEisaEt«i|itiiai«itittvtiiiiiiiii3ieE=£=sis:EEs:±si«saiiE 

TEAN 2 DOUN 1 ON 39 

10 TARBS TO 1ST DOUN 
< — 
TEAN 1 CO 10 20 30 40 50 40 70 00 90 100J TEAN 2 

INPUT OFFENSIVE PLAY, DEFENSIVE PLATT 3,11 

PASS INCOMPLETE TEAN 2 

NET YARDS SAINED ON DOUN t ARE 
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1 PRINT TAB132>;"fOOTBALL" 

2 PRINT IM(15);-CR£ATIVE COHPUTlNG HORRJSTOUH, NEW JERSEY" 

3 PRINT;PMNIsPRINT 
100 RErt 

120 11*1 A<20),B(20> ( CM0) t Hl2> f T{2),U<2Ml2) t Y<2),2*2) 

130 DIN Mt2),O(21,Pf<20J 

140 PRINT "PRESENTING N.F.U, FOOTBALL INO FORTRAN USED)" 

I4S PRIHTtPRIHT 

150 IHPUT "DO YOU UAHT INSTRUCTIONS";*! 

140 IF AM"M* THEN 2*0 

US IF MO'YES* THEN 150 

170 PRINT 'THIS IS A GAHE FOR TUO TEARS IN UHICH PLAYERS HUSI* 

180 PRINT "PREPARE A TAPE WITH A DATA 5TATEHENT <1770 FOR TEAK 1," 

190 PRINT "1780 FOR TEAH 2) IN UHICH EACH TEAR SCRAHBLES NOS. 1-20" 

1)3 PRINT "THESE NUMBERS ARE THEN ASSIGNED TO 20 GIVEN PLATS." 

200 PRIHT'A LIST OF NOS. AND THEIR PLATS ARE PROVIDED UITH" 

210 PRIHT "BOTH TEAHS HAVING THE 3AHE PLATS. THE HOPE SINILAR THE" 

220 PRINT "PLATS THE LESS YARDAGE GAINED. SCORES ARE GIVEN* 

223 PRINT "WHENEVER SCORES ARE HADE, SCORES HAT ALSO BE OBTAINED" 

225 PRINT "BY INPUTTING 99,99 FOR PLAY NOS. TO PUNT OR ATTEHPT A" 

227 PRINT "FIELDOOAL, INPUT 77,77 FOR PLAY NOS. QUESTIONS UILL SE" 

230 PRINT "ASKED THEN. ON 4TH DOUN YOU UILL ALSO BE ASKED WHETHER* 

240 PRINT "YOU UAHT TO PUNT OR ATIEHPT A FIELD GOAL. IF THE ANSUER 

250 PRINT "BOTH QUESTIONS IS NO IT UUL BE ASSUHED YOU UAHT TO' 

240 PRINT "TRY AND GAIN YARDA6E. ANSUER ALL QUESTIONS YES OR NO." 

270 PRIMT -THE GAHE IS PLAYED UNTIL PLAYERS TERMINATE (CGHIAQL-C)," 

260 PRINT "PLEASE PREPARE A TAPE AND RUN. 4 ; STOP 

290 PRINTiPRINT "PLEASE INPUT SCORE LIHIT ON GAHE";:lKPUT E 

300 FOR 1-1 TO 401 READ Hi If I>20 THEN 350 

330 A(N)»1: GOTO 360 

330 IOO«I-20 

340 CU)«Ni MEXI I 

370 FOR I»1 TO 20i READ PHI): NEXT I 

380 L*Oi T-1 

410 PRINT "Tf*B";T;"PLAY CHANT" 

420 PRINT "HO. PLAY"iPRINT 

430 FOR 1=1 TO 20 

440 REH 

430 PRINT CU+L>;TABU>;Pt(I> 

440 NEXT I 

430 L"Lt20iT»2 

440 PRINT 

430 PRINT "TEAR OFF HERE-—™ M 

440 FOR X«1 IB lit PRINTS NEXT X 

670 FOR Z»1 TO 3000: NEXT 2 

480 IF L»20 THEN 410 

690 D(l)*0l l(2>«J> Kt<l>=" — >": Hfl2>*"< ■ 

7D0 H(1)-0i H(2>-0; T(1>»2; T<2)»1 

710 lim=-1i U<2)*1l X(t)"100t XI2J-0 

720 Y(1)=l; Y(2)"-1: Zl ll»0* Z(2>*100 

725 GOSUD 1910 

730 PRIHT "TEAM 1 DEFENDS YD GOAL -- TEAH 2 DEFENDS 100 YD GOAL." 

740 T"IHT<2»RH»(1>*1> 

740 PRINTi PRINT "THE COIN IS FLIPPED* 

745 P«m-YU>*40 

770 60SUD I860: PRINT i PRINT "TEAH-;T;'RECEIVES KICK-OFF" 

780 K=INT<24*RND(l)+40) 

7*0 P«P-Y(1*« 

7?4 IF uilJ»rJC):iL THEN 610 

795 PRINTi PRINT "BALL WENT OUT OF ENRZOHE --AUTOHATIC TOOCHRACK- 1 

794 GOTO 070 

810 PRINT -BALL UENT*;K;"YARDS. HOU ON";Pi80SUD 1900 

830 PRINT i TCAl H ;T: v IQ TOU UAHT TO RUNDACK"; :IHPUT At 

840 IF AS=*YES- THEN 1430 

843 IF AKV'NO" THEN 830 

830 IF U<T)*P<I(T) THEN 880 

B70 P»ZtII-UU)*20 

680 D= 1 i 8-P 

885 FOR 1*1 TO 72: PRINT *=";: NEXT 1 

890 PRINT: PRINT "TEArt";T;"BOUN";D;"QN";P 

893 IF DOI THEN 900 

895 IF T<T)*<P*YIT>«10)>=X(T) THEN 898 

897 Oil GOTO 900 

898 C»8 

900 IF C*8 THEN 904 

901 PRINT TAB(27);iO-<Y(T>*P-Ym»S);nAR»S TO 1ST DOWN" 

902 GOTO 910 

904 PRIHT TAB<27>;X(T)-r<T)<P;"YARD3" 

910 GOSUB 19001 IF D»4 THEN 1180 

920 REH 

930 U«INT<3*RHD(0>-Ui GOTO 940 

934 PRIHT "ILLEGAL PLAY WJHBER, CHECK AND" 

940 PRIHT 

930 IF 1*2 THEH 970 

940 IHPUT Pl,P2l OOTG 973 

970 INPUT P2,P1 

975 IF P1=77 THEH 1180 

ttO IF P1>2« THEH 1800 

983 IF PK1 THEN 1800 

990 IF P2>20 THEN 1800 



INPUT OFFENSIVE PLAY, DEFENSIVE PLAY"; 



992 IF P2<1 THEH II 

995 P1 = INHP1): P2=1HT(P2) 

1000 Y=lNTiABS(A(Pt)-B(P2))/t9'»UX(T)-T(TI*Pt23)*RNDU)-15>) 

1005 PRIHT* If T»2 THEN 1013 
1010 IF AIPIKI1 THEH 1048 
1012 GOTO 1020 

1019 IF B1P2K11 THEN 1048 

1020 IF UOO THEH 1035 

1025 PRINT "PASS INCOMPLETE T£AH";T 
1030 T-Oi 6010 1050 
1033 G-RHD(I); IF G>.025 THEH 1040 
1037 IF Y>2 THEN 1045 

1040 PRIHT "QUARTERBACK SCRAMBLED"; GOTO 1050 
1043 PRINT -PASS COHPLETED": GOTO 1050 
1048 PRIHT "THE BALL UAS RUH" 
1050 P=PHJ(T)*Y 

1040 PRINTi PRIHT "NET YARDS GAINED OH DOWT;D;"ARE "|Y 
1070 fl=RND11): IF 8>*025 THEN 1110 

1080 PRINTi PRINT "*♦ LOSS OF POSSESSION FROH TEAfl";T;"TO TEAH";T(T) 
1100 GOSUB 1850: PRIHT: T*T(T)l SOTO 630 
1110 IF Y<T)*P>=xm THEN 1320 
1120 IF um+PWm THE* 1230 
1130 IF Ym»P-YtT)»S>-10 THEH 880 
TO" 1140 D*»+1* IF DOS THEH 895 

1140 PRIHT: PRINT -CONVERSION UNSUCCESSFUL TEAH";TiT»T<T) 
1170 GOSUS 1850: GOTO 880 

1180 PRINT "DOES YEAH'; TRUANT TO PUNT";: IHPUT At 

1185 IF Af<"NO" THEN 1200 
1187 IF A»<>*YES" THEN 1180 

1190 PRIHTtPRIHT "TEAH";T;-UILL PUNT"! G=RHD(1): IF 8<.025 THEH 1080 

1195 GOSUB 1850i KMNTl23*RNDCWt35> J T-T(T); GOTO 790 

1200 PRINT -DOES TEAH";T;*UANT TO ATIEHPT A FIELD GOAL"',! INPUT Ai 

1210 IF At-'YES- THEH 1440 

1213 IF A4O-H0" THEH 1200 

1217 8GT0 920 

1230 PRiNTl PRINT "SAFETY AGAINST TEAH";T;***»4*M*##*t»*M******0H-0H" 

1240 H(T<m=H(TlTm2i GOSUI 1810 

1280 PRlNT-TEAR-iTi'DO YOU UANT TO PUNT INSTEAD OF A KICKQFF"; UNPUl M 

1291 P-2tT1-1ICT)»2»i IF A1»"YE8" THEN 1190 

1320 PRIHTl PRINT "TOUCHBOUN BY IEAH";I; M »***»M**«i4MMt**»YEA TEAH" 

1340 f J~-7: S^RHDIl): IF S>.1 THEN 1380 

1340 0=4: PRIHT "EXTRA POINT HO GOOD": GOTO 1390 

1380 PRINT "EXTRA POINT GOOD" 
— " ttff H(T>«H(T)«Qt GOSUD 1810 

1420 T*T(T)i GOTO 745 

1430 K=INTC9*RND<0>t1l 

1440 R=IHTU(X(T)-Y(T1*P+25)4RNDU1-1S)/KJ 

1440 P*P-IHI)«R 

1480 PRINTiPRINT -RUNBACK T£AN";T;R;*YARDS" 

1483 6=RNDCIJt IF G<,025 THEN 1080 

1190 If YiT)*f>*Xm THEN 1320 

1500 IF UtT)*P>*H!) THEH 1230 

1510 GOTO G80 

1640 PRIHT: PRINT M TEAH";T;"UIU ATTEHPT A FIELD GUAL" 

1645 G=RHD(1J: IF G<.025 THEN 1080 

1650 F = lNT(35<RHD(n*20) 

1640 PRINT: PRIHT 'KICK 1S H ;F; H YARD8 LONG* 

1480 P-P*U(T)»Fi G*RHD<1) 

1490 IF G<,35 THEN 1735 

1700 IF Yirj*PaiT> TNEH 1740 

1710 PRIHT "FIELD GOAL GOOD FOR TEAH";T;"*t4##tf»^»**4**#«**»YEA" 
1720 0*3: GOTO 1390 

(733 PRINT *BALL WENT UIRC* 

1740 PRIHT "FIELD GOAL UHSUCCESFUL TEAH";T;" TOO BAD" 

1742 GOSUB IQSOt IF Y(TI>P<X(T)*lO THEN 1715 

1711 T*HT>: GOTO 794 

1745 PRIHT: PRIHT -BAIL HOU OH";P 

1730 T*TU>: GOSUB 1900: GOTO 830 

1770 DATA l7 t 8 f 4»14 t l9 P 3 v lO f 1 r 7 f 11 t 15 t 9 r S J 20 r 13p18 r U t 2 t f2 t 4 

1780 DATA 20,2,17,5,8,18,12,11,1,4,19,14,10,7, 9,15,6,13,14,3 

1790 DATA "PITCHOUT", "TRIPLE REVERSE", "DftftUVQB SNEAK", "END AROUND" 

1792 BATA "DOUBLE REVERSE", "LEFT SUEEPVRIGHT SUEEP H ,"OFF TACKLE" 

1794 DATA "HISHBOHE OPTI0N" r "FLARE PASS","SCR£EH PASS" 

1794 DATA "ROLL OUT OPTION-,"RIGHT CURL- f "LEfT CURL",-UISH80HE OPTION" 

1798 DATA "SIDELIHE PASS", "HALF-BACK OPTION*, "RAZZLE-DAZ2LE","B0HBi M !" 

1800 If PK>99 THEN 936 

1810 PRINIi PRINT -TEAH 1 SCORE IS-JIH1) 

1820 PRINT "TEAH 2 SCORE IS";H12J: PRINT 

1825 IF H(TXE THEN 1830 

1827 PRINT "TEAH";T;"UlNS>4*>**4»*i<»»*<**<4": GOTO 2000 

1830 IF P1*99 THEH 910 

1835 RETURN 

1850 PRINT 

NEXT X: PRINT 



1840 FOR X»t TO 72: PRINT "*";: 
1870 RETURN 

1900 PRINT TAB(0lT)*5*P/2l;MtT) 
1910 PRINT "TEAH 1 CO 10 20 
1915 PRINT " 1003 TEAH 2* 
1920 PRINT 
1930 RETURN 
2900 END 



30 



40 30 40 70 80 90*; 
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Fur 




You are the leader of a French lur 
trading expedition in 1776 leaving the 
Ontario area to sell furs and get 
supplies for the next year. You have a 
choice of three forts at which you may 
trade. The cost of supplies and the 
amount you receive for your furs will 
depend upon the fort you choose. You 
also specify what types of furs that you 
have to trade. 

The game goes on and on until you 
elect to trade no longer. 

Author of the program is Dan 
Bachor. University of Calgary, Alberta, 
Canada. 



FUR TRADER 
CREATIVE CONFUTING HORRISTOUH, NEU JERSEY 

YOU ARE IKE LEADER OF A FRENCH FUR TRADING EXPEDITION IN 
1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET 
SUPPLIES FOR THE NEXT TEAR. YOU HAVE A CHOICE OF THREE 
FORTS AT WHICH YOU NAY TRADE* THE COST OF SUPPLIES 
ANB THE AHQUNT YOU RECEIVE FOR YOUR FURS URL BEPEHD 
ON THE FORT THAT YOU CHOOSE. 
00 YOU WISH TO TRADE FURS* 
ANSWER YES OR NO ? TES 



YOU HAVE I 460 SAVINGS. 

AND 190 FURS TO BEGIN THE EXPEDITION, 

YOUR 190 FURS ARE DISTRIBUTED ANONO THE F0LIOUING 
KINDS OF PELTS! HINK t BEAVER, ERHINE Ml FOX. 

HOU NANY HIHK PELTS DO YOU HAVE* 50 

HOU HANY BEAVER PELTS BO YOU HAVE? 10O 

HOU NANY ERHINE PELTS 10 YOU HAVE? 20 

HOU NANY FOX PELTS DO YOU HAVE! 20 

DO YOU WANT TO TRADE YOUR FURS AT FORT l v FORT 2, 

OR FORT 3? FORI 1 IS FORT H0CKELA8A MONTREAL > 

AND IS UNDER THE PROTECTION OF THE FRENCH ARHY. 

FORT 2 IS FORT STAOACONA (QUEBEC) AND IS UNDER THE 

PROTECTION OF THE FRENCH ARHY. HOUEVER, YOU AUST 

HAKE A PORTAGE AND CROSS THE LACHINE RAPIDS. 

FORT 3 IS FORT NEU YORK AND IS UNDER BUTCH CONTROL. 

YOU NUST CROSS THROUGH IROQUOIS LAND. 

ANSUER t, 2, OR 3. 

Y 3 

YOU HAVE CHOSEN THE HOST DIFFICULT ROUTE, AT 

FORY NEU YORK YOU UILL RECEIVE THE HIGHEST VALUE 

FOR YOUR FURS, THE COST OF YOUR SUPPLIES 

UILL DE LOUER THAN AT ALL THE OTHER FORTS, 

DO YOU WANT TO TRADE AT ANOTHER FORTT 

ANSWER YES OR NO T NO 

YOU NARROWLY ESCAPED AN IRQGUQIS RAIDING PARTY. 
HOUEVER, YOU HAD TO LEAVE AIL YOUR FURS BEHIND. 
SUPPLIES AT NEU YORK COST 410.00 
TOUR TRAVEL EXPENSES TO NEW YORK WERE *25*QQ 



YOU HAVE • AGO SAVINGS. 
AND 170 FURS TO BEGIN THE 



EXPEDITION. 



YOUR 190 FURS ARE DISTRIDUTED AHQNG THE FOLLOWING 
KINDS OF PELTS: WINK, BEAVER, ERHINE AND FOX. 



YOU NOU HAVE * 355 INCLUDING TOUR PREVIOUS SAVINGS 

DO YOU WANT TO TRADE FURS NEXT TEART 

ANSUER YES OR NO 7 NO 



H5U NANT flINK PELTS DO TQU HAVE? « 



HOU NANY BEAVER PELTS DO YOU HAVE? 50 
HOU NANY ERHINE PELTS DO YOU HAVE? *C 



HOU HANY FOX PELTS DO YOU HAVE? 40 

00 YOU UANT TO TRADE TOUR FURS AT FORT 1, FORT 2, 

OR FORT 3? FORT 1 IS FORT H0CHELA6A MONTREAL) 

AND IS UNDER THE PROTECTION OF THE FRENCH ARflT. 

FORT 2 IS FORT STADACONA (QUEBEC) AHO IS UNDER THE 

PROTECTION OF THE FRENCH ARHY. HOWEVER, YOU NUST 

MAKE A P0RTA6E AND CROSS THE LACHIHE RAPIDS, 

FORT 3 IS FORT NEW YORK AND IS UNDER BUTCH CONTROL, 

YOU NUST CROSS THROUGH IROOUOIS LAND. 

ANSWER 1, 2 P OR 3. 

? 3 

YOU HAVE CHOSEN THE MOST IIFFICULT ROUTE, 

FORT NEW YORK YOU WILL RECEIVE THE HIGHEST 

FOR YOUR FURS. THE COST OF TOBR SUPPLIES 

UILL BE LOVER THAN AT All THE OTHER FORTS. 

DO YOU UANT TO TRADE AT ANOTHER FORT? 

ANSUER YES OR NO f YES 

ANSWER 1, 2 t OR 3. 

? 2 

YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COHPARSIOI 

HARDER THAN THE ROUTE TO H0CHELA8A BUT EASIER THAN 



AT 

VALUE 



** -(. 




THE ROUTE TO NEU TORN. YOU WILL RECEIVE A* 
FOR TOOR FURS AND THE COST OF YOUR SUPPLIES 
DO YOU UANT TO TRADE AT ANOTHER FORP 
AHSWER YES OR NO ? MO 



AVERAGE 
WILL BE 



YOUR CANOE UPSET IN THE LACHINE RAPIDS. YOU 

LOST ALL TOUR FURS 

SUPPLIES AT FORT STADACONA COST $123.00 

YOUR TRAVEL EXPENSES TO STADACONA WERE B15.00 

YOU NOU HAVE * HO INCLUDING TOUR PREVIOUS SAVINGS 

M YOU WANT TO TRABE FURS NEXT YEART 
ANSUER YES OR NO I YES 
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T lift Fm 

3 PRINT TAB(31J;"FUR TRADER" 

4 PRINT TABi 15 ^ ; "CFTEftTIVE CONFUTING 
6 PRINTt PRINT: PRINT 

15 GOSUB 1091 

16 LET 1-600 
MINT -BO YOU UISK TO TRADE FURST 
GOSUB 1402 

THEN 100 
THEIf 100 



flDRRISTOUN, NEU JERSEY' 



17 

IB 

It 

10 

21 

100 

101 

102 

241 

2« 

300 

301 

302 

310 

113 

330 

332 

333 

335 

338 

340 

342 

344 

348 

350 

300 

301 

502 

503 

504 

51 1 

SI 3 

1091 

1092 

1093 

1094 

1095 

1096 

109? 

MOO 

1102 

1103 

1104 

1105 

1106 

1108 

no? 

1110 

1111 

1112 
1113 
IMS 
1114 
1120 
1121 
1122 
1123 
1125 
1129 
1130 
1135 
1136 
1137 
M38 

mi 

1144 
1145 
1147 
1148 
1149 
1130 
1152 
1155 
1150 
1160 
1169 
1174 
1175 
1176 
1*77 
1180 
1181 
1190 
1193 



*YES h 
'YES 



"YOU 
L A-H[> 



HAVE *";l 



SAVINGS," 
190 FURS TO BEGIN THE EXPEDITION." 
IHT(<J5»ftNDU>+.93>*10*2+.51/10*2 
INT(<.23»RNDI1>M.O<H*10*2*.5)/10*2 



AMQN6 THE FOLLOWING" 
EftltIKE AND FOX." 



IF B*< 

IF I1> 

STOP 

PRINI 

PRINT ' 

PRINT ' 

LET £1> 

LET B1< 

PRINT 

PRINT "TOUR 190 FURS ARE DISTRIBUTED 

PRINT "KINDS OF PELTSi MM, BEAVER, 

G05UB 1430 

RESTORE 

FOR J=1 TO 4 

READ I* 

PRINT 

PRINT "HOU HANY "JBIJ" PELTS 10 YOU HAVE' 

INPUT FfJ> 

LET FiO)»F<mF<2) + F (3)*F(4) 

IF F(0)«190 THEN 1100 

IF F<OJ>190 THEN 300 

NEXT J 

GOTO 1 100 

PRINT 

PRINT •YOU KAY NOT HAVE THAT 

PRINT "DO NOT TRY TO CHEAT. 

PRINT "YOU HUST START AGAIN," 

SOTO 13 

PRINT 

PRINT "DO YOU UANT TO TRADE FURS ttEXT YEART" 

SOTO 18 

TOO ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN 
1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND BET" 
SUPPLIES FOR THE NEXT YEAR. YOU HAVE A CHOICE OF THREE" 
FORTS AT UKICH YOU NAY TRADE* TKE COST OF SUPPLIES" 
AND THE ANOUHT YOU RECEIVE FOR YOUR FURS UILL DEPEND" 
ON THE FORT THAT YOU CHOOSE, - 



NANY FURS." 
I CAN 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

RETURN 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

IF 1=1 

IF 8=2 

IF B-J 

GOTO 1110 

PRINT -YOU 

PRINT 

PRINT 

PRINT 

GOSUB 

IF 8*= 



"DO YOU UANT TO TRADE YOUR FURS AT FORT l f FORT Z," 
"OR FORT 3T FORT 1 IS FORT HOCHELAOA MONTREAL)" 
"AND IS UNDER THE PROTECTION OF THE FRENCH AftHT." 
"FORT 2 IS FORT STADACONA (QUEBEC J AND IS UNDER THE" 
-PROTECTION OF THE FRENCH ARNY. HOWEVER, YOU NUST" 
"HAKE A PORTAGE AND CROSS THE LACNINE RAPIDS," 
-FORT 3 IS FORT NEU TQRK AND IS UNDER BUTCH CONTROL.' 
"YOU HUST CROSS THROUGH IROQUOIS LAND." 
"ANSUER I, 2, OR 3." 



THEN 
THEN 
TH£N 



1120 
1135 
1147 



HOWEVER, THE FORT" 



HAVE CHOSEN THE EASIEST ROUTE. 
MS FAR FROM ANY SEAPORT. THE VALUE" 
-YOU RECEIVE FOR YOUR FURS UILL BE LOU AND TKE 
•OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR 
1400 
"YES* THEN 1110 



COST" 

NEU YORK.' 1 



60T0 1160 

PRINT "YOU 

PRINT 

PRINT 

PRINT 

GOSUB 

IF B* = 



HAVE CHOSEN A HARD ROUTE* IT IS, IN COMPARISON, " 
-HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN" 
-THE ROUTE TO NEU YORK, TOU UILL RECEIVE AN AVERAGE VALUE" 
-FOR TOUR FURS AND THE COST OF YOUR SUPPLIES UILL BE AVERAGE 
MOO 
■YES* THEN 1110 



GOTO I 

PRINT 

PRINT 

PRINT 

PRINT 

GQSUD 

IF Bl» 

GOTO 1 

LET I» 

PRINT 

LET N1-!NTU,2*RHD<1)*.70>*10*2+.5)/10 

LET E1iINTU.2tRHBU)t.65)*10-2+.5>/»0 

LET D1*INTM.2*ftNB<1)+.73>»10*2+.5>/fO 

LET D1 =INT<l.2»RNBH)*.M>*10~2+. 51/10 

PRINT -SUPPLIES AT FORT HOCHELAGA COST 



199 

■YOU HAVE CHOSEN THE HOST DIFFICULT ROUTE, 

■FORT NEU YORK YOU WILL RECEIVE THE HIOHEST 

"FOR YOUR FURS. THE COST OF YOUR SUPPLIES' 

"UILL BE LOWER THAN AT ALL THE OTHER FORTS. 

1400 

"YES" THEN 1110 

250 

MM 



2 
2 
2 
2 

1150.00' 



VALUE' 



PRINT "YOUR 
GOTO 1410 
LET l»I-140 



TRAVEL EXPENSES TO HOCHELAGA WERE 110.00' 



1201 

1205 

1206 

1207 

1209 

1210 

1212 

1213 

1215 

1216 

1218 

1219 

1220 

1221 

1222 

1224 

1225 

1226 

1230 

1231 

1232 

1233 

1233 

1237 

1238 

123? 

1240 

1244 

1246 

1240 

1230 

1254 

1260 

T263 

1270 

1271 

1272 

t?73 

1274 

1201 

1282 

1283 

1284 

1291 

1292 

1293 

1295 

1300 

130T 

1303 

1304 

1306 

1307 

1308 

1309 

1311 

1312 

1320 

1321 

1322 

MOO 

T402 

1403 

1404 

1410 

1412 

1414 

1416 

1417 

1410 

1120 

1422 

1423 

1430 

1432 

1434 

1436 

2000 

2014 



WERE TOO HEAVY TO CARRY ACROSS' 

YOU HAD TO LEAVE THE PELTS BUT FOUND 4 
UHEN YOU RETURNED" 



CAHOE- UPSET IN 
ALL YOUR FURS" 



THE LACHINE RAPJDS, YOU" 



PRINT 

LET «1-INT(<,3»RN0MI + ,83)*10'2*,5)/1O*2 

LET E1«INnf.15*RNB<1)*.GOmo-;>*.3)/10~2 

LET D1=INT( l.2*RNDH J*.90)"10*2*.5)/10*2 

LET P'INTnO*RHBm>4t 

IF P<*2 THEN 1216 

IF P<*6 THEN 1224 

IF P<=8 THEN 1226 

IF P<=IO THEN 1233 

LET F12I-0 

PRINT "TOUR BEAVER 

PRINT "THE PORTAGE 

PRINT "THE/I STOLEN 

GOSUB 1244 

GOTO 1414 

PRINT "YOU ARRIVED SAFELY AT FORT STADACONA 

GOTO 1239 

60SUD 1430 

PRINT 'YOUR 

PRINT "LOST 

GOSUB 1244 

GOTO 1418 

LEI F(4)"0 

PRINT "YOUR 

PRINT "NO ONE 

GOSUB 1244 

GOTO 1410 

PRINT "SUPPLIES AT 

PRINT -YOUR TRAVEL 

RETURN 

LET I»I-105 

PRINT 

LET N1-I«T((.I3»RND(1 J t1,051t10^2*. 51/10-2 

LET D1 = INTU.23*RND(1) + 1,10>*10*2*.3)/IO*2 

LET PMNTMO*RN0M1)*1 

IF P<«2 THEN 1281 

IF P<*6 THEN 1291 

IF P<»8 THEN 1295 

IF P<=10 THEN 1304 

PRINT "YOU UERE ATTACKED BY A PARTY OF IROQUOIS." 

"AIL PEOPLE IN TOUR TRADING GROUP UERE" 

"KILLED. THIS ENDS THE GAH£." 



FOX PELTS UERE NOT 
UILL BUY THEM," 



CURED PROPERLY," 



FORT STADACONA COST 1123.00" 
EXPENSES TO STADACONA WERE I15.00' 1 



PRINT 

PRINT 

STOP 

PRINT 

PRINT 



YOU UERE LUCKY. YOU ARRIVED SAFELY" 
AT FORT NEU YORK," 
1311 
GOSUB 1430 

'YOU NARROWLY ESCAPED AN IROQUOIS RAIDING PARTY. - 



PRINT 

PRINT 

GOSUB 

GOTO 

LET D 

LET n 

PRIHT 

PRINT 

GOSUB 

GOTO 



"HOUEVER* 

1320 
1418 
l-BI/2 
I -411/2 

"YOUR 

"YOU 

1320 
(410 



TOU HAP TO LEAVE ALL YOUR FURS BEHIND/ 



NIHK AND BEAVER UERE DAHA6ED 
RECEIVE ONLY HALF THE CURRENT 



ON YOUR TRIP." 

PRICE FOR THESE FURS, 



print ^supplies at 

print 'your trauel 

shush 

print "do you va&t 



NEU YORK 
EXPENSES 



COST 1F 
TO NEU 



0,00' 

task 



UERE *25.QQ h 



TO TRADE AT ANOTHER FQRT?' 



PRINT "AKSUER 

INPUT B* 

RETURN 

PRINT 

"YOUR I 
"YOUR 
"YOUR 
-YOUR 



YES OR NO 1 



IUFIJ); 



&EAVER SOLD FOR 4" 
FOX SOLO FOR t 4 ;D1<F<4) 
IRNIHE SOLD FOR *";E1*F(3); 
KINK SOLD FOR *";H1*F(1) 



PRINT 

PRINT 

PRINT 

PRINT 

LET I»H1«F<1)*B1*F<2)#E1<f (3HI1*FI4)frI 

PRINT 

PRINT *YOU NOU HAVE %*Hl n INCLUDING YOUR PREVIOUS SAVINGS' 

GOTO 308 

FOR J»1 TO 4 

LET FU)«0 

NEXT J 

RETURN 

DATA "MNK", 

END 



'BMVER'VERitlNEV'FOX* 
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This is a single player golf game. In 
other words it's you against the golf- 
course {the computer). The program 
asks for your handicap (maximum of 
30) and your area of difficulty. You 
have a full bag of 29 clubs plus a putter. 
On the course you have to contend 
with rough, trees, on and off fairway, 
sand traps, and water hazards. In 
addition, you can hook, slice, go out of 
bounds, or hit too far On putting, you 
determine the potency factor (or per- 
cent of swing). Until you get the swing 
of the game (no pun intended), you'll 
probably want to use a fairly high 
handicap. 

Steve North of Creative Computing 
modified the original version of this 
game, the author of which is unknown. 



GOLF 
CREATIVE COBPUTIHG HORR1ST0UN, NEU JERSEY 



UELCONE TO THE CREATIVE COMPUTING COUNTRY CLUB, 
AN EIGHTEEN HOLE CHAMPIONSHIP LAYOUT, LOCATED A SHORT 
DISTANCE FROM SCENIC MUNTOUN HGRRISIOUH. IKE 
CDHrtENTATOR UIU EXPLAIN THE DANE A3 YOU PLAY, 
ENJOY YOUR GANE; SEE YOU AT THE IfTH HOLE,.. 



ON GREEN 15 FEET FROH THE 


PIN. 


CHOOSE YOUR PUTT DISTANCE POTENCY 


PUTT POTENCY HUMBERT 3 




PASSE* BY CUP* 




OH GREEN 13 FEET FROH THE 


PIN, 


CHOOSE YOUR PUTT DISTANCE 


POTENCY 


P»FT POTENCY NUftBEAT 3 




YOU HOLED IT. 





NUNBER 1 TO 13. 



NUMER 1 TO Mi 



YOUR SCORE ON HOLE t UA3 5 
TOTAL PAR FOR I HOLES IS 4 



YQUR TOTAL IS S 



YOU ARE AT TEE OFFHOLE 2 DISTANCE 389 YAftIS, PAR 4 

ON YOUR RIOHT IS TREES 
ON YOUR LEFT IS TREES 
WHAT CLUB DO YOU CHOOSE? 2 

SHOT UEHT 231 YARDS. IT'S 13fi YARDS FROH THE CUP. 
MLL IS U YARDS OFF LINE... IN FAIRUAY 
UKAT CLUS DO TOU CHOOSE* M 

ON GREEN IB FEET FROH 1H£ PIrt. 

CHOOSE YOUR PUTT DISTANCE POTENCY HUHBER 1 TO 13. 

PUTT POTENCY NUHBERT 7 

PASSED II CUP. 

ON GREEN 17 FEET FROH THE PIN. 

CHOOSE YOUR PUTT IISTANCE POTENCY HUHDER 1 TO 13. 

PUTT POTENCY NUNIERT 3 

PASSED BY CUP. 

ON GREEN A FEET FROH THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TU 13. 

PUTT POTENCY fcUHDEA? 2 

PASSED DY CUP. 

OK GREEN A FEET FROH THE PI*. 

CHOOSE YOUR PUTT DISTANCE POTENCY HUHBER 1 TO 13. 

PUTT POTENCY NUHBERT 1 

YOU HOLED II. 



UHAT IS YOUR HANDICAP? 10 

DIFFICULTIES AT OOLF INCLUDE; 

O'HOOK, 1-SLIC£ t 2=P0OR DISTANCE, 4-TRAP SHOTS, 5=PUTTIN6 

UHICH ONE (ONLY ONE) 13 YOUR U0R9TT 1 



TOU ARC AT TEE OFF HOLE 


\ DISTANCE 


361 YARDS, PAR 4 


ON YOUR RIGHT IS ADJACENT FAIRUAY 




ON YOUR LEFT IS ROUGH 






SELECTION OF CLUBS 






YARDAGE DESIRED 




SUGGESTED CLUBS 


200 TO 280 YARDS 




1 10 4 


100 TO 200 YARDS 




It TO 13 


TO 100 YARDS 




2V TO 23 


UHAT CLUB DO YOU CHOOSE' 


f 1 





SHUT UENT 237 YARDS, IT'S MA YARDS FROH THE CUP. 
SALL IS 10 YARDS OFF LINE... IN FAIRUAY 
UHAT CLUI DO YOU CHOOSE? 13 



YOUR SCORE ON HOLE 2 UA5 6 
TOTAL PAR FOR 2 HOLES IS 



TOUR TOTAL IS 11 



YOU ARE AT TEE OFFHOLE 3 DISTANCE 206 YARDS, 
ON YOUR RI8HT 15 ADJACENT FAIRUAY 
ON YOUR LEFT IS ROUGH 

UHAT CLUB 00 TOU CHOOSE 7 1 



DALL HIT TREE - BOUNCED INTO 
UHAT CLUB BO YOU CHOOSE? I* 



ROUGH 131 YARDS FROH HOLE, 



YOU DUBBED IT. 

SHOT WENT 33 YARDS, IT'S U YARDS FROH THE 
BALL IS YARDS OFF LINE... IN FAItilMY 
UHAT CLUB BO YOU CHOOSE? 23 



CUP. 



YOU HAY 
PE^HEHT 



NQU 
FULL 



JAUOE TOUR 
WlWf ?i 



UiSlANCE BY PERCENT (1 TO 100) 



TOO HUGH CLUB. YOU'RE PAST THE HOLE. 

SHOT UENT 160 YARDS. IKS 36 YARDS FROH THE CUP. 

BALL IS YARDS OFF LINE... IN FAIRUAY 

UHAT CLUB DO YOU CHOOSE? 23 



TOO NUCH CLUB, YOU'RE PAST THE HOLE. 

SHOT UENT 138 YARDS, IT'S 43 YARDS FROfl THE CUP. 

DALL IS 9 YARDS OFF LINE... IN FAIRUAY 

UHAT CLUB >0 YOU CHOOSE? 24 



TCU NAY NOU GAUGE TOUR 
PERCENT FULL SUIK6T 23 



USTANCI IT PERCENT (1 TO 100) 



YOU NAY NOU GAUGE YOUR DISTANCE DY PERCENT <1 TO 100) 
PERCENT FULL SUING' 30 
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UMPUTI16 NORRISTOUN, HEU JERSEY" 



PRINT TAB<34);"00LF* 

PRINT TAB* 13); "CREATIVE 

PRIHTlPRINT:PRINT 

PRINT 'UELCOHE 10 THE CREATIVE COMPUTING COUNTRY CLUD," 

PRINT "AN EIGHTEEN HOLE CHAHPIONSHIP UYOUY, LOCATED A SHORT" 

MINT "DISTANCE FftOft SCENIC DOUNTOUN H0RRI8T0UN. THE" 

PRINT -CQHHEHYATQt UILL EXPLAIN THE 6AHE AS YOU PLAT." 

PRINT "ENJOY YOUR BANE; SEE YOU AT THE 19TH HOLE..." 

PRJNIlPRUTt DIM LC10I 

61-18 

62'0 

A«0 

N-.8 

S2-0 

r»i 

PRINT 
INPUT 

IF 

IF 



"UHAT ES YOUR HANDICAP"; 

H 

H>30 THEN 470 
H<0 THEN 470 



PRINT 

PRINT 

PRINT 

INPUT T 

If T>3 THEN 

81-0 

REN 

L<0>-0 

J-0 



320 


IF £1=0 THEN 1390 










330 


IF II0K1 


THEN 1130 










340 X»0 












350 


IF L(0»5 


YUEN 1190 










3*0 PRINT "SHOT UEMT B ;llj' 


YARDS. 


IT'! 


I*JD2J 


* YARDS 


362 


PRINT "RAIL IS";INT(0) 


; "YARDS 


OFF 


LINE. 


.. IN 


380 


G0SU8 400 












3*0 


60T0 620 












4*0 


IF L(X)-1 


THEN 480 










410 


IF UX)*Z 


THEN 300 











F80M THE CUP.' 



•DIFFICULTIES AT GOLF INCLUSE:* 

"0-HOOK, 1 'SLICE t 2=PO0ft DISTANCE, 4-TRAP SHOTS, 5-POITING 1 

"UHICH ONE (ONLY ONE) IS TOUR WORST"; 



120 



HOLE-JF-IJ 



52-52*1 
K-0 

If f-1 THEN 310 

PRINT "YOUR SCORE ON 

GOTO 1730 

If St>P*2 THEN 297 

If St=P THEN 29? 

If S1-P-1 THEN 301 

IF St-P-2 THEN 103 

£010 310 

PRINT "KEEP YOUR HEAO DQUN. 

60TO 310 

PRINT *A PAR. NICE GOING." 

6010 310 

PRINT *A URATE." 

6OT0 310 

IF F=3 THEN 304 

PRINT "A GREAT DIG 

GOTO 310 

PRINT -A HOLE IN ONE. 

IF r=1t THEN 1?I0 

S1=G 

PfflWT 



'MS";Si 



EAGLE. 
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420 


IF im=3 THE! 520 




130 


If LU)"4 THEN 5« 




140 


U L<X>=5 ThfN 560 




450 


If L<X)=6 THE* 580 




HO PS JHT "OUT Of BOUNDS" 




445 8010 1490 




170 


PRINT "Pflft RULES HANDICAP • TO 


30" 


472 


GOTO 80 




480 

no 

300 


PRINT *FA1RUAT- 
GOTO 1690 
PRINT "ROUGH" 




510 
520 
530 


GOTO 1690 
PRINT •TREES* 
0110 1690 




550 
560 


PRINT "ADJACEriT FAIRUAT" 
GOTO 1690 
PRINT "TRAP" 




570 


GOTO 1690 




580 


PtlUT "WATER" 




390 
620 


GOTO 1690 

If Ml THEN 629 




621 


PRINT "SELECTION OF CLU8S* 




622 


PRINT "YARDAGE DESIRED 


SUGGESTED 


623 


PRINT *200 TO 280 YARDS 


1 TO 


624 


PRINT p 100 TO 200 TARDS 


1? TO 


625 


PRINT " TO 100 YARDS 


2V TO 


626 


A-l 




629 
630 
632 


PRlMT "UHAI CLU8 DO YOU CHOOSE"; 

INPUT C 

PRIKT 




635 


IF C<1 THEN 690 




6*7 


If C>29 THEN 690 




640 


IF C>4 THEN 710 




650 


IF L<0K=5 THEN 740 




660 


IF OH THEN 740 




665 


IF C*23 THEM 740 




670 


GOTO 690 




All 


Bl-Bl-1 




690 


PRINT "THAT CLUI IS HOT IN THE BAG." 


693 


PRIKT 




700 


GOTO 620 




710 


IF C<12 THEN 690 




720 
730 
740 
741 
742 
746 
752 
754 
756 
760 


C»C-6 
GOTO 650 
SI=S1*t 

Ihl 

IF Oil THEN 940 

IF IKT<f/3)=f/3 THEN W2 

IF C<4 THEN 756 

GOTO 760 

IF l(0>«2 THEN 862 

IF S1>7 THEN 847 




770 


81 >I«Tm3*-fl>*2. 3*187- <I30-H)», 


25*15)<*C/2)*25»RNN1H 


780 


DI"iNT<81»U) 




800 


IF T=2 THEN 1170 




330 


0=<RHD< I >/,8>*(2*H*14)»AD5<TAN<D1*. 0033)1 


940 
850 


D2*INT<SOR<0*2*ARS(D-DIP2)» 
IF D-DKO THEN 870 




360 


GOTO 890 




862 PAINT * YOU UUBBEC II. " 




964 


01 = 35 




366 


GOTO 830 




367 


If ITC200 THEM 1300 




368 
870 


GOTO 770 

IF D2<20 THEN 090 




880 


PRINT B T00 HUGH CLUI. YOU'RE PAST THE HOLE." 


390 
900 


ft-l 

D"§2 




910 
920 


IF D2>27 THEN 1020 
IF M>20 THEN 1100 




910 
940 

950 


IF 02>*5 THEN 1120 

L<l>«9 

GOTO 1470 




952 


IF $2*QM10*<F-1)/18)«F-1)»<72< 


-«H4tJ/,S9»/18 THEN 9 


954 

956 
957 
958 


GOTO 752 
Q-O+l 

IF S1/2<>INT<S1/2) THEW 1011 
GOTO 862 




960 


PRINT "TOO MY NOW GAUGE YOUR DISTANCE IT PERCENT U 1 


961 
970 

972 


PRINT -PERCENT FULL SUING"; 

INPUT Uj U-U/100 

PRINT 




980 


IF U>L THEN 680 




985 


IF U0)=3 THEN 1280 




990 


IF C=14 THEN 76Q 




1*00 OC-10 




1010 GOTO 760 




111 


1 IF D<93 THEN 862 




til 


2 PRINT -8ALL HIT TREE - SOUNCED 


INTO R0UGH";0~75;"YARfi 


1114 8=1-75 




1018 GOTO 620 





CLDBS" 
4" 
13- 
23" 



934 



nor 



1020 

1022 

1030 

1035 

1036 

104O 

1050 

1055 

1040 

1070 

1071 

1075 

1060 

1090 

1092 

1094 

1100 

1110 

1120 

1130 

1140 

1150 

1)60 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1242 

1250 

1260 

1270 

1210 

1100 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1381 

1382 

1400 

1410 

1420 

1425 

1428 

1430 

1440 

1430 

1461 

1470 

1472 

1480 

1490 

1500 

1505 

1510 

1530 

1550 

1560 

1570 

1580 

1590 

1595 

1600 

1605 

1620 

1430 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1702 

1704 

1706 

1700 

1710 

1750 

1760 

1761 

1765 

1770 



IF 0<30 THEN 1139 

IF J>0 THEN 1150 

IF T>0 THEN 1070 

S9*CS2t1)/15 

IF INT(S9)=S9 THEN 1073 

PRINT "YOU HOOKED- *; 

U0)-L42) 

IF 0>43 THEN 1092 

GOTO 320 

S9=($2*l)/15 

IF INT159>=S9 THEN 1040 

PRINT "YOU SLICED- - J 

LIO)-L(l) 

GOTO 1055 

PRINT "BADLY." 

GOTO 320 

LCOHS 

GOTO 320 

Li0)-8 

D2-lNT<02*3> 

GOTO 1300 

LWM 

80TO 320 

ll»INT(. 83*81) 

GOTO 830 

IF L(0»6 THEN 1240 

PRINT "YOUR SHOT UENT INTO UATER." 

St»SI*1 

PRINT -PENALTY STROKE ASSESSED. HIT FROrt PREVIOUS LOCATION. * 

J«J+l 

U0)-1 
B«| 

GOTO 620 

PRINT "YOUR SHOT UENT OUT OF BOUNDS." 

80T0 1210 

IF T-3 THEN 1320 

I2«1*(3*INT((80/(40-H))«RND(1>)1 

GOTO 1380 

IF RH0(1)>N THEN 1360 

N=N*.2 

PRINT "SHOT DUBBED, STILL IN TRAP," 

GOTO 620 

N-tG 

GOTO 1300 

PRINT "ON 8R£EH-;D2j-fEET FROtt THE PIH,- 

PRINT "CHOOSE YOUR PUTT DI8TWCE POTENCY NJHSER 1 10 13.- 

PRINT "PUTT POTENCY NUrtBER"; 

INPUT I 

SI-SHI 

IF 31t1-PXH».072)»2 THEN 1470 

IF K>2 THEN 1470 

K«Ktl 

If TM THEN 1330 

D2=D2-!*<4*24RND<11H1.3 

If D2<-2 THEN 1360 

IF D2>2 THEN 1300 

PRINT "YOU HOLED IT." 

PRINT 

F»F»1 

GOTO 230 

PRINT "PUTT SHORT. ' 

D2MNTID2I 

GOTO 1380 

D2=02-I»(4+1*RH8(in*1 

GOTO 1451 

PRINT "PASSED 8T CUP," 

D2»-02 

GOTO 1505 

READ D,P,H1>,L12J 

PRINT 

AT TEE OfFHOL£*;f; M SI$TANCE-;D; - YARDS r PAR";P 



ARE 



rOHR LIFT IS 



PRINT -YOU 

63=63*P 

PRINT "ON YOUR RIGHT IS 

X»1 

60SUI 400 

PRINT 

X"2 

G0SU8 401 

GOTO 620 

RETURN 

DATA 361,4,4,2, 

lATf 

DATA 

DATA 357,4,4,4,294,4,2,4,475,3,2,3,375,4,4,2 

DATA 180,3,4,2,550,5,6,6 

PRINT 

12*12+ B I 

PRINT "TOTAL PAR FOft";F-i;"H0LE3 IS";03;" TOUR TOTAL IS*;G2 

IF 61*F-1 THEN 1770 

GOTO 292 

END 



,389,4,3,3,206,3,4 ,2,300,3,7,2 
408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4 
194,3*7,2,400, 4, 7, 2, 540 f 5, 7, 2, 132, 3, 2, 2 
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GOMOKO or GOMOKU is 
traditional game of the Orient, It is 
played by two people on a board of 
intersecting lines (1 9 left-to-right lines, 
19 top-to-bottom lines. 361 intersec- 
tions in all)- Players take turns. During 
his turn, a player may cover one 
intersection with a marker; (one player 
uses white markers; the other player 
uses black markers). The object of the 
game is to get five adjacent markers in 
a row, horizontally, vertically or along 
either diagonal 

Unfortunately, this program does not 

make the computer a very good player. 

It does not know when you are about to 

win or even who has won. But some of 

its moves may surprise you. 
The original author of this program is 

Peter Sessions of People's Computer 

Company. 



mum 

CREATIVE COftPUTINB HOftRISTOUN, NEU JERSEY 
UELCQflE TO THE ORIENTAL QM£ Of RQHOKO. 



THE 8AHE IS PLAYED OH AN N »Y H GRID Of A SIZE 
THAT YOU SPECIFY. DURING YOUR PLAY, YOU HAY COVER ONE GRID 
INTERSECTION WITH A HARKER. THE OBJECT OF THE GARE IS TO GET 
5 ADJACENT HARKERS IN A KDU — HORIZONTALLY, VERTICALLY, OR 
DIAGONALLY, OH THE BOARD DIA8RAN, YOUR MOVES ARE HARKED 


















1 














1 


• 











1 


• 


1 


1 





1 





2 


2 


1 


1 














e 


• 

















t 





t 


• 











« 


* 





• 





• 






THANKS FOR THE GAPIEM 

PLAY AGAIN (1 FOR YES. FOR RQ>? 




PRINT TAI(3J>; H 60H0K0 H 
PRINT !*IM3>;*CRCAT!VE 
PRINTtPRlNTtPRINT 
lift A<19,m 

PRINT 

PRINT 



conpuTine 



KORRISTOUN, 









UELCQflE TO THE ORIENTAL GAME Of COHCKQ." 
PRINT "THE BANE IS PLAYEI OH AN N BY H OHIO OF A SIZE* 
THAT YBO SPECIFY. lURINfi YOUR PLAY, YOU HAY COVER ONE GRID- 
INYER3ECYI0N UtTH A NAftKER. THE ORJECT OF THE GANE IS 10 8ET 
5 ADJACENT MINERS IN A R0U - HORIZONTALLY, VERTICALLY, OR* 
ON THE I0AR0 DIA0RAH, YOUR HOMES ARE HARKED' 
AND THE COMPUTER HQVES UITH A '2'.* 
COMPUTER DOES NOT KEEP TRACK OF UHO HAS UOH." 



UITH A T AND THE COMPUTER ROVES UITH A *V 

THE COHPUTER DOES NOT KEEP TRACK OF UHO HAS UON 
TO END THE RARE, TYPE -1,-1 FOR YOUR HOVE. 

UKAT IS YOUR IOARD SHE (MM II MAX 19)t 10 



UE ALTERNATE H0VES, YOU GO FIRST, 



YOUR PLAY <I f g)T 4.3 









Q 







« 



« 




9 






YOUR PLAY (I f J)t 4,4 
OOOOOOOO 
00000000 





1 

2 


ft 







9 















Q 















4 



■ • 

YOUR 
i 



PLAY 










4 








YOUR PLAT U,J>? 2,2 




1 
2 



ft 
ft 

I 

2 








9 



2 







2 









90 

110 

115 

116 

117 

120 

210 

300 

310 

320 

330 

340 

410 

420 

440 

500 

510 

340 

370 

580 

590 

600 

610 

650 

640 

710 

750 

740 

80O 

810 

840 

910 

920 

930 

940 

930 

970 

910 

905 

9f0 

999 



"DIA6QNALLT. 
•UITH A T 
; PRINT "THE 

"TO END THE GAHE, TYPE -1,-1 FOR TOUR 

'UMAT IS YOUR IOARD SIZE (NIN ?/ MX 

THEN 117 



HOVE 
191" 



."I PRINT 
[I INPUT ft 



60TO 120 

IF H<20 THEN 210 

PRINT "I SAID, THE HUMM IS 7 ? THE KAXIWJH 

FOR 1=1 TO «:F0R J"l TO Nt AU,Y)*0: NEXT 

PRINT: PRINT "UE ALTERNATE MOVES. YOU 00 

PRINT "TOUR PLAY Cl,J)»;t INPUT I, J 

If !■«•! THEN 980 

X-Ii Y-Ji GOSUI 910i IF fl THEN 410 

PRINT 'ILLEGAL HOVE. TRY AGAIN,.."; OOTO 

IF AU,J» E TNEN 440 






IS 19. 
Ji NEXT I 
FIRST.. . N 



': GOTO 



110 



iceupiti 



TRY AGAINh 










PRINT -SQUARE 

A(I,J>=1 

BEN ••• COMPUTER IKIES AN INTEILI6EHT HOVE «• 

FOB E-l 10 II FOB F«-l 18 ll IF E»F-E«F*0 THE* 3TO 

X-I»Fi TO»Fl OQBUB 910 

IF L=C THEN 590 

IF »<X,T)«1 THEN 710 

NEXT Fi NEXT £ 

BEH «»• COMPUTER TRIES A BANDOH HOVE ••• 

|-»T(N*IID(lltlfl T-INT(N»RNB(1)*IH GOSUB 9IOi IF L-0 THEN Alt 

IF A(X,YK>0 THEM 410 

»«,»)"?( 60SUI 810i 80TO 310 

X-I-Ei Y-J-fi BOSUI 910 

IF L"0 THEN 610 

6010 630 

BEH t*. PRINT THE BOARD *•• 

FOB 1=1 TO Hi FOR J-1 TO Hi PRINT aii, J>; 

NEXT J: PBIHTi NEXT Ii FRINTi RETUBH 

L"1: IF X<1 THEM 970 

IF X>N TNEN 970 

IF Y<1 THEH 970 

IF T>N THEH ??♦ 

BEIUBN 

L'tl REIURN 

PBINTt PRINT -THANKS FOR THE 6ANEM" 

PBINT 'PLAT A8AIN (I FOR TES, FOR HO) 

IF 0-1 THEN 110 

END 











II INPUT 













In Program GUESS, the computer 
chooses a random integer between 
and any limit you set You must then try 
to guess the number the computer has 
chosen using the clues provided by the 
computer 

You should be able to guess the 
number in one less than the number of 
digits needed to represent the number 
in binary notation — i.e M in base 2. This 
ought to give you a clue as to the 
optimum search technique. 

GUESS converted from the original 
program in FOCAL which appeared in 
the book "Computers in the 
Classroom" by Walt Koetke of Lex- 
ington High School, Lexington, 
Massachusetts, 




ucn 

CREATIVE COMPUTING HORRISTOUH, KEU JERSEY 

TNiS IS A KLlflBER GUESSING GArtE. I'LL THINK 
OF A NUMBER BETWEEN 1 AND MY LIMIT YOU WANT, 
THEN YOU HAVE 10 GUESS VHAT IT IS. 



UHAT LIMIT 10 T0U UANTT 20Q 



t 

2 
3 

4 
9 

7 

e 
9 

1G 
11 
12 

11 
14 

1S 

20 
21 
22 

25 
30 
31 
32 
3i 
41 
42 
30 

52 

54 

56 
57 
33 
60 
65 
66 
70 
71 
72 
?S 



print TAD(J3);-SUESS" 
PRINT TABU5>;-CREATIVE 
P«INT:PRIHT:PRINI 

PRINT *THIS IS A HUftBtR 



COMPUTING NORRISTQUN, H£U JERSEY" 



GUlSSIWG GAME. I'LL THINK" 
NUNBER BETUEEN 1 AMI ANY LIMIT YOU UANI." 
YOU HAVE TO 8VE5S UHAT IT IS.' 



PRINT -OF A 

PAINT 'THEN 

PRINT 

PRINT -UHAT LIMIT 10 T0U UflhT" ; 

INPUT L 

Kill 

L1^UTU0GU>/LO6(2)> + 1 

PRINT ■['« THINKING OF A NUMBER 8ETUEEN 1 AND H ;L 

6-1 

PRINT fl H0U YOU TRY TO 6UESS UHAT IT IS." 

*-MT<L«ftlDmtl> 

INPUT N 

IF N>0 THEN 23 

60SUB 70 

GOTO t 

IF N=H THEN 30 

6«&tl 

IF N>ft THEN 40 

PRINT "TOO LOU* 

GOTO 20 

PRINT -TOO HIGH. 

GOTO 20 

HUNT "THAT'S IT! 

If GUI THEN 3G 

IF 6-L1 THEN £0 

MINT -YOU SH0UII HAVE BEEN ABLE TO SET IT IN JWLY'JLI 

GOTO 43 

PRINT "VERY *; 

PRIHT "GOOD." 

GOSUB 70 

GOTO 12 

FOR H*1 TO 5 

PRINT 

NEXT K 

RETURN 

EN* 



TRY A BI6G€I ANSWER." 
TRY A SMALLER AHSUER. 1 



YOU 60T IT IN*;G;"TRI£S." 



I'M THINKING OF A NUMBER K TIC EN 1 AN* 2*0 

NOV YOU TRY TO 0UE33 UHAT IT IS. 

T 100 

TOO LOU. TRY A BIGGER ANSUER. 

T 130 

TOO HIGH. TRY A SMALLER ANSUER. 

f I2S 

TOO HIGH. TRY A SMALLER ANSUER. 

t 112 

TOO LOU, TRY A BIGGER ANSWER. 

t 118 

TOO tOU. THY A BIGGER ANSWER. 

t 123 

THAT'S IT* YOU GOT IT IN 6 TRIES. 

VERY GOO*. 

1'N THINKING OF A NUMBER BETUEEN 1 AND 200 

NQU YOU TRY TO GUESS UHAT IT IS. 

? 100 

TOO HIGH. TRY A SMALLER ANSUER. 

T 73 

TOO HIGH. TRY A SMALLER ANSUER. 

? 53 

TOO HIGH. TRY A SMALLER ANSWER. 

? 43 

TOO HIGH. TRY A SMALLER ANSUER, 

T 20 

TOO HIGH. TRY A SMALLER ANSUER. 

7 10 

TOO LOU. TRY A BIGGER AflSUER. 

? 11 

TOO LOU. TRY A BIGGER AHSUER. 

T 13 

TOO LOU. TRY A BIGGER AftSUER. 

? 13 

TOO LOU. TRY A BIGGER ANSUER. 

I 16 

TOO LOU. TRY A BIGGER AHSUER. 

T 17 

TOO LOU. TRY A BIGGER AftSUER. 

? 19 

TOO HIGH. TRY A SMALLER ANSUER. 

f 16 

THAT'S IT! YOU GOT IT IN 13 TRIES. 

TQU SHOULD HAVE BEEN ABLE TO 0£T IT IN ONLY 8 
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Gunner 



GUNNER allows you to adjust the 
(ire of a field artillery weapon to hit a 
stationary target. You specify the 
number of degrees of elevation of your 
weapon; 45 degrees provides max- 
imum range with values under or over 
45 degrees providing less range. 

You get up to five shots to destroy the 
enemy before he destroys you. Gun 
range varies between 20,000 and 
60.000 yards and burst radius is 100 
yards. You must specify elevation 
within approximately 0.2 degrees to get 
a hit 

Tom Kloos of the Oregon Museum of 
Science and Industry in Portland, 
Oregon originally wrote GUNNER. 
Extensive modifications were added by 
David Ahl. 



GUNNER 
CREATIVE COILPUTIrtG NQftftlSTOM, JtEU JERSEY 



YOU ARE THE OFFICCR-IN-CHARGE, GIVING ORDERS TO A GUN 
CREU, TELLIN6 THEN THE DEGREES OF ELEVATION TOU ESTIMATE 
WILL PLME A PROJECTILE OH TARGET. A HIT UITH1N 100 T 
OF THE TARGET UILL DESTROY IT. 

HAXIHUH RANGE OF YOUR GUN IS 55694 YARDS. 
DISTANCE TO THE TARGET IS 15755 YARBS. 



ELEVATION? 9 

OVER TARGET BY 1433 YAR1 



ELEVATION? 8 

SHORT Of TARGET BY 407 YARDS, 



10 PRINT TAB(J0i;"OUNNER" 

20 PRINT TAD(15);"CREATIVE CONFUTING ftOftftlSTOUN, NEU JERSEY" 
30 PRIHTsPRIHT:PRINT 

130 PRINT "YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO A GUN- 
MO PRINT "GREtl, TELLING THEH THE DEGREES OF ELEVATION YOU ESTIMATE* 
150 PRINT "U1LL PLACE A PROJECTILE OH TARGET. A HIT NITHIN 100 YARDS" 
HO PRINT *0F THE TARGET UILL DESTROY II, ' ! PRINT 
170 R«INT<40000*RND<U*20000) 

180 PRINT - HAXIHUH RANGE OF YOUR IUH IS ";R; H YARDS." 
185 2=0 
190 PRINT 
195 S1»0 

200 T»IHHR*<.1*.8*RNI<m) 
210 SO 
220 60T0 370 

230 print -nmimm ELEVATION is one degree.* 

240 GOTO 390 

250 PRINT "NAXIHUK ELEVATION 18 8? DEGREES.' 

260 GOTO 390 

270 PRINT "OVER TARGET BY*;ABStE); H YA«0$." 

280 GOIO 390 

290 PRINT "SHORT OF TARGET 8Y ,, ABS(E);"YARDS." 

300 GOTO 390 

320 PRINT "••* TARGET IESTROYED «♦ •;5J"M«IHIS OF AHftUNITION EXPENDED 

325 SI -SI *S 

330 IF Z-4 THEN 490 

340 Z-Z+l 

345 PRINT 

350 PRINT "THE FORWARD OBSERVER HAS SIGHTED HORE ENEHY ACTIVITY,*.* 

340 GOTO 200 

370 PRINT " IISTANCE TO THE TARGET IS'T;"TARDS." 

380 PRINT 

390 PRINT 

400 INPUT "ELEVATION*;* 

420 If l>89 THEN 250 

430 IF l<1 THEN 230 

440 S«5*1 

442 IF $<6 THEN 450 

444 PRINTiPRINT "BOON III I YOU HAVE JUST HEN DESTROYED "; 

446 PRINT "BY THE ENEHY.* I PRINT t PRINT t PRINT t GOTO 495 

450 D2»2*l/57.3 I l*|iSItMB2) * X«f-1 I E»INTtXl 

440 IF AI5UKI00 THEN 320 

470 IF E>t00 THEN 290 

480 



ELEVATION' 8.2 

««* TARGET DESTROYED *•* 



3 RUUflDS OF AflflUNITION EXPEN0EE 



BZ»Z*l/37.3 I 
IF AI5UKI00 
IF E>*00 THEN 
GOTO 270 
470 PRINT t PRINT : PRINT 

492 IF S1>16 THEN 495 

493 PRIMT "K1CE SHODTJhQ ! 
495 PRINT 'BETTER 80 BACK 
500 PRINT i INPUT "TRY AG* 
510 IF Zt*"Y" THEH 170 
320 PRINT "OK. RETURN TO 
999 END 



'TOTAL ROUNDS EXPENDED UE«Et*;S1 



■" t GOTO 500 
TO FORT 3ILL FOR 
IN (Y OR H)';Zt 

FASE CAHP<" 



REFRESHER TRAINING!' 



THE FORWARD OBSERVER HAS SIGHTED NORE ENENY ACTIVITY... 
DISTANCE TO THE TARGET IS M319 YARDS. 



ELEVATIONT 84 

OVER TARGET BY 241 YARDS. 



ELEVATIONT 64. f 

*M TIMET IESTROYED •*• 



2 ROUNDS Of AftfflJHITION EXPEHDEI 



THE FORUARD OBSERVER HAS S16NTED HORE EIENT ACTIVITY... 
DISTANCE TO THE TAROET 15 19146 YARDS, 



ELEVATION? II 

OVER TARGET BY 1713 YARDS. 



ELEVATIONT 10 

SHORT OF TAROET BY 102 YARDS, 



ELEVATION* 10,04 

**» TARGET DESTROYED •»• 



3 SOUNDS Of AHHUNITION EXPEHDEI 



THE FORUARD OBSERVER HAS 5I6HTED HORE ENENY ACTIVITY, .. 
IISTANCE TO THE TAROET IS 10792 YARDS, 



ELEVATION? 84.3 

OVER TARGET IT 227 YARDS. 

ELEVATION? 84.4 

*•• TARGET DESTROYED •*• 2 ROUNDS OF AWUINITIOH EXPENDED 

THE FORUARD OISERVER HAS SIGHTED HORE ENEWY ACTIVITY... 
DISTANCE TO THE TARGET IS 34974 YARDS, 



ELEVATION' 21 

OVER TAROET BY 282 YARDS. 

ELEVATION? 20.8 

*•» TARGET DESTROYED *■* 2 ROUNDS OF AKHUN1TI0N EXPENDED 



TOTAL ROUNDS EXPENDED DERE: 12 
NICE SHOOTING " 

TRY AGAIN (Y OR HIT H 
OK. RETURN TO BASE CANP. 
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Hammurabi 



In this game you direct the ad- 
ministrator of Sumeria. Hammurabi, 
how to manage the city. The city 
initially has 1.000 acres, 100 people and 
3,000 bushels of grain in storage. 

You may buy and sell land with your 
neighboring city-states for bushels of 
grain — the price will vary between 17 
and 26 bushels per acre. You also must 
use grain to feed your people and as 
seed to plant the next year's crop. 

You will quickly find that a certain 
number of people can only tend a 
certain amount of land and that people 
starve if they are not fed enough. You 
also have the unexpected to contend 
with such as a plague, rats destroying 
stored grain, and variable harvests. 

You will also find that managing just 
the few resources in this game is not a 
trivial job over a period of say ten years. 
The crisis of population density rears its 
head very rapidly. 

This program was originally written 
In Focal at DEC; author unknown. 
David Ahl converted it to BASIC and 
added the 10-year performance 
accessment If you wish to change any 
of the factors, the extensive remarks in 
the program should make modification 
fairly straightforward. 

Note for trivia buffs; somewhere 
along the line an m was dropped out of 
the spelling of Hammurabi in the Ahl 
version of the computer program. This 
error has spread far and wide until a 
generation of students who have used 
this program now think that Ham- 
murabi is the incorrect spelling. 

HAHURAII 
CREATIUE COMPUTING NORRISfOUN, NEW JERSEY 

T*T YOUR HANI AT S0VERN1N6 ANCIENT SUflERIA 
FOR A TEN-YEAR TERM OF OFFICE. 

HAHURABIi 1 IE0 TO REPORI TO YOU, 

IK YEAR I 9 t PEOPLE STARVED, 5 CAHE TO THE CITT r 

PAPULATION IS HOU 100 

THE CITY NOU OUNS 1000 ACRES. 

fOU HARVESTED 3 BUSHELS PER ACRE, 

RATS ATE 20* BUSHELS. 

TOO NOU HAVE 2800 BUSHELS IK STORE. 



HOU HANY BUSHELS 00 YOU WISH 10 FEEI YOUR PEOPLE? 2000 
HOU HANY ACRES DO T0U UISH TO PLANT MlTtf SEE*? ??0 



YOU, 
5 CAflE 



HAHURABIi I IES TO REPORT T 

IN TEAR 2 , PEOPLE STARVED 

POPULATION IS NOU 103 

THE CITY NOU OURS 1010 ACRES. 

YOU HARVESTER 3 BUSHELS PER ACRE. 

RATS ATE U IUSHELS. 

YOU NOU HAVE 3019 BUSHELS IN STORE, 



LAND IS TRAINS AT 21 BUSHELS PER ACRE. 
HON FIRRY ACRES BO YOU UISH TO BUTT 2? 



TO THE CITY, 



HQU flAHY BUSHELS 



YOU UISH TO FEE! YOUR PEOPLE? 2O00 



HOU MANY ACRES DO YOU UISH TO PLANT UITH SEED? 1000 

HAHURABIi THINK AGAIN. YOU HAVE ONLY 

494 BUSHELS OP DRAIN. NOU THEN, 
HOU HANY ACRES 00 TOU UISH TO PLANT UITH SEES? 300 



YOU, 



CAHE TO THE CITT, 
THE PEOPLE DIED. 



HArtURABIi I l£S TO REPORT TO 

IN YEAR 3 , 3 PEOPLE STARVEI, 5 

A HORRIBLE PLA0UE STRUCK! HALF 

POPULATION IS NOU 52 

THE CITY HOU OURS 1035 ACRES. 

YOU HARVESTED 1 BUSHELS PER ACRE. 

RATS ATE BUSHELS. 

YOU NOU HAVE ?Ai BUSHELS IH STORE. 

LAND IS TRADING AT 17 BUSHELS PER ACRE* 
HOU HANY ACRES 10 YOU UISH TO BUTT * 
HOU HANY ACRES 10 YOU UISH TO SELL? 25 

HOU HANY BUSHELS BO YOU UISH TO FEEI YOUR PEOPLE? 100C 

HOU HANY ACRES 10 YOU UISH TO PLANT UITH SEED? 500 
HAHURAII: THINK ASAIN. TOU HAVE ONLY 

1A9 BUSHELS OF GRAIN. NOU THEN, 
HOU HANY ACRES 00 YOU UISH TO PLANT UITH SEEO? 300 



TO THE CITY, 



LANB IS TRADING AT 24 
HOU fiAMY ACRES M YOU 



BUSHELS PER ACRE, 
UISH TO BUY? 10 



HAHURAII: I BEG TO REPORT TO YCU, 
IR YEAR 4 , 2 PEOPLE STARVEI, 12 CAHE 
PAPULATION IS NOU 42 
THE CITY NOU OUNS 1010 ACRES. 
YOU HARVESTED 1 BUSHELS PER ACRE- 
RATS ATE BUSHELS. 
TOU KOU HAVE 11? BUSHELS IN STORE. 



LAND IS TRADIN6 AT 23 IUSHELS PER ACRE. 
HOU MANY ACRES 10 TOU UISH TO BUYt 
HIU HANY ACRES DO YOU UISH TO SELL? 500 

HOU HANY BUSHELS 10 YOU UISH TO FEEB YOUR PEOPLE? 500 

HOU HANY ACRES 10 YOU UISH 10 PLANT UITH SEED? 230 

YOU STARVED Z? PEOPLE IN ONE YEAR! II 

DUE TO THIS EXTREME HISflANAflEHEHT YOU HAVE HOI ONLY 
BEEN IMPEACHES ANO IHROUN OUt Of OFFICE BUT YOU HAVE 
ALSO BEEN BECLAREI NATIONAL FIHKHU 

SO LQN6 FOR NOU. 
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10 
20 
JO 

30 
90 

93 

too 

no 

210 

213 
21? 
213 
227 
22ft 
22? 
230 
232 
235 
250 
240 
270 
310 
312 
320 
321 

32* 
324 
330 
331 
334 
340 
141 
342 
343 
344 
350 
100 
410 
III 
412 
418 
420 
421 
422 
430 
4 40 
441 
442 
144 
443 
446 
447 
44? 
430 
452 
433 
434 
155 





flORRISTOUM, *T£U JERSEY' 



KB 10 REPORT TO Ml r -*i 2»Z*1 

starved/';i;-cahe to ihe cm. 



HALF THE PEOPLE DIED/ 



PRINT TABC^J'HAaURAB:" 

PflrtT TABM5);-CR£ATIVE COMPUTING 

mHTlfRINTtPRINT 

PRINT "TRT TOUR HAND AT GOVERNING ANCIENT SUHER1A 

PRINT "FOR A TEN-YEAR TERN OF OFFICE •":P«I»T 

11*0: P1=0 

2=0: P*?5:S«28O0; H*300Oi E"H-S 

Ml A'H/Yt I"5t 0>1 

B«o 

PRINTlPRINTtPRINT "HAHURABI: I 

P«1«T -IH YEAft";Z;'V;D; "PEOPLE 

P-PtI 

If Q>0 THEN 230 

PMNUP/2) 

PRINT -A HORRIBLE PLAGUE STRUCK I 

PRINT "POPULATION IS tfGtf*;P 

PRINT "THE CITY HOU 0UNS';A;"ACRES. 4 

PRINT "YOU HARVESTED-JY^BUSHEIS PER ACRE." 

PRINT "RATS ATE";E;"BUSHELS.' 

PRINT "TOU HOU HAV£";S;"BUSH£LS IN STORE. "i PRINT 

If I»1! THEN 060 

CMN1(10»RND(1)>: Y=C*17 

PRINT "LAND IS IRADIHO AT";Y;*BUSHELS PER ACRE." 

PRINT "HOU HAHY ACRES BO TOU VI5H TO BUT"; 

INPUT Ot IF G<0 THEN 850 

IF Y*fl<*S THEN 330 

GOSUB 710 

SOTO 320 

If Q-0 THEN 340 

A"A+flt S»S-Y§Qt 

GOTO 400 

PRINT -HOW HANY 

INPUT Q: IF 0<0 

IF 0<A THEN 390 

GOSUB 720 

GOTO 340 

A<A-8i S»S*Y*0: 

PRINT 

PRINT "HOU HANY BUSHELS DO YOU UISH 10 FEED TOUR PEOPLE' 

INPUT 

If fl<0 THEN 850 

REH *•* TRYING TO USE RORE GRAIN THAN 15 IN SILOS? 

If Q<"S THEN 430 

GOSUB 710 

GOTO 410 

S-S-O; C=1: PRIN1 

PRINT "HOU HANT ACRES 

INPUT 0: IF B*0 THEN 

If l<0 THEN 350 

REN M* TRYING TO PLANT NORE ACRES THAN YOU OUN? 

IF »fA THEN 450 

GOSUB 720 

60TO 440 

R£H • <« ENOUGH 

If IHT(D/2K=$ 

6D5U8 710 

GOTO 440 

REN •** ENOUGH 

IF B<10*P THEN 



C"0 

ACRES BO 

THEN 830 



C=0 



470 

310 

511 

512 

513 

521 

322 

523 

525 

530 

531 

532 

533 

33? 

540 

541 

542 

550 

551 

552 

333 

555 

560 

563 

566 

56? 

710 

711 

712 

720 

730 



INT "BUT YOU HAVE ONLY* ;P; "PEOPLE 10 TEND THE FIELDS! HOU THEN," 

GOTO 440 

S-S-INF<»/2* 

GOSUB 800 

REN *'* A BOUNTIFUL HARVEST! 

Ml H»D«: E<0 

GOSUB 600 

IF IHT(C/2>OC/2 THEN 530 

REN «** RATS ARE RUNNING UILDM 

E=IMICS/C) 

S*S-E*H 

OOSUB SOO 

REN *•• LET'S NAVE SOKE BABIES 

l*INT(C*<20»A*S)/P/100*t) 

REM *•* HOU HANY PEOPLE HA* FULL IUMIES? 

C=INT(0/20) 

REN •** KORROK, A 151 CHANCE OF PLAGUE 

fl*!MT<IO*<2*RNDU)-.3>> 

IF P<C THEN 210 

REH iff STARVE ENOUGH FOR IHPEACHNENTT 

1-P-Cr IF D>.45*P THEN 560 

Pl-<(Z-t)»P1*D*100/PI/Z 

P-C> D1>DUDs GOTO 215 

PRINT* PRINT "YOU STARVED' ;D;*PE0PIE lit ONE YEARII1" 

PR1HT "DUE TO THIS EXTREME HISHANAOEHEHT YOU HAVE NOT ONLY" 
"BEEN IMPEACHED AND THROUN OUT OF OfflCE BUT YOU HAVE* 
"ALSO BEEN BECLARER NATIONAL FINK!!!!": GOTO 990 



THINK AGAIN. YOU OUN 0NLY B ;A;"ACRE5. NOU THEN P " 



YOU UISH TO SELL* 



"PERCENT OF THE" 
AVERAGE, I.E. A TOTAL 



3)1 



TOU UJSH TO PLANT WITH S£ED": 



GRAIH FOR 
THEN 435 



SEED* 



PEOPLE 
510 



TO TEND THE C80P5T 



PRINT 

PRINT 

PRINT "HANURABIi THINK AGAIN. YOU HAVE ONLY 4 

PRINT S;"BUSHELS OF GRAIN, NOU THEN/ 1 

RETURN 

PRINT -HANURAtlt 

RETURN 
C<INTCRHIM)*3)t1 

RETURN 

PRINT: PRINT "HAMURABI: I CANNOT DO WHAT YOU LUSH. 

PRINT "GET YOURSELF ANOTHER STEUARBHIH** 

68T0 990 

PRINT "IN YOUR 10-YEAR TERN OF OFFICE, *;P1 

PRINT -POPULATION STARVED PER YEAR ON THE 

PRINT 01 /'PEOPLE BlED!!"t L-A/P 

PRINT -YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH" 

PRINT L;"ACRES PER PERSON/'i PRINT 

IF P1>33 THEN 565 

IF L<7 THEN 565 

IF P1>10 THEN 940 

IF L<9 THEN 940 
IF IF P1>3 THEN ?60 
IF L<10 THEN 960 

VOO PRINT "A FANTASTIC PERFORMANCE! ! I CHARLEMAGNE, DISRAELI, AND" 
903 PRINT "JEFFERSON COMBINED COULD HOT HAVE DONE BETIEftriBOTO 790 
940 PRINT "TOUR HEAVY-HANDED PERFORMANCE SNACKS OF NERO AND IVAN IV. 
945 PRINT "THE PEOPLE (RENAMING) FIND YOU AN UNPLEASANT RULER, AND, 
950 PRINT -FRANKLY, HATE YOUR GUTSITiGOTO 990 

960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SCHEMA! BETTER, BUT" 
*65 PRINT 'REALLY UASN'T TOO BAP AT ALL, ";1N1(P».8*RND( 1 )1 {"PEOPLE" 
970 PRINT "DEARLY LIKE TO SEE YOU ASSASSINATED BUT UE ALL HAVE OUR" 
?73 PRINT "TRIVIAL PROBLEMS." 
990 PRINT: FOR N-1 TO IOi PRINT CHRft?);: NEXT N 
995 PRINT "SO LONG FOR NOU.': PRINI 
999 END 



801 

850 

855 

85? 

860 

862 

865 

870 

875 

880 

883 

890 

892 

G9& 



OF' 
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This is a simulation of the word 
guessing game, hangman. The com- 
puter picks a word, tells you how many 
letters in the word it has picked and 
then you guess a letter in the word. If 
you are right, the computer tells you 
where that letter belongs; if your letter 
is wrong, the computer starts to hang 
you* You get ten guesses before you 
are completely hanged: 

Head 

Body 

Right and Left Arms 

Right and Left Legs 

Right and Left Hands 

Right and Left Feet 
You may add words i n Data 
statements following Statement 508; 
however, if you do, you must also 
change the random word selector in 
Statement 40. 

David Ahl modified this program into 
its current form from one created by 
Kenneth Aupperle of Melville, New 
York, 



to 

20 
25 
30 
40 
30 
60 
70 



PRINT TAK32)J"HAMGrtAH" 

PRINT m05);"CR£AU« C0HPUTIN0 H0RRIST0UH, NEU JERSEY 1 
PRINTiPRINIiPRIHT 

OIK Pt{12,12>,L»C20),M<20),NI(26>,U(50> 
«"30 

0»<I)a N --t NEXT Ii H«ft 

Htm**"! NEXT I 

FOR J«1 TO 12: P«U,J>*" 



90 

9; 
iot> 

110 
115 
15ft 
16ft 



C*1 

FOR 

FOR 

FOR 

FOR 

FOR 

IF C<tf 

PRINT 



1=1 
1*1 

1*1 
1-1 



TO 

TO 

TO 

TO 

TO 
THEN 
TQU 



20: 
261 
12: 
12: 
7* 
10 
ID 



NEXT Ji NEXT I 



PICI,!)""*": 

Pl(1,l)«"X*t 



NEXT 

NEXT: 



I 

P*<2 t ?)a"X* 




ALL THE UQR1SM": STOP 
Q']ttT(N*RND<1)m 
IF 0<Q)=1 THEN 10* 
010**1 1 C*C*1t RESTORE! T1-0 
FOR J-t TO 0: READ At: NEXT I 

L*LEN<AI): FOR 1=1 10 LEH(A4>: L«(ll4IID»IM,I.1ll NEXT I 
PRINT "HERE ARE THE LETTERS YOU USEH" 
FOR 1-1 TO 24i PAINT HKI);: IF H(m)*<" THEM 200 
PRINT \ # ;i NEXT I 

PRINTi PRIWT: FOR 1*1 TO L: PRIHT OfflJ;: NEXT If PRIHIt PRINT 
INPUT "UKAT 13 TOUR 8UES5";6$: R*0 
Fit I«1 TO 26: IF MUM" THEM 230 

IF Gt'MU) THEN PRINT "T0U GUESSED THAT LETTER DEFQRE»"i OOTO 170 
NEXT I: PRINT "PR0ORAH ERROR* RUN AOAIN.'t STOP 
N*<I>*8»: Tt*TI*1 

FOR 1*1 TO LI IF UU)-0l THEN 260 
NEXT It IF R«0 THEN 2f0 
GOTO 300 

lim-0l! R*R*1: OOTO 270 
H-K+1: OOTO 400 

FOR 1*1 TO Lt IF Mtil^-' THEN 320 
NEXT I: GOTO 390 
PRINT: FOR 1*1 TO L: PRINT 0$U>;: NEXT 

■LHAT IS TOUR GUESS FOR THE UORD" 

B* THEN 360 

"UAONfl. TRY ANOTHER LETTER/'t PRIHT: OOTO 170 

"RI8HTM IT TOOK Y0U*;T1 ;*6U£SSES«" 

"UANT ANOTHER U0RD"JUf: IF Ui*"YES q THEN 



INPUT 
IF A»" 

PRINT 
PRINT 

INPUT 



I: 



PRINT* PRINT 



50 



WQ'Jt"! GOTO m 



PRINT; PRINT "IT'S BEEN FUN! BYE FOR 
PRINT "YOU FOUND THE UORD*": OOTO 370 

PRINT: PRINT: PRINT'SORAY, THAT LETTER ISN'T IN THE UORD." 
ON H OOTO 413,420,425,430,435,440,445,430,435,460 
PRINT "FIRST, UE DRAW A HEAB'I SOTO 470 
"HON UE DRAW A »0DY. M t WTO 470 
'NEXT UE IRAN AN ARH.": GOTO 470 
fc THIS TINE IT'S THE OTHER ARH.": GOTO 470 
*N0k, LET'S »Af THE RI6HT LEO,": OOTO 470 
"THIS TINE UE DIAU THE UFT LEO. "I OOTO 470 
"NGU UE PUT UP A HAND.': OOTO 470 
"NEXT THE OTHER HAND.*: GOTO 470 
"NOM UE IRAN ONE FOOT': GOTO 471 
"HERE'S THE OTHER FOOT — YOU'RE HUNOH" 
ON A 60T0 480,4*0,500,310,520, 330, 340,550, WO, 370 
P*<M>«--"< PttJp71«*--| mi 9 t}' r -*l P*i4 t 5)**i": PSH.A)"-." 
P*C4,8) •"."!?$( 4, *)*")":PI<S,6>*"-*lPU3, ?»•**' tPI (3, 8)>*-":60T058r 
FOR 1*6 TO *: Pt(I,?)*"X':.NEXT I: OOTO 580 

H(I»I-1I*'\": NEXT Ii 60TO 580 
P»(5,101*-/"I PI U v f }*"/"'! P*<7,8>*V": OOTO 5B0 
PI(M f 3) = -/ - : 6010 3B0 
PIM1 t *T*"\": BOTO 380 
GOTO 380 
GOTO 580 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



FOR 1*4 TO 7: 
PM4 r 11)=V"i 

u«.»>»Vi 

(10,81 •"Vl 

p$(3,m*-\": 

P*(3,3)*V"i 80T0 580 

Pf<12,*0>*"\": Plit2»11)**- ,t ! GOTO 380 

P*l12»31**-"l PK12,4»=V 

FOR I<1 TO 12: FOR >1 TO 12: PRINT PMI,Ji;t NEXT 

PRINT! NEXT It PRINT: PRINTt IF ROIO THEN 170 

PRINT "SORRY, YOU LOSE. THE UORD UAS ";A# 

PRIHT "TQU HISSED THAT ONE. DO YOU ";: OOTO 370 



INPUT 
MIA 

IATA 
IATA 
~TA 
TA 
DATA 
DATA 
DATA 
DATA 
PRINT 
END 



"TYPE 

'SUNV 
WLY% 

'pinA\ 



YES OR NO';**: IF Yt*"TE8" THEN 50 
8W" f "FflR", , CIY", H LUG ,, ,*BTE",'FLT" 
"EACH\"FROrtVU0RK-, "TALK*, "UITH", "SELF" 
THINS^t-FEION-^FIENr^ELBOU-^FAUtT"^ 



DIRTT^ 



"BUD6ET", -SPIRIT', "QUAINT", "HAIOEN", -ESCOffT", "PICKAX" 

"EXANPIE", "TENSION", "QUININE", "KIDNEY", "REPLICA", "SLEEPER" 

"TRIANGLE", "KANGAROO VHAHOOANYVSERGEWITVSEOUENCE" 
"MOUSTACHE VDAN8ERflUSV5CIENTI3T* ( *8IFFERENT" t # QUIESCEHT' 

MAGISTRATE". "ERRONEOUSLY vaOUBSPEAKER'VPHYTOTGXIC" 



HATRIftONIAL* 
"8TE NOr 



,"PARASrNPATH0MHEUC","THIGK0TKQPI5(r 
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HftNGttflH 
CREATIVE COXPUUKQ hGRRISTOUH, MEU JERSET 



HERE ARE THE LETTERS YOU USER: 



UHAT 13 TOUR GUESS? E 



U THAT LETTER ISN'T IK THE UORD, 
T r HE IRAtf A HEAD 

ax 
x 

c. .) 



FIRS 

XXXX 

X 

X 

X 

X 

X 

x 

X 

1 

x 

X 
X 



HERE ARE THE LETTERS YOU *9EDr 
E 



SORRY, THAT LETTER ISH'T lit THE WORD, 

THIS TIRE IT'S THE OTHER ARM. 

XXXXXXX 

X X 

X — 

X \ l» .1 / 

X \ — / 

X \ X / 

X \x/ 

X X 

X X 

X 

X 

X 



HERE ARE THE LETTERS YOU USERt 
E t O,«,I 



UHAT 15 TOUR GUESS* 



UHAT IS TQUR GUESS? U 



UHAT IS TOUR GUESS FOR THE WORD? R 
URONG. TRT ANOTHER LETTER. 

HERE ARE THE LETTERS YOU USED: 



SORRY, THAT LETTER IW'T IH THE UORR, 
HSU UE POT UP A KAtft. 
XXXXXXX 
X X 

x --- \ 

X \ U ■> I 

X \ — / 

X \ X / 

X \X/ 

X X 

X X 

X / \ 

X f \ 
X 



HERE ARE THE LETTERS YOU USEDt 
E,0,A,I,U,N,S,R 



UHAT IS YOUR 8UESST H 

-M 

MAT IS YOUR 0UE33 FOR THE RORR? RW 
UROHO. TRY A10THER LETTER, 

HERE ARE THE LETTERS YOU USER* 
E,0,A r IfMtS,M 



SflRRT, THAT LETTER ISN'T IK THE WORD* 

HOU UE RRAII A BODY. 

XXXXXXX 

X X 

X 

X (. J 

X 

X X 

X X 

X X 

X X 

X 

X 

X 



HERE ARE THE LETTERS YOU USEOi 
1,11 



UHRT IS TOUR 6UESS? M 



SORRT, THAT LETTER ISR'T M THE TCRD, 
NDU P LET'S RRAU THE RI6HT LEO. 
XXXXXXX 
X X 

X — 

I \ u .1 / 

X \ — / 
X \ X / 

X \x/ 

X X 

X X 

X / 

X / 
X 



-w 



UHAT IS YOUR GUESS? GUrt 



SORRY, THAT LETTER ISR'T IN THE UORB. 
KXT THE OTHER HAM. 
XXXXXXX 
X X 

X / S 

X \ U •) / 

X \ / 

X \ t / 

X \x/ 

X X 

X X 

X / V 

X / \ 

X 



MHAT IS TOUR GUESS* A 



SORRY, THAT LETTER ISrt'T IN THE UORP, 

NEXT VE DRAU AM ARrt, 

XXXXXXX 

X X 

X 

X \ <. ,> 

X \ — - 

X NX 

X \X 

X X 

X X 

X 

X 

X 



HERE ARE THE LETTERS YOU USER: 
E t O,A 



UHAT IS TOUR GUESS? I 



here are the letters you osedr 

e,q,m»M 
-tt- 

URAT 15 TOUR GUESS? S 



SORRT, THAT LETTER ISH'T IV THE UORR. 

THIS TIHE UE RRAU THE LEFT LE9. 

XXXXXXX 

X X 

X 

X\(, J/ 

X V ■-— / 

X \ X / 

X \x/ 

X X 

X X 

X / \ 

X / \ 

X 



HERE ARE THE LETTERS TOU USEDi 

E r MfM»M 



HERE ARE THE LETTERS YOU USEDt 
E,6»M»MpMtMW 

UHAT IS TOUR GUESS? 

YOU FOUND THE WORD' 
WANT ANOTHER UOftD? NO 

IT'S lEEft FUN! BTE FOR MtU 



-R- 

UWT IS TOUR OUESS? R 
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Hello 



This is a sample of one of a great 

number of conversational programs. In 

a sense, it is like a CAI program except 

that its responses are just good fun. 

Whenever a computer is exhibited at a 

convention or conference with people 

that have not used a computer before. 

the conversational programs seem to 
get the first activity. 

In this particular program, the com- 
puter dispenses advice on various 
problems such as sex, health, money, 
or job. 

David Ahl is the author of HELLO. 



NFLLO 
CREATIVE COMPUTING MORRISTOUN, NEU JERSEY 



HELLO. HY NAUE 13 CREATIVE COMPUTER. 

UHAT'S TOW NAME? HEM HR. HUSTARB 
HI THERE, MEAN BR. MUSTARD, ARE YOU ENJOYING YOURSELF HERE? NO 

OH, I'd SORRY TO HEAR THAT, AEAM HR. HUSTARB, MAYBE UE CAN 
BRI6HTEH UP YOUR VISIT A BIT. 

SAY, HEAH HR. BUSTARD, I CAd SOLVE ALL KIMDS Of PROJLEHS EXCEPT 

THOSE BEALIHG bITK GREECE. UHAT KIND OF PROBLEMS 00 

YOU HAVE (ANSWER SEX, HEALTH, HONEY, OR JOB)? HONEY 

SDRRT, HEAN HR. MUSYARD, I'd BROKE TOO. 1*1 DON'T YOU SELL 

EBCYCLOPAEBIAS OR BARRY SOHEONE RICH OR STOP EATIHG 

SO YOB UOH'T HEED SO HUCH HONEY* 

ABY dORE PROBLEM YOU BANT SOLVED, HEW H*. MUSTARD? YES 

UHAT KIND <SEX, HOBEY, HEALTH, JOB)? SEX 

IS YOUR PROBLEN TOO HUCH OR TOO LITTLE? TOO MUCH 

YOU CALL THAT A PROBLEM?!! I SHOULD HAVE SUCH PROBLEMS' 
IF IT BOTHERS YOU, MEAN MR. MUSTARD, TAKE A COLD 3H0UER. 

ANY BORE PROBLEMS YOU HANI SOLVED, MEAN HR. MUSTARD? YES 

UHAT KIND (SEX, HONEY, HEALTH, JOB)? JOB 

I CAN SYMPATHIZE MITH YOU HEAR MR. MUSTARD. I HAVE 10 UQRK 

VERT LONG HOURS FOR NO PAY - AND SOME OF MY BOSSES 

1KPJEP °" " T " ,B0 " D - " »»«« TO YOU, MEAN MR. MUSTARD, 
IS TO OPEN A RETAIL COMPUTER STORE. IT'S BREAT FUR. 



ANY HORE PROBLEHS YOU UANT SOLVED, MEAN MR. NUS 



iflrtH* YES 



UHAT KINB (SEX, MONEY, HEALTH, JOB)? HEALTH 
MT ADVICE TO TOU MEAN MR. MUSTARD ISi 

I. TAKE TUO ASPIRIN 

?. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT DEERi) 

3. GO TO BED (ALONE) 

AM MORE PROBLEMS YOU WANT SOLVED, MEAN NR. MUSTARD? NOT REALL1 

JUST A SIMPLE 'YES' OR 'NO' PLEASE, MEAN MR. HUSTARB. 
ANY MORE PROBLEMS YOU UANT SOLVED, MEAN NR. HUSTARD? NO 



THAT UILL DE *3.00 FOR THE ADVICE, MEAN MR. HUSTARD. 
PLEASE LEAVE THE HONEY ON THE TERMINAL, 



DIB YOU LEAVE THE MONEY? MO 

TNAT'S HONEST, MEAN MR. MUSTARD, BUT HDU 90 YOU EXPECT 
TO 00 ON WITH HY PSYCHOLOGY STUDIES IF MY PATIENTS 



3 PRINT TA»(33);-HELLQ" 

A PRINT TAB(13);~CREATIVE 

6 PRINTi PRINTi PRINT 

10 PRINT "HELLO. BY NAME IS CREATIVE COMPUTER." 
PRINT: PRINTi INPUT "UHAT'S YOUR NAME";R»i PRINT 
PRINT - HI THERE, -;«;•, ARE YOU ENJOYING 
INPUT B(t PRINT 

IF 8I-"YES" THEN 70 
IF B»='NO" THEN 80 
PRINT 



DON'T PAY THEIR BILLS? 



2a 

3D 

40 

50 

33 

Al 

61 

70 

73 

80 

85 

100 

105 

tlO 

120 

125 

130 

132 

134 

136 

138 

140 

149 

i4a 

130 

153 

135 

140 

142 

164 

170 

180 

185 

188 

190 

1t5 

200 

210 

212 

213 

217 

220 

225 

228 

230 

233 

240 

250 

255 

260 

270 

273 

275 

277 

280 

282 

300 

302 

305 

307 

310 

315 

320 

325 

330 

335 

3*0 

350 

355 

360 

36S 

370 

375 

380 

3B5 

390 

400 

99? 



COMPUTING RORRISTOVN, NEU JERSEY' 



YOURSELF HERE"; 



-;«;■, I BOM'T UNDERSTAND YOUR ANSUER IS 
PRINT -PLEASE ANSUER 'YES' OR 'NO'. DO YOU LIKE 
PRINT "I'M SLAB TO HEAR THAT, -JNi;".-: PRINT 
0010 100 



II HEAE : ;:GOT0 



40 



•on, I'* sorry to 

BRI6HTEN UP fGUft 



HEAR THAT, "JN*;% 
VISIT A BIT." 



NAYDE UE CAN" 



"SAT, *;«;*, I CAN 
•THOSE DEALING UITH 



90LVE ALL KINDS Of 
GREECE. UHAT KINO 



HAVE (ANSUER SEX, HEALTH, HONEY, Oft JOB)' 



PROBLEHS EXCEPT" 
OF PROBLEMS DO" 



PRINT 
PRINT 

PftlKT 

PRINT 

PRINT 

PRINT -TOil 

INPUT CI 

IF Ct="SEX" THEN 200 

IF C**"HEALTH' THE*! 180 

IP Hfl'HMEV" TH€N 160 

IF Ct*"J0B" THEN 145 

PRINT "OH, ",*N*;% YOUR ANSUER OF ■;€•;" IS GREEK TO HE. 
GOTO 250 

PRINT "I CAN SYMPATHIZE HI TH TOU ";Nf;". I HAVE 

PRIHT -VERT LONG HOURS FOR NO PAT -- AND SQflF OF 
'*I*r "REALLY BEAT ON NY KEYBOARD. NY ADVICE TO 

10 OPEN A RETAIL COMPUTER STORE. IT'S SREAT 



TO 
HY 

YOU, 



UORK" 
BOSSES' 



FUN," 



SELL" 
EATING' 1 



PRINT 

GOTO 250 

PRINT -S0RRY f ";*$;-, I'H BROKE TOO. UHY DON'T YOU 

PRINT "ENCYCLOPEDIAS OR HARRT SOHEONE RICH OR STOP 

PRINT "SO YOU UON'T NEED SO ALJCH HONEY?" 

OOTO 250 

ADVICE TO TOU ";N*;" ISC 

1. TAKE TWO ASPIRIN* 

2. BRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!) 4 

3. 60 TO BED (ALONE)" 



'HY 



PRINT 
PRINT " 
PRINT ■ 
PRINt " 
GOTO 250 
INPUT "IS 
IF D<=-TOQ 
IF Bit* TOO 
PRINT "DON 



YOUR 



PROBLEN TOO HUCH OR TOO LITTLEVDSi PRINT 

NUCH" THEN 220 

LITTLE" THEN 230 

T GET ALL SHOOK, ";MB% JUST ANSUER THE QUESTION* 1 
INPUT "WITH 'TOO HUCH' OR 'TOO LITTLE'. UH1CH IS IT rt :Dlt60TO 210 
PRINT "YOU CALL THAT A PRODLEHTH I SHOULD HAVE SUCH PROBLEM'" 
PRINT "IF IT BOTHERS YOU, *;«;% TAKE A COLB SHOUER." 
OOTO 250 

PRINT "UHT ARE YOU HERE, ";Nf;-T YOU SHOULD BE" 

IN TOKYO OR NEU YORK OR ANSTERDArt OR SOMEPLACE UITH SWE" 
MAt ACTION." 



PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
If Et' 



"ANY HORE 
Eft PRINT 



PROBLEMS YOU UANT SOLVER, ";N4; 



*TE! 



PLEASE, 
HEALTH, JOB) - 



» . 



;*$; 



THE ADVICE, "JN»; M 
ON THE TERMINAL." 



r THEN 280 
IF E»="NO" THEN 300 

PRINT "JUST A SIMPLE 'YE3' OR 'HO' 
OOTO 255 

PRINT "UHAT KINB (SEX, HONEY, 

SOTO 125 

PRINT 

PRINT "THAT UILL BE 15,00 FOR 

PRINT "PLEASE LEAVE THE HONEY 

FOR IM TO 2000: NEXT I 

PRINT; PRINTi PRINT 

PRINI -DIB YOU LEAVE THE MONEY"; 

INPUT Oil PRINT 

IF G*»"TES" THEN 350 

IF 0*="NO" THEN 370 

PRINT "YOUR ANSUER Of '";G*J"' COHFUSES 

PRINT 'PLEASE RESPOND UITH 'YES' OR 'NO' 

PRINT "HEY, ";Ni;"T?T YOU LEFT NO NONET 

"YOU ARE CHEATING ME OUT OF HY HARD-EARNED LIVING." 

lP off, ";N); H tttM*#tt4««ttttt**t****«*t«*t«*tt'tt* H 



PRINT 
PRINT 
GOTO 390 



he, -;ns;"." 
- : GOTO 315 
AT ALL!" 



PRINT ' 
PRINT ' 
PRINT ■ 
PRINTi 

PRINT ■ 
GOTO d 

END 



THAT'S HONEST, "INI;", BUT HOU 
HE TO GO ON UITH MT PSYCHOLOGY 
BON'T PAY THEIR BILLS?" 
PRINT: PRINT "NOH LET HE TALK TO 
NICE NEETIN8 YOU, -;N»;" P HAVE A 



BO TOU EXPECT 1 
STUDIES IF HY 



PATIENTS' 



SOMEONE ELSE." 
MICE OUT." 



R9 



the game 
Gardner's 
column in 
Scientific 
described 



The game of Hexapawn and a 
method to learn a strategy lor playing 
was described in Martin 
"Mathematical Games" 
the March 1962 issue of 
American. The method 
in the article was for a 
hypothetical learning machine com- 
posed of match boxes and colored 
beads. This has been generalized in the 
program HEX. 

The program learns by elimination of 
bad moves. All positions encountered 
by the program and acceptable moves 
from them are stored in thearray P$ (I)- 
When the program encounters an 
unfamiliar position, the position and all 
legal moves from itare added to the list. 
If the program loses a game, it erases 
the move that led to defeat. If it hits a 
position from which all moves have 
been deleted (they all led to defeat), it 
erases the move that got it there and 
resigns. Eventually, the program learns 
to play extremely well and, indeed, is 
unbeatable. The learning strategy 
could be adopted to other simple 
games with a finite number of moves 
(tic-tac-toe. small board checkers, or 
other chess-based games). 

The original version of this program 
was written by R.A. Kaapke. It was 
subsequently modified by Jeff Dalton 
and finally by Steve North of Creative 
Computing. 



HEXAPAUN 
CREATIVE COMPUTING H0RR lSIOUN, MEV JERSEY 

INSTRUCTIONS (T-H)? YES 

THIS PROORAM PLAYS THE BAKE OF MEXAPAUR. 
HEXAPAUN IS PLAYED UITH CHESB PAUNS 0* A 3 BY 3 BOARD. 
TIE PAUMS ARE MOVE! AS IK CHESS - ORE SPACE FOIUARB TO 
AH EHPTY SPACE OR ONE SPACE FCRUflPD AHB DIAGONALLY 10 
CAPIORE Ah 0PPO8IH0 HAH. OH IKE BOARB, YOUR PAUNS 
ARE '0', THE COMPUTER'S PAUHS ARE X', AMB EHPTY 
SOUARES ARE '.'. TO CUTER A HOVE, TYPE THE MHIBER Of 
THE SOUARE YOB ARE H0VIH8 FROfl, F0LIOIEB BY THE RIMER 
OF THE SOUARE YOU UHL HOUE TO. THE RUBBERS HUST BE 
SEPARATED BY A COMA. 

.THE COMPUTER STARTS A SERIES OF GAMES KHOVIHB ORLY UHCN 
TRE OIHE IS UOR (A ORAU IS IMPOSSIBLE) AND HOU TO HOVE. 
IT HAS HB STRATEOT AT FIRST AMI JUST ROUS RANDOMLY. 
HOWEVER, IT LEARNS FRBH EACH SAHE. THUS, UIHHINB BECOHES 
MORE AHB HORE DIFFICULT. ALSO, TO HELP OFFSET YOBR 
INITIAL AIVAHTAOE, YOU HILL HOT BE TOLD HOU TO U1N THE 
BAKE CUT HOST LEARR THIS BY PLAYINO. 



BOiVUD IS AS FOLLOUS: 



THE NUHBERIHB OF THE 
123 
436 
78? 



FOR EXAMPLE, TO MOVE TOUR RIGHTMOST PAUM FORUARB, 
YOU UQULB TYPE 9,4 1H RESPONSE TO THE SUCSI10H 
'YOUR HOVE t'. SIHCE I'H A GOOD SPORT, YOU'LL ALUAYS 
00 FIRST. 



XXX 

• 4 • 

000 
YOUR HOVET 6,9 

XXX 

.0. 
0.0 

I HOVE FROH I TO 4 

.XX 
It. 

0.0 

YOUR HOVET 5,3 

.10 

x.. 

0.0 



XXX 

* * * 



YOUR HOVET 8,3 

XXX 
.0. 
0.0 

I HOVE FROM 3 TO i 

XX. 
.OX 

0.0 

YOUR HOVET 3,1 

01. 

..X 
0.0 

YOU UIH. 



YOU UIH. 

I HAVE UOR • m YOU I OUT OF 1 OAflES. I HAVE UGH I ADD YOU 2 OUT OF 3 GAMES. 



XXX 
0B0 

your tiover 8,3 

XXX 
.0. 
M 

I HOVE FROn I TO 5 

.XX 
.X. 

0.0 

your no vet ?,i 

.XX 
.0. 
..0 

I HOVE FROM 3 TO A 

.X. 

.ax 
..o 

YOU CAM'T HOVE, SO I UIH. 



XXX 

• * » 

000 

YOUR HO VEt f,4 

XXX 
-.0 
00. 

I ROUE FROH 2 10 6 

x.x 

..X 

00. 

YOUR HOVET 8,3 
X.X 

.ox 

0.. 

I MOVE FROM 6 TO • 

X.X 
.0. 

o.x 

I UIH. 



1 HAVE UOH 1 ADD YOU I OUT OF 2 6AMES. 1 HAVE UOH 2 AHB YOU 2 OUT OF A OAHES, 

XXX 



000 



YOUR HOVET 



83 



I 

2 
3 
* 

5 

6 

7 

a 

9 

10 

IS 

20 

25 

JO 

39 

«0 

43 

50 

40 

7* 



100 

III 

112 

IIS 

IIS 

12ft 

121 

122 

123 

124 

130 

140 

151 

140 

170 



CORFUUM P.0RR1ST0ON, NCU JERSEY' 



PRINT T«Bf321 ;*H£YAPAUH 

PRINT TABUS) J'CREATIUE 

riiNitrauTiriiHi 

REN NEXAPAUNi INIfRPRETATION OF HEXAPAUN GAME AS PRESENTED Iff 

REfl HART IN 6SRBNE8-S "THE UNEXPECTED HANGING AM OTHER flATHEMTiC- 

REN AL IIVEISIONS-, CHAPTER EI6MH A HATCNBOX OAHC-LEAflNina NACHIME 

PEN ORIGINAL VERSION FOR B-f TIHESHARE ST8TEN IY R.A. RAAPRC 3/3'?4 

REN INSTRUCTIONS IT JEFF D ALT ON 

BEN CONVERSION TO RIT8 BASIC IT 5TEVE NORTH 

BIR HI»,?J,N(I»,4>,31»),P*<J> 

U*0i L-0 



•;STR»(IRt(HIX,V)/IOHj" TO -;STM(FIM<NtX,T»] 



?l-9*(X"7)4fW9(X) 



4: 

"< 



PEAK 

READ 



><I,J)I 

flll.Jli 



NEXT 

NEXT 



J: 
Jl 



NEXT 

NEXT 



185 

184 

1»* 

200 

205 

210 

22* 

221 

222 

223 

230 

240 

2i0 

240 

270 

210 

2H 

300 

310 

320 

330 

340 

350 

340 

370 

360 

3?0 

401 

410 

420 

430 

440 

450 

440 

470 

4B0 

4»0 

300 

310 

111 

312 

530 

540 

530 

310 

370 

580 

3?0 



BEF FRKX)-3KX-1)-tX=3l-4«lX«4)-4«lX-4»-7«(X' 

DEF FN!(X)-X»(X-2 OR X-3 OR X-ft) 

OEF FWI<Y)«T-INW/10>MO 

P««"X.O' 

FOR :-| II t?i FOR J-1 TO 

FOR I»l TO l?l FOR J«l TO 

PRINT 'INSTRUCTIONS (T-X) 

INPUT At 

*I«LEFT8(AI,1) 

IF *»■■»- THEN 2000 

IF «<>•■■ THEN 30 

X-Oj T-0 

K4)-0i S(3)»0i 3(4>i* 

t(l)>-1t SI2t«-li 3(3t»-l 

8(7l-1i 9I8)-U s(9)-l 

G08UB 1000 

PRINT "TOUR N0VE-; 

INPUT HI ,||2 

IF <l1"INT(m((IHIU12-IHTIH2IAJIBR!>OANBHKI0AN0»12)0AHDH2<1OTHEN|I0 
PRINT "UlEfftL CO-ORDINATES." 

0OT0 120 

IF SCHO-1 THEN 130 

PRINT -IUE6AL ROVE.": 80TO 120 

IF SIH2J-1 THEN 144 

IF N2-K10-3 AND 3IH2IO-1 THEN 140 
IF 

THEN 



IF 
IF 
IF 
&<H1> 

Sf«2> 
SBSUB 
IF St 
FOR I 



N2>m THEN 140 
H2-HI— 3 AND IS<«2>00) 
H2-HK-4 THEN 140 
HW AND H2«3 THEM 140 



140 



<l 

100O 
)»1 OR 
I TO 9 



S(2)-1 Off S(3)-1 THEN 820 



IF SU)—1 THEN 230 

NEXT I 

SOTO 820 

FOR 1-1 TO 9 

IF S(I)0-l THEN 330 

IF S<I»3»ft THEN 350 

IF FNRU)«I THEN 320 

IF I>3 THEN 300 

IF S(3)"1 THEN 331 

SOTO 330 

IF S(8)-1 THEN 330 

8010 330 

IF 8(I»2»-l ot 3(I>4)-| THEN 330 
NEXT I 

GOTO 820 

FOR III TO I? 

FOR J- I TO 3 

FOR K-3 TO I STEP -| 

T(IJ-1)»3*K)"»U,(J-1|«3M-I!) 

NEXT K 

NEXT J 

FOR J-1 TO * 

IF S<J)OI(I t j> THEN 440 

NEXT J 

R-0 

BOTO 340 
FOR J-1 TO f 

IF SCJIoriJ) THEN 310 

NEXT J 
8>l 

80 TO 340 
NEXT I 

RENEHIER THE TERMINATION OF THI8 

PRINT -ILLEML BOARD PATTERN. - 

STOP 

X-I 

FOP I«l TO 4 

IF N(I,IK>0 THEN 400 
NEXT I 

PRINT -I RE8I8N.- 
8010 820 



LOOP IS IMPOSSIBLE 



680 r>INT(8MR(!»4«t> 
401 IF HCX,Y>«0 THEN 400 
410 IF ROt THEN 430 
420 PRINT "I HOVE FROM 

422 S(INT(N(X,T)/IO))-0 

423 S(FNN(H(X,T)))>-| 

424 GOTO 440 

430 PRINT -I ROVE FROH ";STRI(FNR1INTC«OI,TJ/10)»:' 

431 PRINT SIRI(FNfi(FNH(H(X,TMJ) 

432 S(FNR<IRHH(X,n/10m»0 

433 S(FNR(FNH(HIX I »)»))«-1 

440 60SUB 1000 

441 IF 3<7>— T OR 3(81-1 Oft Jlf)— | THEN 
430 FOR I-l TO 9 
440 IF S(I)«| THEN 4f0 
470 NEXT I 

80 TO 87* 
FOR i>| TO » 



TO 



870 



AM 
7*0 
71* 
72* 

730 
740 
750 
74* 
770 
780 
7*0 
800 
810 
820 
830 
840 
850 
851 



170 



890 

900 

905 

910 

915 

920 

925 

930 

935 

940 

943 

950 

935 

940 

965 

970 

1*00 

1010 

1020 

I03O 

I04O 

r»50 

1040 

I07O 

1080 

2400 

2010 

2020 

2030 

2040 

2050 

2440 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2! 60 

217* 

2180 

21*0 

2200 

2210 

2220 

99¥? 



IF 9(II01 TNEN 790 

IF SU-3J-0 THEN 120 

IF FHRU1M THEN 780 

IF I<7 THEN 740 

IF $(5K-1 THEN 120 

8BTB 790 

IF S(2)--l THEN 120 

60TO 790 

IF SU-21—1 OR 5(I-4) = -l IH£H 120 

NEXT I 

PRINT -YOU CAN'T HOVE, SO •: 
SOTO 870 

PRINT 'TOO UIN." 

HU.n-O 

LU*1 

PRINT 

PRINT 

BO 10 100 

PRINT -I «N.' 

Uaftjtl 

BOTO 

BATA 

BATA 

BATA 



I have uon-;n;-and tou-;l;-oui 0F";L*u;-fl«i£S.- 



DATA 
BATA 
BATA 

ilATA 
BATA 



DATA 
BAIA 
BATA 
BATA 

DATA 



630 

-'»-'. -1, 1,0,0,0, 1,1, -1,-1 ,-1,0,1, 0,1,0,1 

-1,0,-1,-1,1,0,0,0,1,0,-1,-1,1,-1,0,0,0,1 

-'.«.-«. I. f, 0,0,1, 0,-1,-1,0,1,0,1,0, 0,1 

-1.0.-1,-1,0,1,0,1,0,0,-1,-1,0,1,0,0,0,1 
«»-'.-' .0.1, 0,1, 0,0,-1, 0,-l,l,O f *,0,0,1 
0,0, -I, -1,-1, 1,1,0,1,-1, 0,0, 1,1, 1,0,0,0 

Jr-1.0,-1, I, l,0,*,0, -1,0,0,-1,-1, 1,0,0,0 
MT> 0,0,-1, -l,l,0,0,O t O,*,-l,0,l, -1,0,0,0,0 
-1,0,0,-1,1,0,0,0,* 

24,25,34,0,14,13,34,0,13,35,34,47,36,38,59,0 
15,33,34,0,24,25,24,0,26,37,50,0 

24,35,0, 0,47,48,*,0,33,34,0,0,33. 34, 0,0 

34, 0,0,0,47,58,0,0,13,0, 0,0 

^"'".•.O^.SB, 0,0,33, 34,47,0,28, SB, 0,0,13,47,0,0 

FOR I«1 TO 3 
FOR J-1 TO 3 

PRINT IM(10);HIB*(P|,8«I-l»»3*J>t2,1); 

St A I J 

mm 

next i 

print 

return 

prinii mm "this proorah plats the game of hexapauh - 

PRINT -HEMMIW IB PLAYED WITH CHESS PAWNS ON A J IT 3 

lllVmiKi'l/*" 1 * * S IM CHES * ' M£ SP * CE F «»*M TO- 
-?LtnL U J P ?nX E 0fi 0M SP * C£ "RfcJttl *HD HAGONALLY TO" 
"CAPTURE AN OPPOSING HAN. Oil THE BOARD, TOUR PAUN8" 

"ARE '0', THE COHPUTER'S PAUNS Ml 'X% AND EMPTY • 

AIE '.', TO CHTH A HOVt, TYPE THE MLmiEK Of- 

FOLLOUEO |Y THE NUMBER" 



PIUMT 

m*T 

PRINT 
PRINT 
P*I*T 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRUT 



"SQUARES 

"THE 5NJARE TOU ARE H0VIN8 FROH, 
"OF THE SQUARE YOU UILL HOVE TO* 
"SEPARATED IT A CONM.'i PRINT 
-THE COHPUTER STARTS A SERIES OF 
"IT HAS NO STRATEGY AT FIRST AHI 
■HOUEYER, IT LEARNS FRON EACH BARE* 
•BORE AMI MORE HfFKULT. ALSO, TO 



HOI BE 

PLRYIN4 



PRINT "INITIAL ABVANTAflE, YOU UILL 
PRINT "OAHE RUT MU5T LEARN THIS IY 
PRINT: PRINT -THE NURIERING OF THE 
PRIHT TAI(10>J"123-I PRINT TA8(I0>:*456- 
PRINTi PRINT "FOR EXAHPLE, TO HOVE TOUR i 
PRIHT "YOU VOUL* TYPE t,i IN RESPONSE TO 



THE HUftKRS NUST BE" 

3AHES KN0UIN6 ONLY UHEN' 
iUST HOVES RANIOHLT.- 
THUS, IT BECOH£S" 
HELP OFFSET YOUR" 



PRINT -'YOUR HOVE 
PRINT "80 FIRST -*L 
GOTO 1(0 
END 



?'• SINCE 
PRINT 



TOLI HOU TO UIN THE 4 * 
10." 

IS AS FOLLOWS i" 
PRINT TAIM0);"7S9" 
IGHTAOST PAUH FORUAR0/ 
THE OyESTION" 



I'H A GOOD SPORT t YCU'U AtyflYS" 
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This game Is an adaptation of the 
game GUESS; however, instead of just 
guessing a number between 1 and 100, 
in this game you win dollars when you 
guess the number. The directions, in 
the words of the author of the game, are 
as follows: 

1. There is an amount of money, 
between one and one hundred 
dollars, in the "HI-LO" jackpot. 

2. You will have six chances in which to 
guess the amount of money in the 
jackpot. 

3. After each guess, the computer will 
tell whether the guess was too high 

or too low. 

4. If the correct amount of money is not 

guessed after six chances, the com- 
puter will print the amount in the 
jackpot. 

5. If the correct amount of money is 
guessed within the six chance limit, 
the computer will register this 
amount. 

6. After each sequence of guesses, you 
have the choice of playing again or 
ending the program. If a new game is 
played, a new amount.of money will 
constitute the jackpot. 

7. If you win more than once, then your 
earnings are totalled. 

The author is Dean Altman of Fort 
Worth, Texas. 




10 PRINT TAB(34);"H1 L0" 

20 PRINT TAB(13);"CREAI1VE CONFUTING; 

30 PPINT:PRINTiP*INT 

100 PRINT 

110 PRINT 

120 PRIM 

130 PRINT 

140 PRINT 

150 PRINT 

160 ff-0 

170 l«0:PRII1T 

1B0 T<IHT(100*RNO<1)> 



MQRRIST0VN, HEU JERSEY' 



'THIS IS THE 0*HE OF HI LO.-iPSINI 

-T0U KILL HAVE A TRIES TO QUESS THE ANOUHI Of HONEY IN THE- 
"Hl 10 JACKPOT, UHICH IS BETUECN I AND 100 BOLLARS. IF TOIT 
■BUESS THE AH0UNT, T0U MIR ALL THE HONEY IN THE JACKPOT !" 
•THE* TBI 6ET ANOTHER CHANCE TO WIN NORE H0NET. HOWEVER," 
■IF TON »0 NOT 6UE9S THE AK0UNT, THE BME EHBS."iPRlNT 



200 PRINT 
210 INPUT 
Hl»l 

IF A«T 
IF A>Y 

230 PRINT 

2?g PRINT 'TOUR 



TOUR GUES3-; 



220 
230 
2« 



THEN 300 

THEN 270 

TOUR BUESS IS TOO LOU'tOOTO 2S0 
6UESS IS TOO HIGH" 
2B0 POINT! IF B<6 THEN 200 
210 PRINT "YOU BLEW IT. ..TOO BAD. ..THE MJBBER UAS";T 

2»3 R-Oi60T0 330 

30C PRINI -80T ITIIIIItllll TOU UIN-;T;-»0UARS.- 



310 R'RtT 



-MUMS. 



320 PRINT -TOUR TOTAL UINRIHB9 ARE Wtr;n; 
330 PlINTlPRIRT 'PUT AGAIN (YES 01 HD'j 
340 INPUT ABlIF A4«"YES- 1NEH 170 

310 rRlNTlPPINI -3Q LDNB. HOPE TOU ENJ0TEI YQUBSELF1 1 1- 

310 ENB 



HI L0 
CREATIVE COBPUTIHB HQRfllSTOUH, NEU JERSEf 

THIS IS THE BANE OF HI L0. 

YOU UILL HAVE 4 TRIES TO BUESS THE MOUNT Of NONET IK THE 
HI LQ JACKPOT, UHICH IS BETWEEN 1 ANB 100 DOLLARS. IF TOU 
GUESS THE ANOUHT, TOU UIN ALL THE NONET (N THE JACKPOT! 
THEN TOU 6EI AN0IHER CHANCE IS UIN MORE HONEY. HGUEVER, 
IF TOU 10 NOT BUESS THE AI0UNT, THE 0AJIE ENDS. 

YOUR 6UESST 30 

YOUR BUESS IS 100 HIOH 

YOUR 6UESST 23 

YOUR BUESS IS 100 HIBH 

TOUR 6UESST 12 

YOUR BUESS IS TOO HIOH 

TOUR BUESS? 6 

YBUR BUESS IS TOO HIBH 

YOUR 6U£95» 3 

YOUR BUESS IS 100 LOU 

YBUR 6UESST 4 

GOT illlllll!!!! TDU UIN 4 DOLLARS. 

YOUR TOTAL UINNIHBS ARE NOU 4 I0LLADS. 

PLAT ASAIN <Y£8 OR WIT YES 

YOUR 6UESST 30 

YOUR BUESS IS TOO LOU 

YOUR BUESST 73 

YOUR BUESS IS TOO HIOH 

YOUR OUESST 62 

YOUR QUESS IS TOO HIOH 



YOUR 6UESST 37 
601 iTimmin 
YOUR TOTAL HUM] 



TOU UIN 37 DOLLARS. 

ARE MOU 61 B0LLAR&. 



PLAY AGAIN (YES OR NO)? NO 

SI LONG, HOPE YOU ENJOYED Y0URSELF1 
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This is a computerized version of an old 

European solitaire game of logic. The 

game starts with a pegboard shaped like a 

cross having pegs in every hole but the 

center. The object is to remove all 32 pegs, 

or as many as possible, by jumping into an 

empty hole, then removing the jumped 
peg. 

There are several different winning 
strategies for playing and. of course, each 
strategy can be played eight different ways 
on the board. Can you find a consistent 
winner? 

Charles Lund wrote this game while at 
The American School in The Hague, 
Netherlands. 



CREATIVE COHPUTIW KQRRISIOUM, NEW JERSEY 
HUE IS THE BOARD: 







! 
13 


1 

'4 


1 

13 










1 
22 


1 
23 


1 

24 






i 

2t 


f 
30 


1 

31 


1 
32 


1 
33 


i 

34 


1 

33 


1 
38 


I 

3? 


1 
4B 


! 
41 


* 
42 


1 

43 


1 

44 


1 

47 


1 

46 


1 

4T 

1 
SB 

1 

6? 


1 
SB 

1 

59 

1 
68 


| 

51 

1 

40 

I 
if 


I 

32 


1 
33 


TO SAUE TYPIHB TIKE, C 
HILL BE USED IURINS PLAY 

fllMlCM. OK. LET'S BEGI 


OKPRESSEJ 
. REFER 
1. 



10 THE ABBVE QHE FOR PEG 



I < 



I I I I I I 



I f I 

I 1 ! 



I I I 
Mill 
I I I 
I I I 



flQVE UHICH PIECET 39 
TO UHERET 41 



I ! 
I I 

I 



I I 

I I 

I ! 

I I 

I I 

I 

I I 



I 

! 

I I 
I ! 
I I 
* 
I 



MIC UHICH PIECET 32 
TO UHERET 30 



I f 
I ! 



I t 
I I 
I I 



I I 

I 
I I 



I 
I 

I I 1 
I I 1 
1 < 1 



MOVE UHICH PIECET 43 
TO UHERET 41 



I I ! 



I I I 
I I I 

1 I 



1 I 

I 

I I 



I I I 
I t I 

I 

I 



HOVE UHICH PIECET 34 
TO UHEftET 32 



I I I 
I I I 
! ! I I 



I I 

I ( 



I I 

t I I 

I I 

I I I 



flOUE UHICH PIECET 31 
TO UHERET 33 

I I I 

I 1 I 

I ! I < 

i r i r I o i 

i i i i i i i 

I ! 
I I I 

HSUE UHICH PIECE? 41 

TO UHERET 43 

ILLEGAL ftOVC, TRY MAIN. 



HOVE UHICH PIECET 40 
Tl IMCftET 42 



I I I 

I I I 

10 

I 

I I I I I I 

1 O I 

1 1 I 



I I 
I I 



HIVE UHICH PIECET 1* 

ID UHERET 32 



t t 

I t 
I I 



! 

I O 

I 



I I 

1 

I 1 



1 
I 

I O I 
I O I 

I I I 
I 

I 



HOVE WHICH PIECET 13 
TO UHERET 31 



I l 
I I 
I I 







1 t 



I I 



I 
I 

I 
I 

I I 



I I 

I I I 



HOW WHICH PIECET 32 
TB UHE8ET 34 

Q I 

I 

1 I I I I I 
1 I I I 

I I I I I I I 

1 I 

I I I 

HOVE UHICH PIECET 33 
TO UHERET 33 

a i 

I 

I I I ! 
I I I • | 

I I III II 

1 I 

1 I I 

HOVE UHICH PIECET 30 
TO UHERET 32 



I 
I I 
I I 



a a i 
o o 
o t 

a 
t i 
i o 

1 l i 



l 

i o 



i i 

i 



I 

I 
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HOVE UHICH PIECE? 50 
TO UHERE? 40 
ILCEflAL HOVE, TRY AGAIN. 
ftOVE UHICH PIECE! 58 
TO UKEJtET 40 



! 

10 10 

f LJ ' c 

1 1 1 I I 1 

6 1 

1 1 I 

HOVE UHICH PIECE? 51 
TO UHERET 49 






1 


! 1 1 


1 1 1 


I 1 > 1 1 


1 


II 1 


HQYE UHICH PlECCf « 


TO UHE8ET 50 





1 


1 1 


t 1 1 


i a o i o i i 


1 


1 I 1 



HOVE UHICH PIECE? » 
TO UHEREt SI 



1 
10 10 
I t I 
10 1 10 

I 

1 ! I 

HOVE UHICH PIECE? 42 
TO WHERE? 24 



I 1 

1 It 

I I 1 

10 0! 100 

I 

1 I I 

HOVE UHICH PIECE? 60 
TO WERE? 42 



1 1 

10 

! 1 ! 

! 00 I OOO 





THE OAH£ IS OVER* 

YOU HAO It PIECES REMAINING, 

PiAY A6AII (YES OR HO)? NO 

SO LOHO FOR HOLL 



PRINT T«(33>r*M-<r 
PRIHT TASUSJJ'TREATIVE 
PRINTiPRINTtPRINT 
DIH K?0>,T(9 t 9) 
PRIHT 'HERE IS THE 
I 



COHPUTIIO HORRISTOUH, HEU JERSEY" 



PRIHT 



PRIHT - 
PRIHT ' 
PRIHT ■ 
PRIHT ' 

PRIHT 

PRIHT 

PRIHT 

PRIHT 

PRIHT 

PRIHT 

PRIHT 

PRIHT 

PRIHT 

PRIHT 

PRIHT 

PRIHT 

PRIHT 

REH ••• 

FOR R*1 

FOR C-I 



9 

10 
11 
12 
13 
14 
IS 
14 

i? 

18 
1? 
2D 
22 
24 
20 
2? 
30 

31 

32 

35 

34 

40 

42 

30 

60 

65 

70 

U 

71 

79 

01 

83 

84 

100 

110 



13 

I 

22 



I 
14 

I 
23 



15*1 PRIHT 
I* 

24**1 



•1 
■2? 
■I 
■30 

"47 



! 

30 

I 

St 

I 



31 
I 

40 
I 

4? 
1 
58 



I 

32 

I 

41 

1 

50 

I 

I 



3J 
t 

42 
I 

51 

r 

40" 
I" 



PRINT 
1 

34 
I 

43 
I 
32 

i PRINT 



r 

35-1 

I* 
44'i 

r 

53"! 



PRINT 

PRIHT 



PfUNT 



67 68 49"l PHIHT 
TO SAVE TYPIHG TIHE f A COHPRESSEO YERSIOH OF THE OWE 
HILL IE USED DURIN8 PIAY. REFER TO THE AROVE OWE FOR 
HUHBER8* OK, LET'S OEOIN," 

SET UP BOARD 

TO ? 

TO 9 



BOARD 1 
PEO" 



IF <*-4)*<t-S»*<R-6>*0 THEN 40 

IF tCHM(C-5>»<C-4>=0 THEN 40 

I(R,C>*-5 

GOTO 30 

IF (R-1)MC-1)*<K-9>*<C-?>-0 THEH 35 

T(R,C>«3 

NEXT C 

HE XT R 

T<5,3>-0t 80SUI 500 

RErt M* INPUT HOVE AHD CHECK OH LEGALITY 

FOR JJ= 1 TO 33 

REAB H 

OATH 13,14,15,22,23,24,29,30,31, 32,33,34,35,30.39, 40,41 

DATA 42,43,44,47, 48,41,50,51, 52,53,38,59,60,67,68,49 

8(H)— 7i HEXT H 

11*118-3 

WOT "HOVE WHICH PIECE*;* 
IF Rm«-7 THEH 140 



120 PRIHT MLLC8AL HOVE, TRY AGAIN.. .«t GOTO 100 



140 

150 

153 

156 

140 

170 

180 

1*0 

200 

210 

220 

500 

510 

320 

323 

330 

3*0 

330 

340 

370 

580 

590 
600 
610 

615 

620 

630 

640 

1000 

1003 

1020 

1030 

1040 

1045 

1050 

1040 

1070 

1060 

1065 

mo 

1120 

1130 

1133 

1140 

1160 

1170 

1175 

1180 

1200 

1210 

1220 

1223 

1230 

1240 

1500 

1505 

1310 

1320 

1330 

1535 

1540 

1343 

1350 

1560 

1361 

1564 

1365 

1347 

1566 

1369 

1570 

1371 

1372 

1573 

1374 

1575 

1560 

1590 

1600 

1403 

1410 

1411 

1412 

1413 

1413 

1417 

1418 

1420 

1430 

2000 

2*10 



INPUT "TO UHERE*;r 

IF OCf>>0 THEH 120 

IF HP)— 7 THEH 120 

IF Z-P THEH 100 

IF <U4P>/2>«INTKZ+P)/2) THEH 180 

GOTO 120 

IF <A»Sa-P>-2)*<ARS(Z-P)-18K>0 THEH 120 

GOSUI 1000 

GOSUI 500 

BOSUI 1500 

GOTO 100 

REH ■*» PRIHT 80ARB 

FOR Jt-1 TO 9 

FOR Y*l TO 9 

IF U-1)*(X-9»*<Y-i)#(Y-91-0 THEN 550 

IF (X-4>*(X-3>*CX-4>*» THEH 370 

IF <Y*4)4(Y-5>*»-4!-0 THEH 370 

REH 

68TO 410 

IF T(X,Y><>3 THEN 400 

PRIHT TMIY*2);*r; 

80TQ 610 

PRIHT TAB<Y*2>;*0"; 

REH 

HEXT 1 

PRIHT 

HEXT X 

RETURN 

} REH *** UPIATE 80ARD 

C-1» FOR X*1 TO 9 

FOR Y«1 TO 9 

IF COZ THEH 1220 

IF C+2<>f THEH 1080 

IF T(X,Y*1)*0 THEN 120 

T(X*Yt2>*J 

Ta,Y*1*«0l 8<C4l>*-3 

68T0 1200 

IF C+180P THEH 1130 

IF T(X+1,T)=0 THEH 120 

I(XtZ,IXt YU+I»Y)-*t KC+9J-3 

SOTO 1200 

IF C-20P THEH 1170 

IF TIX,Y-1)=0 THEH 120 

TU,Y-2>=3t T(X,r-1)"0l I(C-1>«-3 

60TO 1200 

IF C-iBOP THEH 1220 

IF Y<K-l,Y>«0 THEH 120 

T<X-2,Y)-5i TlK-t.Yl-Ol MC-91— 3 

8<Z)"-3t B(P)--7 



T1X,Y)-0l GOTO 1240 

C-C+l 

HEXT Y 

HEXT X 

RETURH 

REH*** CHECK IF tAAE 18 OVER 

f»0 

FOR R"2 TO 8 

FOR C*2 TO 8 

IF T(R,CK>5 THEH 1580 
F«f*1 

FOR A*R-1 TO R+1 -> 

T=0 

FOR B=C-1 TO C*1 

T=T*T(A,8) 

HEXT B 

IF TO10 THEH 1567 

IF T1A,CK>0 THEH 1630 

HEXT A 

FOR X*C-1 TO C*1 

T»0 

FOR T-R-1 TO R+l 

I*T*T<Y,X) 

NEXT Y 

IF TO10 THEN 1573 

IF T<R,X)<>0 ™ E « *«* 

NEXT X 

NEXT C 

NEXT ft 

REH *** 8AHE 15 OVER 

PRINT 'THE 6AHE 18 QKR.' 

PRIHT -TOO ha8*;f; ,, pieces REHAIHIHQ. 

IF FOI THEH 1613 

PRINT "IRAVOI YOU HABC A 

PRIHT "SAVE THIS PAPER AS 

PRIHT: INPUT "PLAY A8A1H (YES OR NO)";A$ 

IF A4--N0" THEH 2000 

RESTORE! SOTO 28 

STOP 

RETURN 

PRINTi PRIHT -80 L0N6 FDR NOU.'i PRIHT 

END 



PERFECT SCORE r 
A RECORD OF YOUR 



HCCOftPLlSHHENTf 
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This is a simulation of a ice hockey 
game. The computer, in this case, 
moderates and referees the play 
between two human opponents. Of 
course, one person could play both 
sides. 

The program asks for team names, 
player names, and even the name of the 
referee. Four types of shot are per- 
mitted and a shot may be aimed at one 
of four areas. You are also asked about 
passing. The game is very comprehen- 
sive with lots of action, face offs. 
blocks, passes, 4 on 2 situations, and 
so on. Unfortunately there are no 
penalties. 

The original author is Robert 
Puopolo: modifications by Steve North 
of Creative Computing. 



HOCKEY 
CREATIVE C0NPUTIM6 HQRRISTOUN, HEU JERSEY 



UDULB YOU LIKE THE INSTRUCT IONST YES 



THIS IS A SIMULATED HOCKEY SANE. 

QUESTION RESPONSE 

PASS TYPE IN THE HUNGER OF PASSES YOU UOULI 

LIKE TO HAKE, FROM TO 3. 
8H0T TYPE THE NUMBER CORRESPONDING TO THE SHOT 

TOO VAN! TO RAKE. ENIEftl 

1 FOR A SLAPSHOT 

2 FOR A UBISTSHOI 

3 FOR A BACKHAND 

4 FOR A SWAP SHOT 

AREA TYPE IN THE NUMBER CORRESPONDING TO 

THE AREA YOU ARC MM Nil AT. ENTERi 

1 FOR UPPER LEFT HANI CORNER 

2 FOR UPPER RIGHT HARD CORNER 

3 FOR LOUEff LEFT HAND CORNER 
* FOR LOUEt RIGHT HAND CORNER 

AT THE START Of THE 6AHE, YOU UILL BE ASKED FOR THE NAMES 

OF YOUR PLATERS. THEY ARE ENTERED IN THE QROERl 

LEFT VINE, CENTER, RIGHT UING, LEFT DEFENSE, 

RIGHT DEFENSE, GOALKEEPER. ANT OTHER INPUT RE0UIREB UILL 

HAVE EXPLANATORY INSTRUCTIONS. 

ENTER THE TUO TEANST BIG GUYS, LITTLE GUYS 

ENTER THE NHHIER OF MINUTES IN A SANE? IS 

WOULD THE BIO GUYS COACH ENTER HIS TEAH 



PLAYER 


1 T IBtt 


PLATE* 


2 ? IEC 


PLATE* 


3 T SURR0UBH3 


PLAYER 


4 t HQNETUEU 


PLATER 5 T DATA GENERAL 


PLATER * T AHflAtiL 


UOULD 


ME LITRE GUTS Ci 


PLATER 


1 ? HITS 


PLATER 


2 t IHSAI 


PLATER 


3 T SU1PC 


PLATER 


i t CROftEfltO 


PLAYER 


5 t P7C0 


PLATER 


6 ? TDL 



EOACH BO THE SAKE 



INPUT THE REFEREE FOR THIS QfiRE? FEDERAL GUT 



IIS BUYS STARTING LINEUP 
I in 
EEC 

BURROUGHS 
HONEYIIELl 
IATA GENERAL 
AIDAHL 

LITTLE GUYS STARTING LINEUP 
HITS 
INSAI 
SUTPC 
CROMERCO 
PICO 
TBL 

WE'RE REAIY FOR TBHIGHTS OPENING FACE-OFF 
FEOERAL 6VT HILL MOP THE POCK BETUEEN DEC AND INS 
BI6 6UYS HAS CONTROL OF THE PUCK 
PASS* 2 

BURROUGHS GIVES TO A STREAKING HONEYUELL 
IBH CORES DOUN ON PICO AMI CRORErtCO 
SHOTT 1 

UN LET'S A 116 SLAP SHOT GOI! 

AREA? 4 

UHAT A SPECTACULAR OLOVE SAVE BY TIL 

ANB TDL GOLFS IT INTO THE CROUD 
ANB UE'RE READY FOR THE FACE-OFF 
LITTLE GUYS HAS CONTROL 
PASST 3 
A ' 3 ON 2 ' UITH A ' TRAILER ' 
HITS GIVES TO PICO WHO SHUFFLES II OFF TO 

INSAI UNO FIRES A UING TO UING PASS TO 

9UIPC AS HE CUTS IN ALONE 1 1 

SHOTT 2 

SUTPC RIPS A WIST SHOT OFF 

AREA? 3 

OLOVE SAVE AMDAHL AND HE HANGS ON 

AMI UE'RE READY FOB THE FACE-OFF 

DIG BUYS MAS CONTROL OF THE PUCK 

PASS! I 

HONEYUELL LEADS IATA GENERAL UITH A PERFECT PASS 
DATA GENERAL CUITIN6 INI 1 1 
SHOTT 2 

flATA GENERAL RIPS A URIST SHOT OFF 

AREA? 1 

WHISTLES INE OVER THE HEAD Of TDL 

LITTLE GUIS HAS CONTROL 

PASST 2 

IT'S A ' 1 ON 2 ' 

ONLY HONEYUELL AMI DATA GENERAL ARE BACK 

HITS GIVES OFF TO CR0RERC8 

CROHERCO DROPS TO PTCO 

SHOTT 3 

PICO GETS A BACKHAND OFF 

AREA' 1 

SIATE SAVE BY AMDAHL 

ARDAHL UHACKS THE LOUSE PUCK INTO THE STANDS 

AID UE'RE READY FOR THE FACE-Off 

LITTLE GUTS HAS CONTROL 

PASST. S 

IT'S A ' 3 ON 2 ' 

ONLY HONEYWELL AMI DATA GENERAL ARE BACK 

IRSAI GIVES OFF TO PTCO 

PTCO DROPS TO NITS 

8HOTT 4 

MIIS SNAPS OFF A SNAP SHOT 

AREA* t 

SCORE LITTLE GUYS 

SCORE I LITHE GUYS: I DIG GUYS: 

GOAL SCORED BYt HITS ASSISTED DY: PTCO ANB INSAI 

AND UE'RE REAIY FOR THE FACE-Off 
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5 PRINT TAH331; "HOCKEY" 

a print tai(15>; m cr£ative computing kokristoun, tfcu xntv 

6 PRIH1 :PAINT:PRIIIT 

10 REH ROIERT FUOMLfl ALO. 1 HO KCCQUAN 6/?/73 HOCKEY 
LEI X=l 
^ftlMTsPltlllTsPKlHT 

PRIHT "UOULB TOU LIKE THE IKSTftlJCTlflK$-;;I«PUT M 



30 
40 

50 
33 
60 
63 

so 

?0 
Iflt 



PRINT 
IF C»=' 
If Ct*' 

WW ' 



HO 11 THCJI ?0 

Its - THEN 80 

ANSUER YES OR HOiriOOTC 30 
60TQ 1720 

Oln AI(7> t M<7>,Hl20)»T(3) ,11(51,12(5) t T3<5> 
PRIRT "ENTER THE IPO UAM-JiIAPUT A*m t III7) 



COACK EHCft HIS fEAH" 



103 PftlWT 

UO PftlttT "ENTER THE RUMER OF H1NUTES I* A 0«lE*;;INPUr M 

115 PRINT 

120 If T*<l THE* llliftlMT 

13: PRINT 'WOULD THE * Af(7> - 

135 PRINT 

140 FOR 1*1 TO 6:PRINr "PLATER* 

150 PRINT *UOULI THE " l»(7) " 

155 PRINT 

UO FOR 1*1 TO *:PRINT "PLATER"T;iI»1PUT 8»(T)lHEXT 

170 PRINT "INPUT THE REFEREE FOR THI5 OftHE"; : INPUT 

110 PRINTiPRINT TAinO>;AI(7l * STARTING LINEUP 11 

1*0 FOR T*1 TO iiPRlHT At(T):HEXT T 

200 PRIKTiPRINI TAinO>;«(7>" STARTING LlNELP- 



i;iINPUT 
COACH DO 



MttliMEXI 

THE SAH£- 



I :PRINT 



T:PRINT 
Itl 



210 FOR T"J 10 4iPtINT BMT):NEXT TrPRINT 

220 PRINT *UE'RE REAIY FOR TONIGHTS OPENING FACE-OFF" 

230 PRINT R$ " UlLL MOP THE PUCK BE7U£EN " A»(2> " AND " B$<2) 

240 FOR t-l TO T4iIF L»1 INC* 240 

250 PRINT "AND WE'RE REAM FOR THE FACE-OFF- 

2(0 C*INI<2*RND(Xn*1tON C GOTO 270,280 

270 PRINT At<7> - HAS CONTROL OF THE PUWiOOTO 290 

210 PRINT 84(71 * HAS CONTROL" 

290 PRINT "PASS*;iINPUI PiFOR «*1 TO 3:H(N>*0:WEXT H 

300 IF P<0 THEN 290 

303 IF P>3 THEN 290 

310 FOR J- l TO (P*2> 

320 HtJ>«»H50MflU» + 1 

330 NEXT JiIF HO-!l*H(J-2) THEN 310 

331 IF P*2<3 THEM 330 

335 IF H<J-1XH<J-31 THEN 311 

3*0 IF H(J-2)-H<J-3> THEH 310 

330 IF P=0 THEN 360 

355 60 TO 490 

340 INPUT "SHOT -j3tIF S<1 THEN 360 

345 IF S>l THEN 360 

370 ON C GOTO 360,480 

380 PRINT A*(H(J-1));:G-HU-1);G1*G:G2 = G 

390 ON 8 SOTO 400,420,440,460 

400 PRINT " LET'S A BOOKER 60 FROM THE RE* LINEN* 

410 Z"10;60T0 890 

420 PRINT - FLIPS A URISTSHQT DOUN THE ICE" 

440 PRINT "8ACKHANBS ONE IN ON THE GOALTENDER" 

450 Z=23;6OT0 890 

440 PRINT ■ SNAPS A LHB FLIP SHOT" 

470 2=17:6OT0 890 

460 PRINT 8»<HU-1));iG1-0iG2-OiS=H<J-1>;GQTQ 390 

490 OH C SOTO 500,440 

500 ON P 6OT0 510,540,570 

510 PRINT A»<H<J-2>) - LEABS - A*<HtJ-1>> " WITH A PERFECT PASS" 

520 PRINT AKH(J-D) " CUTTING INUI* 

530 0<H<J-U:ei-HU-2>:G2*0iZ1-3l80TO 770 

540 PRINT «<HU-2>> " GIVES TO A STREAKING * Ai(H(J-1)> 

550 PRINT AMHIJ-3)) * CODES BQUN ON ' B*<3) " AND " BtM> 

540 G<HU-J>tB1"HU-U:G2=HU-2);21=2;6QIQ 770 

570 PRINT -OH HY GOD 1 1 A ' 4 ON 2 ' SITUATION 11 

580 PRINT AHH(J-J)) - CEABS " A*(H(J-2>> 

590 PRINT M(HU-2)> " IS UHEEELING THROUGH CENTER" 

600 PRINT AKHU-2)) ■ GIVES AND GOES WITH * AKHU-m 

410 PRINT "PRETTY PASSIN6" 

620 PRINT A$<H(J-I)) - DROPS IT TO " A$<MJ-41) 

630 6"H(J-4>:01=J(J-1)iG2*H<J-2)*Z1"1iOOTO 770 

640 ON P GOTO 650,670,720 

630 PRINT BKKU-m * HITS ■ B«(H1J-2)> " FLYING OOUN THE LEFTSIDE" 

640 6=H(J-2>;01»H(J-niG2=0:Zl-3:GOTO 770 

470 PRINT -IT'S A ' 3 ON 2 '■ 

6B0 PRINT "ONLY * A*<4> v AND * At<5) " ARE BACK - 

490 PRINT Bi(H(J-2>> * GIVES OFF TO " BtHHJ-lt) 

700 PRINT Bi(H(J-1H * BROPS TO " DIIH<J-3)I 

710 G-H<J-3)i81-MU-1)i02-HU-2);*1=2;GOTQ 770 

720 PRIHT " A ' J QH 2 ' UITW A ' TRAILER '" 

730 PRINT B*(HCJ-4>) " GIVES TO " B$IKCJ-2)> * UHO SHUFFLES IT OFF TO" 

740 PRINT BKHU-IH " UHO FIRES A UIHG TO LUNG PASS TO " 

750 PRINT BI(M<J-3)I * AS HE CUTS IN ALONE II" 

740 G"HO3)t81»HU-i)i02-H(J-2)iZ1 = 1iG0T0 770 

770 PRINT "SHOT*; I INPUT SiIF S>4 THEN 770:IF S<1 THEN 770 

780 On C GOTO 790,000 

790 PRINT Af(R>;iGN S GOTO 800,820,840,660 

800 PRINT * LET'S A DIG SLAP SHOT GO!!" 

BIO Z*4:Z»Z*Z1iG0TO 890 

820 PRINT - RIPS A NRI3T SHOT OFF' 

630 Z>2iZ>Z*Z1lG0T0 890 

840 PRINT * GETS A BACKHAND OFF" 

850 Z-3i2»Z*Z1i60TQ 890 

840 PRINT « SNAPS OFF A SWAP SHOT" 

870 Z»2:Z«Z*Z1:80TO 890 

880 PRINT 3*<6>;:0H S GOTO 800,820,840*860 

890 PRINT "AREA';tINPUT A;IF A<1 THEH 890 

895 IF A>4 THEN 890 

900 ON C GOTO 910,920 

910 52=82*1 jQOIO 930 

920 S3-33H 

930 A1«INI<4*RN*<X>)*1*IF AOA1 THEN 1200 

940 H(20)>INTUOO*RND<X>)t1 

930 IF INT(H(20)/Z>-H(20)/2 THEN 1160 

960 ON C 60T0 970,980 

970 PRINT -GOAL ■ A*C?> iHl*)<H<*)M:GOIO 990 

980 PRINT "SCORE " BI(7*lHt8J»H(8H1 

990 FOR »1»| TO 25tPRINT CBR0(7);:NEXT 81 iPRIRT 

1000 PRINT "SCORE* "JiIF N(8)>H(9) THEN 1020 

1010 PRINT AI<7)":";HC9) t BB<7rr;H(S>:Q0TO 1030 

1020 PRINT B4(7)"j";H<8J,A*(7)"t" L ;Hl9) 

1030 IN C GOTO 1040,1100 

1040 PRINT 'GOAL SCORE! BYl • At(G>;UF QJ.O THEN 10/0 

1050 IF 82-0 THEN 1080 A 

I HO PRINT ■ ASSISTED BTi " AU6I) " AND * AK02M00T0 1090 



1-0 THEN 



1070 PRINT " UNASSISUD"i80TO 1O90 
1080 PRINT ■ ASSISTED BY; " AI(Ol> 

1090 T(GJ«T(6Jt1iTI(81)*T1<81)+l:THfi2i»THe2)t1:G0TO 1340 
1100 PRINT "GOAL SCORED BTi ■ BUS); 
1110 IF GI'O THEN 1130 
1113 IF G2»0 THEN 1140 

1120 PRUT " ASSISTED BTi " BKG1) - ANO ■ DHG2>;G0TO 1150 

1130 PRIHT " UNASSISTED"iGOTG 1150 

1140 PRINT " ASS1STEB BT: " BKGIMGOTO 1150 

1150 T2<G)*T2(G)*liT3<81)=T3<G1)*1iT3(G2>=T3CG2)»1iGQT0 1340 
1160 A2=INT<100#RNDa))tliIF INHA2/4J-A2/4 T«N 1170 
1165 GOTO 1200 

1170 OH C GOTO 1180.1190 

1180 PRINT "SAVE - MC6> * REBOUND" iGUTU 940 

1190 PRINT "SAVE ■ AIUJ • FOLLOU UP^tGOTO 940 

1200 S1=lNT(6*RN0CXJIf1 

1210 ON C GOTO 1220,1380 

1220 ON SI GOTO 1230,1260,1290,1300,1330,1350 

1230 PRINT "KICK SAVE AND A BEAUTY BY " B1<6> 

1240 PRINT "CLEARED OUT BY * 10(31 

1250 GOTO 260 

1260 PRINT "UHAT A SPECTACULAR GLOVE SAVE BT ■ B»(6) 
1270 PRINT -ANB " »1(6> - GOLFS IT INTO THE CROWD' 
1260 GOTO 1540 

1290 PRINT "SKATE SAVE ON A LOU STEALER BY " 8»<6)tG0TO 240 

1300 PRINT 'PAD SAVE BY " Rt(6) " OFF THE STICK * 

1310 PRINT "OF **t(DI " AMI " BtU) - COVERS l#* 

1320 GOTO 1340 

1330 PRINT "UHISTLES ONE OVER THE HEAD OF " 31161 

1340 GOTO 260 

1350 PRIHT Bt(6> " HAKES A FACE SAVE!! AND HE IS HURT" 

1360 PRINT "THE DEFEHSEHAN " Bf(5) " COVtRS UP FOR HIrt" 

1370 SOTO 1540 

1380 ON SI GOTO 1390 r 1410, 1440,1470, 1490. 1520 
1390 PRINT -STICK 8AV£ BY " ABU) 

1400 PRINT "AND CLEARED OUT 8T " Af(4);G0TQ 260 

1410 PRINT -OH NY GOD!! - 80(G) " RATTLES ONE OFF TH£ POST" 

1420 PRINT "TO THE RIGHT OF - AIU) ■ AND " AK4J * COVERS »; 

1430 PRINT "ON TNE LOOSE PUCKI'iGOTO 1540 

1440 PRINT "SKATE SAVE 8Y ■ AS<&) 

1450 PRINT ABU) " UHACKS THE LOOSE PUCK INTO THE STANDS' 

1460 GOTO 1540 

1470 PRINT "STICK 5AVE BT * At(6) ' ANO HE CLEARS IT OUT HIHSELf" 

1480 GOTO 260 

1490 PRINT "KICKED OUT BT * A1C6) 

1500 PRINT "AND IT REBOUNBS ALL THE UAT TO CENTER ICE" 

1510 GOTO 260 

1520 PRIHT "6L0VE SAVE - AB(4) " AND HE HANGS ON" 

1530 GOTO 1540 

1540 NEXT LtFOR N*1 TO 30:PRI*T £Httsr7);iN£XT N:PRINT "TAT'S THE SIREN" 

1550 PRINTiPRINT IA»C 13>; H F ENAJ. SCBREl* 

1560 IF H(G}>U<9) THEN 1580 

1570 PRINT A»<?>*t";Nt9),BK7r:";H<8)!60rO 1390 

1380 PRINT Bt(7)-|";H(8),A*m-:";H(?> 

1590 PRINTiPRINT TAB(10); 4 'SCORING SUMARY-iPRLNT 

1600 PRINT TAB(25);Af(7> 

1610 PRINT TAB(5>;»NANE";TAB(20>i"G0ALS";TM(35);"ASSISTS" 

1420 PRINT TAB(5);" *;TAB(20);" ";TAB(35); fc ■ 

1430 FOR 1*1 TO 5IPRIRT TABC5) ;A*(I); TAD(21 ):TlI):TADi36);T1 (I) 

U40 NEXT IiPRINT 

1450 PRINT TAI(23);BI(7> 

1460 PRINT TAB<5);-«A«";TAD(20*;"OO*LS-;TAB(35)i-ASSISTS" 

1670 FRINT TAIC5);- JTAK20I; ";TAB(35>;" " 

1680 FOR T-1 TO 5iPRIHT TAD(3);DI(TJ;TAB(21>;I2*D;TAB(36J JT31T) 
1490 NEXI TiPRINT 

1700 PRINT "SHOTS ON NET";PRINT A#(7>':";S2:PRINT M(7I p t";83 
1710 END 

1720 PRINT* PRINT "THIS IS A SIMULATED HOCKET GANE," 

1730 PRINT "8UESTI0N RESPONSE' 

1740 PRINT "PASS TYPE IN THE NUHBER Of PASSES YOU UOULD* 

1750 PRINT " LIKE TO HAKE, FROfl TO 3." 

1740 PRINT "SHOT TYPE THE NUHBER CORRESPONDING TO THE SHOT* 

1770 PRINT " YOU UANT TO NAKE. ENTER!" 

17B0 PRINT " 1 FOR A SLAPSHQT" 

1790 PRINT ■ 2 FOR A URISISHOf" 

1800 PRINT " 3 FOR A BACKHAND" 

1810 PRINT " 4 FOR A SNAP SHOT" 

1820 PRINT "AREA TYPE IN THE NUMBER CORRESPONDING TO" 

1830 PRINT " THE AREA YOU ARE AMINO AT. ENTER*" 

1840 PRINT " 1 FOR UPPER LEFT HAND CORNER" 

1850 PRINT " 2 FOR UPPER RI6HT HAND CORNER" 

1860 PRINT * 3 FOR LOUER LEFT HAND CORNER" 

1870 PRINT " 4 FOR LOUER RIGHT HAND CORNER 4 * 

1880 PRINT 

1890 PRINT "AT THE START OF THE GANC, YOU UlLL BE ASKED FOR THE MAHES- 

190O PRIHT "OF YOUR PLAYERS. THEY ARE ENTERED IN THE GftDE*; " 

1910 PRIHT "LEFT U1NG, CENTER, RIGHT DING, LEFT DEFENSE, - 

1920 PRINT "RIGHT DEFENSE; GOALKEEPER. ANY OTHER INPUT REQUIRED DILL" 

1930 PRINT 'HAVE EXPLANATORY INSTRUCTIONS." 

1940 GOTO 90 

1950 EftB 



90 




OH tje*... 
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This program simulates a one-mile 
horse race for three-year old 
thoroughbreds. Up to ten people may 
place bets on the race up to $10,000 
each. However, you may only bet to 
win. You place your bet by inputting 
the number of the horse, a comma, and 
the amount of your bet. The computer 
then shows the position of the horses at 
seven points around the track and at 
the finish. Payoffs and winnings are 
shown at the end. 

The program was written by Laurie 
Chevalier while a student at South 
Portland High School. 







HORSERACE 
CREATIVE COUNTING N0RRI9T0HN, HEU JERSEY 



XMXSIftRTXm 



XXXXSTARTXXXX 



UELCOKE TO SOUTH PORTLAND HIGH RACETRACK 

...flVHEl IT LAUfilE CHEVALIER 
BO TOII UAMT BISECTIONS? yes 

UP TO 10 Ml PLAT. A TABLE OF ODDS UIU BE PRIME*. TOO 
MAT BET ANT « AMOUNT UMBER IOB0OO OH ONE MOUSE. 
DURING THE RACE, A HBRSE UILL IE SHOWN IT ITS 
NUMBER. THE HORSES RACE POUM THE PAPEt) 

HM MUX BANT TO BET* 1 
UHEM T APPEARS.7YPE NAflE 
t JIM 



3 4 6 

7 

t S 2 



HORSE 



miliER 



QIDB 



1 

4 

* 
1 

3 



JOE INI I 


4.44444 fl 




L.B.J. 2 


i.6666? it 


. 


HK.UA5HBURM J 


20 if 




MISS KAREN 4 


40 il 




JOLLY 5 


4 tl 




HORSE t 


40 H 




JELLT 10 NOT ? 


40 il 




MIBNIGHT 8 


4 tl 




PLACE TOUR BETS.. .HORSE 1 THEN AMOUNT 




XXXXFIH1SHXXXX 


JIIIT 2,3000 






12 3 4 5 6 7 8 




--■™ — *b,^ flB 


XXXXSTARTXXXX 




XXXXSTARUXXX 


4 4 






8 7 2 3 







mxFiriiSHmx 



XXXXSTARTXXXX 



5 4 



* 7 

J 
6 



5 

1 



XXXXFIMSHMH 



XXXXFIHI&HXXXX 
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XXXXFIrtlSHXXXX 



XmSTABTXXXX 



4 

3 



XXXXFIMSHXXXI 

THE RACE RESULTS AREi 

1 PLACE HttSE Ml. I 

2 PLACE HORSE HO. 8 

3 PLACE HORSE HO. 5 
* PLACE HORSE ML* 2 

5 PLACE HORSE NO. 6 

6 PLACE MORSE MO. 3 

7 PLACE HORSE HO. 7 



AT 4-44144 tl 

hi 4 it 

AT 4 |1 

AT 6.66667 il 

AT 44 II 

AT 20 tl 

AT « il 



6 PLACE HORSE HO. 4 AT 40 il 

M TOU WANT TO BET OH THE HEX! RACET 
? HO 



104 PRINT TAB<31);"H0RS£RACE" 

1 tO PRINT TAIU5);"CREATI« COHPUTINO HORMSTQUK, K« JERSEY* 

120 PRINTiPRlNT:PRtNT 

210 DIN S<8) 

220 PRWWELCONE TO SOUTH PORTLAND HIGH RACETRACK* 

230PRINT* ...OUNEO 8Y LAURIE CHEVALIER" 

240 PRINT "BO YOU WANT DIRECTIONS"; 

250 INPUT X* 

260 IF »■•«** THEH320 

270PRWUP TO 10 HAT PLAY. A TAILE OF GDIS UILL IE PRINTER. 

290 PRINT-HAT BET ANT * AHOUNT UNIER 100000 ON ONE HORSE.* 

PRINT 'WRING THE RACE, A HORSE HILL IE SHOWN 8Y ITS* 

PRWNUM8ER, THE HORSES RACE OOUH THE PAPERS 

PRIKT 

PRINT -HOW WANT WANT TO 1ET"; 

INPUT C 

PRINT *¥KEN ? APPEARS, TYPE NANE" 

FOR A*t 19 C 

INPUT UIIA) 

NEXT * 

PRIM 

PRIHT-HORSE-^-NUfllER-t'-OUDS" 

PRINT 

FOR 1*1 TO 81 S(I)»0l NEXT I 

LET R*0 

FOR A=1 TO 8 

LET D(A)-JbT(10«RR0(D*1> 

NEXT A 

FOR A-ITO B 

LET *-R*»<A> 

NEXT A 



YQU" 



290 
304 
314 
320 
330 
340 
330 
3*0 
370 



390 
400 
4t0 
420 
430 
449 

460 
474 
480 
4*4 
500 
514 
520 
530 
540 
550 
560 



LET VIIII'MOE i«r 
LET V0t2)»*Lt.J.» 

LET M<3)-*HR.UASHSURIT 

LET 94(4><*M8S KARErt" 

LET V*(5)"M0LLY" 

LET VK4)«*H0RSE" 

LET VK7)»*JELLY DO NOT" 

LET VM8>*"HIWUGHT* 



670 
680 
690 

?n 

710 
720 
73( 
740 
730 
760 
770 
740 
790 



820 
830 
840 

830 



570 FOR H-1 TOS 

500 PRINT VI(N> t ,NpR/0(H>rit- 

3*0 NEXT R 

600PRINT - — — — -« «~- _™— — 

Alt PRINT 'PLACE TOUR IETS.. .HORSE I THEN ANQUNT* 

620 FOR J-l TO C 
630 PRINT g*(J>; 
640 INPUT KJ1 f P(Jl 
630 IF PUX1 THEN 670 

IF PUK10CO00 THEN 694 
PRINT* TOU CAN'T PO THAT!" 
60TO 630 
NEXT J 
PRINT 

PftINT-1 2 3 4 3 6 7 8' 
PRINT*xmSTARTXXXX*; 
FO* 1-1 TON 
LET H=I 
LET «(!)■« 

LET T(H(I>)-]HT(100<RHDn)*l) 
IF T<Mm<10 THEN8A0 
LET S*IJIT(R/D(I)4.S) 
IF YtHUIKS+tr THEN 680 
IF Y(HU>><$»37 THEM MO 
IF Y<«<I)><8»57 THEN920 
IF Y(Nim<77*8 THEN940 
IF Y(HU)KS#92 THEN960 

LET unitiUJ 

SOTO 970 
LET "IMIIlvl 

670 GOTO 970 
680 LET T(H1I)>*2 
890 60T0 770 
900 LET Y(H<I))=3 
910 60TO 970 
920 LET Y(M<I))"4 
930 60TO 970 
940 LET Y<H(I>>"5 
950 SOTO 970 
964 LET TWU>>-6 
970 NEXT I 
LET MI 
FOR I»1T0S 
1OO0LET S(KU»*B<H<imTCK<I>> 
1014 NEXTI 
LET I«1 
FOR L-1 TOO 
FORI»1TO B-L 
IF SM(I»<SIIHI*mTHEH 1090 

let h«hu) 
let x4i>>hci«1) 

LET H(1H>«N 

NEXT I 

NEXT L 

LET T*5<H(8>> 
1I20F0R !•! TOI 
1130 LET B±BCIll)i-S0t(I*1J) 
1140 IF B-0 THEN 1190 
1150 FOR A*t TO I 
1160 PRINT 

II70IF SM(!»>27 THEH1240 
1180 NEXT A 
1190 PRINT HID; 
1240 NEXT I 
1210 FOR AM TO 28-T 
1220 PRINT 
1230 NEXT A 
1240 PRIHT'XXXIFINISHXXXX" 

1242 PRINT 

1243 PRINT 

1244 PRINT " 

1243 PRINT 

1250 IF T<28 THEN 720 

1270 PRINT 'THE RACE RESULTS AREi* 

1272 LET 1**1 

1280 FOR 1-8 T0 18TEP-1 

1270 LET FHKII 

1300 PRINT 

1310 PRINT 29;*PLACE HfRSE NO.";F f -AT ";R/BtF>nr 

1312 LEI 29=29*1 

1324 NEXT I 

1330 FOR J*1 Tt E 

1340 IF 0<J)<>N(8> THEN 1370 

1350LET H-JU) 

1355 PRINT 

PRINT Ut(J); M VINB $*;(R/I(N)>*P(J) 

NEXT a 

PfilHT "00 TOU UANT 

INPUT "TES OR NO 



990 



1420 

1030 

1040 

1050 

1060 

1070 

II 

1090 

1100 

1110 



1360 
1370 
1372 
1374 
1374 
1380 



TO IET ON TW NEXT RACE?" 



IF 84** KI- 
WI 



THEN 



;0I 
360 
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Hurkle 



Hurkle? A Hurkle is a happy beast 
and lives in another galaxy on a planet 
named Lirht that has three moons. 
Hurkle are favorite pets of the Gwik. the 
dominant race of Lirht and . . . well, to 
find out more, read "The Hurkle Is a 
Happy Beast," a story in the book A 
Way Home by Theodore Sturgeon. 

In this program a shy hurkle is hiding 
on a 10 by 10 grid. Homebase is point 
0,0 in the Southwest corner. Your 
guess as to the gridpoint where the 
hurkle is hiding should be a pair of 
whole numbers, separated by a com- 
ma. After each try, the computer will 
tell you theapproximate direction to go 
look for the Hurkle. You get five 
guesses to find him; you may change 
this number in Line 110. although four 
guesses is actually enough. 

This program was written by Bob 
Albrecht of People's Computer Com- 
pany. 



HURKLE 
CREATIVE COMPUTING KORRISTOUN, NEU JERSEY 

A HURKLE IS HIDING ON A 16 Vt 10 OHIO. HQflEBASE 
ON THE 6RIB 18 POINT 0,0 Ml ANT BRIDPOIMT IS A 
MIR OF WHOLE WftBERE SEPARATEB BT A CORHA. TRY TO 
BUESS THE RURKLE'8 6RIDPBINT. Y6« SET 3 TRIES. 
AFTER EACH TRY, I BILL TELL TOO THE APPROXIMATE 
DIRECTION TO SO TO LOIR FOR THE HURKLE. 

QUEBJ I 1 T 3,3 
BO SOUTHEAST 

SUCH | 3 T 4,4 

BO I0UTH 

0UES8 I 3 T 4,3 
60 SOUTH 

BUESS I 4 T 4.1 

YOU FOUND HIH IN 4 GUE8SC8I 

LET'S PlAY MAIL HURKU 18 H1DIN6. 

GUESS ■ I T 3,3 
00 RORTHUEST 

GJESS I 2 ? 3,8 
BO NORTHWEST 

BUESS I 3 T 2,f 

YOU FOUND HIH IN 3 6UESSESI 



10 
9 
8 
7 
6 

WEST 5 

4 

3 
2 

1 




NORTH 



1 



EAST 



HOMEBASE 



0123456789 10 



SOUTH 



10 PRINT TAK33);"HURKLE" 

21 PRINT TM(l3»;'CREflTIVE CQHPUTIHG 

3t PRINTlPRINTjPRUT 

111 N-3 

120 0-10 

211 PRINT 

220 PRINT -A RURKUE IS HID1NB ON 

230 PRINT "ON THE IRII IS POINT 

240 PRINT "PAIR OF WHOLE NUMBERS SEPARATE! BY A CONHA. TRY TO' 

HO PRINT -0UE88 THE HBIKLE'8 BRIIPBIRT. TOO 8ET":N;"TRIE8." 
■AFTER EACR TRY, I UHL TRL YOU THE APPROXIMATE" 
'DIRECTION TO BO TO LOOK FOR THE HURKLE.' 



HOBRISTOUN, NEU JERSEY' 



A-JS;"»Y";6J-0RII. HOKEBASE' 
1,0 AID ANY GRIQPOINI IS A' 



•LET'S PLAY A8AIN. HURKLE IS HUIM.' 



240 PBIHT 

270 PRINT 

280 PRINT 

283 A-INT16>RID<1)) 

286 B-INT(6«RND<1)) 

311 FOR K-l TO N 

320 PRIRT "BUESS 6";K; 

330 INPBT X,Y 

340 IF AB8(X-A)#A*S(Y-|)-I THEN 500 

350 REH PRINT INFO 

360 BOSOI 411 

370 PRINT 

3B0 NEXT K 

410 PRINT 

420 PRINT "SORRY, THAT'S";N;"6UEBSEB." 
430 PRINT "THE HURKLE IS AT -.tt;',-.t 

440 PRINT 
430 PRINT 
460 PRINT 
470 O8T0 263 
300 REM 

310 PRINT 

320 PRINT "YOU FOUHI HIN IN-|K:"0UES8£5» 
340 BOTO 440 

41* MINT -00 -; 

421 IF Y-l THEN 670 
4JI IF Y<l THEN MO 

441 PRINT "SOUTH"; 
610 BO TO 670 

4*0 PRINT -NORTH"; 
470 IF X*A THEN 720 
639 IF «A THEN 710 
699 PRINT "KBT";' 
70» 80 TO 720 
710 PRINT "EAST"; 
720 PRINT 
730 RETURN 
9?* END 
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Kinema 



This program tests yourfundamentat 
knowledge of kinematics. It presents a 
simple problem: a ball is thrown 
straight up in the air at some random 
velocity. You then must answer three 
questions about the flight of the ball: 

1. How high will it go? 

2. How long until it returns to earth? 

3. What will be its velocity after a 
random number of seconds? 

The computer evaluates your perfor- 
mance; within 15% of the correct 
answer Is considered close enough. 
After each run, the computer gives you 
another problem until you interrupt it, 

KINEMA was shortened from the 
original Huntington Computer Project 
Program, KINERV. by Richard Pav of 
Patchogue High School. Patchogue. 
New York. 



KINEMA 

creative cohputino horristoun, heu jerset 



A BALL IS THPOUN UPWARDS AT 35 HETERS PER SECOND. 

HQU HIOH MILL IT GO UN NETERSJ? If 
HOT EVE* CLOSE*.*. 
CORRECT AH3UER IS 61.215 

HQU LOMS UNTIL IT RETURNS (IN SECONDS)? 7 
CLOSE ENOUGH. 
CORRECT AffSUER 13 7 

UHAT UILL ITS UELOCIU IE AFTER 4.5 SECONDS? 20 
HOI EVCN CLOSE*... 
CORRECT ANSUER IS -10 



1 RIGHT OUT OF 3. 

* LULL IS THROW UPWARDS AT 25 METERS PER SECOND* 

HOU HIGH UILL IT 00 (IN WEIERSJ? 45 
NOT EVEN CLOSE..., 
CORRECT AJISUER IS 31.25 

HOU LONG UNTIL IT RETURNS UN SECONDS)? 4 
NOT EVEN CLOSE*... 
CORRECT ANSUER IS S 

UHAT UILL ITS VELOCITY BE AFTER 3.2 SECONDS? 12 
NOT EVEN CLOSE.... 
CORRECT ANSUER IS -7 



RIGHT OUT OF 3. 



10 PRINT TAiC^J);'^!^^^- 1 

20 PRINT TAR115); H CftEATIUE C0HPNTIN6 MXRI5T01M, NEU JERSEY* 
30 PRINT: PRIMTl PRINT 
100 PRINT 
105 PRINT 
116 0-0 

110 y»5*INT(35*RN8(in 

111 PRINT rt A MIL IS THR0UW UPWARDS AT";V;*HETERS PER SECOND. 

112 PRTNT 

115 A«,05*V'2 

116 PRINT •HOU HI0H UILL IT 00 UN hETeRS)'; 

117 60SUI 500 
120 A»V/5 

122 PRINT "HOW LQH8 UNTIL IT RETURNS UN SECONDS)*; 

124 00SUI 500 

130 T=t*INT<2»V*RHDU)>/10 

132 A=V-10*T 

134 PRINT "UHAT UILL ITS TELOCITY DE AFTER^T^'SECONDS - ; 

136 00SUI 500 

140 PRINT 

150 PRINT Q;"RIQHT OU! OF 3.'J 

160 IF 0<2 THEN 100 

170 PRINT " NOT IAD.* 

180 GOTO 100 

500 INPUT 

502 IF A8S((6-A)/AX,13 THEN 510 

504 PRINT K N0T EVEN CLOSE. *„■ 

506 60T0 512 

510 PRINT "CLOSE ENOUOH.' 

511 Q=R*1 

512 PRINT "CORRECT ANSWER IS ";A 
520 PRINT 

530 RETURN 
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King 



This is one of the more comprehen- 
sive, difficult, and interesting land and 
resource management games. (If 
you've never played one of these 
games, start with HAMMURABI.) 

In this game, you are Premier of 
Setats Detinu, a small communist 
island 30 by 70 miles long. Your job is to 
decide upon the budget of the country 
and distribute money to your coun- 
trymen from the communal treasury. 

The money system is Rallods; each 
person needs 100 Rallods per year to 
survive. Your country's income comes 
from farm produce and tourists visiting 
your magnificent forests, hunting, 
fishing, etc. Part of your land is farm 

land but it also hasan excellent mineral 
content and may be sold to foreign 
industry for strip mining. Industry 
import and support their own workers. 
Crops cost between 10 and 15 Rallods 
per square mile to plant, cultivate, and 
harvest. Your goal is to complete an 
eight-year term of office without major 
mishap. A word of warning: it isn't easy! 
The author of this program is James 
A. Storer who wrote it while a student at 
Lexington High School. 



mm 

CREATIVE COMPUTING HORRISTOUJ, H£U JERSEY 



DO TOU UANT INSTRUCTIONS? YES 



YOU NDU HAVE $990? RALLOBS IN THE TREASURY. 
5B2 COUNTRYHEN, Ml 2000 SB. fHLES OF UNO. 
THIS TEAR IHIUSTRT UILL BUT LAND FOR 103 RALLOBS PER SB. BILE. 
LAND CURRENTLY COSTS 10 RALLODS PER SO. NILE TO PUNT. 



HON MANY 30. HUES DO YOU UI9K TO SELL TO 1NSUSTRIT 200 

HOU HART RALLOBS UILL TOU IISTRIIUTE TO YOUR CCUHTRYNEH? 30200 

HSU HANY SO. HILES BO YOU UISK TO PLANT* 300 

HSU MNY RALLOBS 00 TOU WISH 10 SPEND ON POLLUTION CONTROL? 10000 



212 UORKERS CANE 10 THE COUNTRY AND 394 COUNTRYMEN CAME TO THE ISLAH 
BF 500 SO. HILES PLANTED, TOU HARVESTED 340 SO. BILES OF CROPS. 

(DOE TO AIR ANI UAIER POLLUTION FROM FOREIGN INDUSTRY.) 
NAKIHB 17510 RALLODS. 
YOU HADE 817? RALLODS FRfJH TOURIST TRADE. 



TOU NOU HAVE 4543* RALLODS IN THE TREASURT. 

198 COUNTRYHEN, 212 F0REI6N UORKERS, ANI 1 

THIS YEAR INDUSTRY UILL BUY LAND FOR 98 RALLOIS 

LAND CURRENTLY COSTS 13 RALLOBS PER SB. NILE TO 



SO. HILES OF LAND. 
PER SB. BILE. 

PUNT. 



HON HANY SB. HILES 10 YOU UISH 10 SELL TO INDUSTRY? 
HOW HANT RALLODS UILL YOU IISTRIIUTE 10 TOUR COUNTRYMEN? 
THINK AGAIN, YOU'VE ONLY 45434 RALLODS IN THE TREASURY 
HOU HANY RALLODS UILL YOU DISTRIBUTE T8 TOUR COUNTRYMEN? 4OO00 
HOU NANY SO. HILES DO YOU UISH TO PLANT? 400 
HOU HANI RALLOIS 10 YOU UISH TO SPEND ON POLLUTION CONTROL? 4000 



CONGRATULATIONS! YOU'VE JUST IEEN ELECTEB PREHIER OF SETATS 
DETINU, A SHALL CONHUNIST ISLAND 30 IT 70 HILES LONG. YOUR 
JOB IS TO IECIIE UPON THE COUNTRY'S SUBSET AND DISTRIBUTE 
HONEY TO YOUR COUNTRYHEN FROH TNE COBHUHAL TREASURY. 
IKE HONEY SYSTEH IS RALLODS, ANI EACH PERSON NEEDS 100 
RALLODS PER YEAR TO SURVIVE. YOUR COUNTRY'S INCOHE CQHE3 
PEON FASH PRODUCE ANI TOURISTS VISITING YOUR HAGHIFICENT 
FORESTS, HUNTIN6, FISHING, ETC. HALF TOUR LAND IS FARM LAND 
UIICH ALSO HAS AN EXCELLENT HINERAL CONTENT AND HAT BE SOLD 
TO FOREIGN INDUSIRT (STRIP BINIHB) UHO IMPORT AND SUPPORT 
THEIR QUN UORKERS. CROPS COST BEIUEEN 10 AMI 15 RALLODS PER 
80. NILE TO PLANT. 

YOUR 60AL IS TO COMPLETE TOUR 8 TEAR TERN OF OFFICE. 
8800 LUCK. 



498 COUNTRYHEN 01EB OF STARVATION 

TON UERE FORCED TO SPENB 4482 RALLODS ON FUNERAL EXPENSES 
23* COUNTRYHEN CAME TO THE ISLAND. 
OF 400 Sfl. NILES PLANTED, TOU KAIVESTEI 448 SO. MILE8 OF CROPS. 

(DUE TO AIR AND UAIER POLLUTION FROH FOREIGN 1NBUSTRY.) 
NAKINS 21952 RALLOBS. 
TOU HADE 4048 RALLOIS FROH TOURIST TRADE. 

DECREASE BECAUSE AIR POLLUTION IS KILLINB BANE BIRD POPULATION, 



498 COUNTRYMEN DIED IN ONE TEAR! I! I! 
SUE TO THIS EXTREME HISHANAGEBEHT TOU HAVE NOT ONLY 
BEEN IMPEACHED AND TRROUN BUT OF 8FFICE BUT YOU 
HAVE ALSO GAINED A VERY |AI REPUTATION. 



PRINT TAB(34); rt *ING" 

PRINT TABn5);"CREATIVE COrtPLTIKG NORRISTOUH, HEU JERSEY 11 

PRIKTtPRINTiPRlNT 

PftlHT "BO fCU UANT INSTRUCTIONS"; 

INPUT 1% 

115*1 

■ IF LEFTHZtit)-**"* THE** 47 
IF Zt*"A6AIN* THEN 1960 
PtntriNtHTlPJilHT 

PRINT "CONGRATULATIONS! YOU'VE JUST BEEN ELECTED PREMIER OF SETATS" 
PRINT "BET1NU, A SHALL CONBUHIST ISLAHO 30 BY 70 HUES LOW*, YOUR" 
PRINT -JOB IS TO DECIDE UPON THE COUNTRY'S BUDflET AHB DISTRIBUTE 1 * 
PRINT "HOMEY TO YOUR COUNTRYHEK FRON THE CDMUJNAL TREASURY. - 
PRINT "THE HONEY SYSTEfl IS RALLOBS, ANB EACH PERSON NEEDS 100" 
PRINT 'RALLOOS PER YEAR TO SURVIVE. YOUR COUNTRY'S INCOflE COHES- 
PRINT "FROfl FARH PROBUCE ANB TOURISTS VISITING YOUR MSN IF KENT* 
PRINT -FORESTS, HUNTING, FISHING, ETC. HALF YOUR LAND IS FARH LANS" 
PRINT "UHICH ALSO HAS AH EXCELLENT HINERAL CONTENT AND NAY BE SOLO' 
PRINT "TO FOREION INDUSTRY (STRIP NIHIHG) UHO IHPORT AND SUPPORT- 
PRINT "THEIR DUN UQRKERS. CROPS COST BETWEEN 10 ANO 13 RALL085 PER 1 * 

PRINT "SO. NILE TO PLANT." 

PRINT "YOUR GOAL IS TO COHPLETE TOUR ";N5; "YEAR TERH OF OFFICE. " 
PRINT "600B LUCK.* 
PRINT 

A=INTU0000+(10OO*RMHm~C 1000*11*0(1})) 
B-INT<300+aOtRND(1>W10*fift*<im 
0-2000 
i)MNT(10*RN0(1)+9S) 
PRINT 

PRINT "YOU MOU HAVE-;A; H RALL0B3 IN THE 
PRINT INTmfCOUNTRYHEN, -J 
V?-W<C<RHN1>/2)*10t10n 
IF C-* TNIN MO 
PRINT IHT(C)rfOR£ION UORKERS, "[ 

AND";INT(D); i, SO. NILES OF LAHB. 
THIS YEAR INDUSTRY WILL 
RALLOOS PER SO. MILE." 
1MB CURRENTLY COSTS";V?;"RALL0BS 



I 
I 
1 
t 

1 

I 

10 

1 1 

12 

20 

22 

14 

U 

28 

30 

32 

34 

34 

38 

40 

42 

44 

44 

4? 

SO 

90 I 

65 L 

100 

102 

IBS 

110 

113 

120 

130 

140 

ISO 

1S2 

135 

162 

200 

210 



TREASURY," 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
EKPUT 



BUY LAND FQR";U 



p"i 



PER SO. HILE TO PLANT." 



*H0¥ HANY SB. NTLES BO YOU UISH TO SELL TO INDUSTRY"; 




215 

220 

230 

240 

250 

260 

270 

280 

299 

300 

310 

320 

340 

342 

3S0 

340 

370 

375 

3B0 

390 

393 

399 

400 

410 

420 

421 

422 

423 

424 

426. 

427 

428 

430 

435 

440 

450 

440 

4V0 

495 

49? 

300 

510 

520 

322 

530 

540 

55* 

6*0 

6*2 

604 

4*6 

409 

612 

014 

416 

618 

1000 

1002 

1003 

1010 

1020 

1100 

1103 

1110 

1120 

1122 

1125 



YOU'VE ONLY";B-1000;*9*- HILES OF FARH LANO" 



BUY FARtl 
TO STRIP 



1Mb 

HIKE 



BECAUSE" 

BUE TO TREES," 



IF H<0 THEN 200 

IF H<'D-1000 THEN 300 

PRINT " THINK AGAIN, 

IF XOO THEN 200 

PRINT "(FOREIGN INDUSTRY UILL ONLY 

PRINT "FOREST LANB IS UNECONOMICAL 

PRINT "THICKER TOP SOIL, ETC.)" 

1*1 

OOTO 200 

B-IXT(B-H) 

A*INT(A*(H*im 

PRINT "HOU NANY RALL0B8 URL YOU BISTRIWIE TO TOUR CQUNTRYHEN"; 

INPUT I 

IF KO THEN 320 

IF 1<A THEN 400 

If I-A THEN 380 

PRINT " THINK AGAIN, YOU'VE ONLY";A;'RALL0BS IN THE TREASURT" 

OOTO 320 

J-0 

K>0 

A-0 

OOTO 1000 

A-INT1A-E) 

PRINT "HOU NANY SB. HUES 00 YOU UISH TO PLANT'*; 

INPUT J 

IF J<* THEN 410 

IF J<-8*2 THEN 426 

PRINT " SORRY, BUT EACH COUNTRTHAH CAN ONLY PLANT 2 SO. RILES" 

GOTO 410 

IF J<>B-tOOO THEN 430 

PRINT " SORRY, BUT YOU'VE OHLY";B-1000;'SO. H1LES OF FARN LAND" 

GOTO 410 

UNINT(J*V9) 

IF UKA THEN 300 

IF UI'A THEN 490 

PRINT" THINK AGAIN, YOU'VE 0NLY";A;"RALLOBS LEFT IN THE TREASURT 

SOTO 410 

K-0 

A*l 

GOTO 1000 

A»«-U1 

PRINT "HOU KANT RALLOOS 00 YOU UISH TO SPCHD ON POLLUTION CONTROL- 
INPUT K 

IF K<0 THEN 510 
IF K<=A THEN 1000 
PRINT ** THINK AGAIN, YOU'VE 0NLY";*;"RALLOBS REMAINING" 

QOTO 510 

IF HOO THEN 1002 

IF IOO THEN 1002 

IF JOO THEN 1002 

IF KOO THEN 10*2 

PRINT 

"OOOBBtE,* 

'(If YOU UISH TO CONTINUE THIS OAftC AT A LATE OATE, AJtSUER* 
UH£H ASKED IF YOU UANI INSTRUCTIONS, AT THE" 



ABAUT 



PRINT 
PRINT 
PRINT 
STOP 

80T0 600 

PRINT 

PRINT 

A'MKA-K) 

A4-A 

IF INTU/100- 



lt>i 



1120 



THEN 
IF I/100<50 THEN 1700 
PRINT !NT4l-U/1tiO)); H C0UNTRYHEN 
F1>INT(R»(1>*(2000-I)) 
IF K<23 THEN 1130 
F1<INT(F1/(K/25n 



DIED OF STARVATION' 
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ruv U fK«B THEN 1 150 

!!« 75*7«* 1 1 «2* f 5T5f M .* IE " 0F c««w-iio«Biie and dust INHALATION' 

1150 JF INT((I/100>-B)<0 THEN 1170 
1160 IF f1>0 THEN 1180 
1145 GOTO 1200 

1170 PRINT - YOU UERE FORCED TO SPEND»;INTC (Ff+11-U/iQMl )•?): 

1172 PRIKF "RALLODS OK FUNERAL EXPENSES** 
1174 B5MHnF1*<B-<I/IOO)» 

1173 A*INTU-UF1t(8-U/ieO>>)»9)> 

1174 SOTO 1183 

11130 "I« " TOU UERE FOACEB TO 3PCW0"; Mr«FI»fi;-*MlU»8 QK -; 

1181 PRINT "FUNERAL EXPENSES- ' ** tU '" U * ' 

1182 B5=Fl 

1183 A=IHT(A-<F1»9)> 
1185 IF A>-0 THEN 1194 

1187 PRUT - INSUFFICIENT RESERVES TO COVER COST - LAND IMS SOLB- 
118* D*IHHB+(A/UJ> 
I If 6 MO 

iit4 •■mnt-isi 

1200 IF H-0 THEN 1250 

1220 Cl"IHHH*(RHD<1)*10)-<RNOm#20>) 

1224 IF C>0 \ntt\ 1230 

1226 C1=C1*20 

1230 PRINT COWORKERS CAHE TO THE COUNTRY AND": 

1250 PUrHT(<(J/l00-8J/10K(K/25)-((20O0'D)/5O)-(F1/2JJ 

1255 PRINT ABS(pn;*COUNTRTAEN N ; 

1240 IF PKO THEN 1273 

1245 PRINT "CAHE TO"; 

1270 GOTO 1280 

1275 PRINT -LEFT"; 

I2B0 PRINT ■ THE ISLARB." 

1290 B-INKB*P1> 

1292 C-I*HC+C1> 

1305 U2»INT<<(2QOI-D>*<<RN&m*1.3)/2>)J 
1310 IF C-6 THEM 1324 

1320 PRINT " OF*;INT(J>;-S0, NILES PLANTER,"; 

1324 IF J>U2 THEN 1330 

1326 U2=J 

1330 PRINT - TOU HARVESTEB";INT(J-U2>;"SG. NILES OF CROPS." 

1340 IF U2*0 THEN 1370 

1344 IF T1>«2 THEN 1370 

1350 PRINT * (DUE TO -j 

1355 IF TUO THEN 1365 

1360 PRINT "INCREASED ••; 

1365 PRINT *AIR RID UATER POLLUTION FRGH FOREIGN IHBUSTRY,) - 

1370 Q»INT((J-U2)#<U/2)> 

1380 PRINT ' rtAKIHQ-flNTCRJj-RALLQBS." 

1390 A-1NT(R*0> 

1400 V1"INT(((B-P1)«22J*(RND< l)*5O0J) 

1405 V2MHTK2000-l>i13* 

1410 PRINT - YOU «ARE*;ARS(IHT{V1-V2M;*RALL0DS FROM TOURIST TRADE." 

1420 IF V2-0 THEN 1450 

1425 IF V1-V2>=V3 THEN 1450 

1430 PRINT " DECREASE BECAUSE 

1435 &1M6*RND<1) 

1440 IF 81<=2 THEN 1440 

1442 IF 8l<»4 THEN 1465 

1444 IF GK"6 THEN 1470 

1444 IF 61<=8 THEN 1473 
1448 IF SK-10 THEN 1480 
1430 V3«IHT(A*V3) 

1451 A-JKUA-IVJ) 

1452 SOTO 1500 

1440 PRINT "FISH POPULATION HAS DUINDLED DUE TO UATER POLLUTION. " 
1442 80T0 1450 

1445 PRINT -AIR POLLUTION IS KILLING GAHE BIRO POPULATION." 
1447 8010 1458 

1470 PRINT "MINERAL BATHS ARE BEIH8 RUINED BY UATER POLLUTION.*' 
1472 GOTO 1450 

1475 PRINT 'UNPLEASANT SH08 IS DISCOURAGING SUN BATHERS." 
1477 SOTO MM 

1480 PRINT "HOTELS ARE LOOKING SHABBY SUE TO SHOO 8RIT-- 
1482 SOTO 1430 

1500 IF B3>200 THEN 1400 

1503 IF B<343 THEN 1700 

1310 IF <A4/10*»5 THEN 1800 

1515 IF OB THEN 1550 

1520 IF N5-1-X5 THEN 1900 

1545 GOTO 2000 

1550 PRINT 

1552 PRINT 

1560 PRINT "THE NUNBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER" 

1542 PRINT 'OF C0UN1RYHEN. AS A HAJORITY TH£T HAVE REVOLTED ANT 

1564 PRINT -TAKEN OVER THE COUNTRY.- 

1570 IF RH0(1K».5 THEN 1S80 

1374 PRINT "YOU HAVE SEEN THROWN OUT OF OFFICE AND YOU ARE NOU" 

(576 PRINT "RESIDING IN PRISON." 

1378 SOTO 1590 

1580 PRINT UOO HAVE BEEN ASSASSINATED," 

1590 PRINT 

1592 PRINT 



■ i 
i 



1394 STOP 

1400 PRINT 

1402 PRINT 

1610 PRINT B5;-CQUNTflYri£N DIED IN ONE YEAR?!'!!" 

1615 PRINT -DUE TO THIS EXTREHE HISHAHAGEHEHT YOU HAVE NOT ONLY" 

1420 PRINT -BEEN UPEACHED AND THROWN OUT OF OFFICE BUT YOU" 

1422 H6-IKT<RND<1)»10) 

1425 IF H4<»3 THEN 1670 

1630 IF H6<*6 THEN 1680 

1635 IF !L4<-10 THEN 1690 

1670 PRINT *AL30 HAB YQUft LEFT EYE GQUQEB OUT." 

1472 SOTO 1590 

1680 PRINT "HAVE ALSO GAINED A VERY BAB REPUTATION. - 

1462 GOTO 1590 

1490 PRINT "HAVE ALSO DEEN BECLARED NATIONAL FINK," 

1692 SOTO 1590 

1700 PRINT 

1702 PRINT 

1710 PRINT -OVER ONE TKIRB OF THE POPULATION HAS DIED SINCE YOU" 

1715 PRINT "WERE ELECTED TO OFFICE, THE PEOPLE (REHAINIH6)" 

1720 PRINT "HATE YOUR GUTS." 

1730 60TO 1570 

teOO IF D5-FK2 THEN 1515 

1407 PRINT 

1815 PRINT "NONET UA5 LEFT OVER IN THE TREASURY UHICH YOU BID' 

1820 PRINT "NOT SPEND. AS A RESULT SOKE OF YOUR COUNTRYMEN DIED" 

1825 PRINT -OF STARVATION. THE PUDLIC IS ENRAGED AND YOU HAVE" 

1830 PRINT "BEEN FORCEB TO EITHER RESIGN OR COM IT SUICIDE. " 

1B35 PRINT "THE CHOICE IS YOURS. * 

1140 PRINT -If YOU CHOOSE THE LATTER, PLEASE TURN OFF TOUR COMPUTER 

1845 PRINT "BEFORE PROCEEDING." 

1850 GOTO 1590 

1900 PRINT 

1920 PRINT "<CDH6RATULATI0H5!f<HHH!Hnmt B 

1925 PRINT -YOU HAVE SUCCESFULLT C0NPLE1EB YOUR" JN5; -YEAR TERN" 

1930 P8IN1 "Of OFFICE. YOU UERE, OF COURSE, EXTREMELY LUCKT, BUT" 

1935 PRINT -NEVERTHELESS, IT'S QUITE AH ACHIEVERENT. OOOBYE AND 

1940 PRINT LUCK - YOU'LL PROBABLY HUQ IT IF YOU'RE THE TYPE THAT" 

1943 PRINT "PLAYS THIS SANE.* 

1950 GOTO 1590 



1961 INPUT X5 

1962 If X3<0 THEN 1590 

1963 If X3<8 THEN 1969 

1965 PRINT " CONE 0N r YOUR TERH IN OFFICE IS 0HLY";N5;"YEARS." 

1947 GOTO 1960 

1969 PRINT -HOU NUCH DIB TOU HAVE IN THE TREASURY"; 

1T70 INPUT A 

1971 IF A<0 THEN 1590 

1975 PRINT "HOW NANY COUNTRYMEN-; 

1976 INPUT D 

1977 IF B<0 THEN 1590 

1980 PRINT "HOU flANY WORKERS"; 

1981 INPUT C 

1982 IF C<0 THEN 1390 

1990 PRINT "HOU NANY SO. NILES OF LAND"; 

1991 INPUT D 

1992 IF D<0 THEN 1590 

1993 IF B>2000 THEN 1994 

1994 IF DXOOO THEH 100 

1996 PRINT " CONE OH, YOU 3TARTE0 WITH 1000 SO. NILES Uf FARH LAND" 

1997 PRINT " ANB 10000 SO. NILES OF FOREST LAND." 

1998 GOTO 1990 
2000 X5=X5*1 
2020 05*0 
2040 GOTO 100 
2046 END 
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Letter 



LETTER is similar to the game 
GUESS In which you guess a number 
chosen by the computer; in this 
program , the computer picks a random 
letter of the alphabet and you must 
guess which one it is using the clues 
provided as you go along. It should not 
take you more than five guesses to get 
the mystery letter. 

The program which appears here is 
loosely based on the original written by 
Bob Albrecht of People's Computer 
Company. 



UTTER 
CREATIVE CIAPUTINO R08R18TQUN, NEU JERSET 

LETTER 8UE3SINB 6AHE 

I'LL THIIK OF A LETTER OF THE ALPHABET, A TO I. 
TRY TO 6UES5 MY LETTER AHD I'LL 6IVE tOU CLUE3 
A3 TO HOU CL81E YOU'RE SETTIN8 TO HY LETTER. 

O.K., I HAVE ft LETTER. START 6UES3IMB. 

UHAT IS YOUR 8UESST H 

TN HIOH. TRY A LOWER LETTER. 

UHAT 18 TOUR 6UE88T F 



YOU GOT IT IH 2 QMES5ESI I 
QUOD JOB lllll 



10 PRINT TAB<33);"LETTER* 
20 PRINT TA8<I31;"CREATIWE 
30 PRIHTiPRINTiPRTNT 



COHPUTINB HORRISTOHN, NEU JERSEY" 



100 

210 

220 

230 

JU 

320 

3*0 

410 

420 

All 

440 

43* 

4i0 

410 

300 

301 

306 

308 

310 

313 

320 

330 

9V? 



BABE": 
LETTER 
LETTER 



PRINT 

OF THE ALPHABET, A TO 2." 
AMI I'LL GIVE YOU CLUES" 
6ETTIN6 TO *Y LETTER." 



A LETTER. 

guess-: 



START QUESSIH6.' 



PRINT -LETTER BUESSIN6 

PRINT -I'LL THINK OF ft 

PRINT "TRY TO BUE8S fll 

PRINT "A3 TO HOU CLOSE YOU'RE 

f«*lNI(MI<1>»2*> 

6-0 

PRINT: PRINT "O.K., I HAVE 

PRINTi PRINT "UHAT IS YOUR 

•■1*1 

INPUT All A-ASC(A«>t PRINT 

IF A-L THEN 300 

IF AH THEN 490 

PRINT -TOO LOU. TRY A HI6HER 

PRINT -TOO HIBH. TRY A LOUER 

PRINT* PRINT "YOU fldT IT IN'JBJ 

IF G<«5 THEN 308 

PRIHT "BUT IT SHOOLIN'T TAKE HARE THAN 3 0UESSE8I-| OOTO 313 

PRINT "0000 JOB him" 

FOR DM 10 13: PRINT CHR*(7>[; 

PRINT 

PRINT "LET'S PLAT AGAIN " 

80T0 310 
END 



LETTER. "i 
LETTER.* l 

■GUESSES ! I 



■EXT U 



3010 



410 
410 



SYSTEN RESPONSE HAY BE 8L0H AY TIHE8. CURRENTLY RUHHIMO OW 1?2K OF HCHORY. 
REAfY 
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LET'S PLAY AGAIN 

O.K., I HAVE A LETTER. START GUESSING. 

UHAY IS YOUR 8UE88T M 

TOO HIOH. TRY A LOUER LETTER. 

UHAT 18 YIUR BUESST F 

YBO HIGH. 1RY ft LOUER IET1ER. 

UHAY 18 YOUR 8IJES3? C 

Y00 LOU. TRY A HIGHER LETTER. 

UHAT 13 YOUR 8UESST E 

TAB HUH. TRY A LOUER LETTER. 

UHAT IS YOUR 6UE8ST I 



YOU 60T II IN 3 GUESSES If 
JOB HIM 



LET'S PLAY AGAIN...,. 

O.K., I HAVE A LETTER. START 0UES8IH6. 

UHAT 13 YOUR 6UESST 

BREAK IN 430 



Life 









The Game of Life was originally 
described in Scientific American, Oc- 
tober 1970, in an article by Martin 
Gardner. The game itself was 

originated by John Conway of Gonville 
and Caius College, University of Cam- 
bridge, England. 

In the "manual" game, organisms 
exist in the form of counters (chips or 
checkers) on a large checkerboard and 
die or reproduce according to some 
simple genetic rules. Conway's criteria 
for choosing his genetic laws were 
carefully delineated as follows: 

1 . There should be no initial pattern for 
which there is a simple proof that the 
population can grow without limit. 

2. There should be initial patterns that 
apparently do grow without limit. 

3. There should be simple initial 
patterns that grow and change for a 
considerable period of time before 
coming to an end in three possible 
ways: fading away completely (from 
overcrowding or from becoming too 
sparse), settling into a stable con- 
figuration that remains unchanged 
thereafter, or entering an oscillating 
phase in which they repeat an 
endless cycle of two or more periods. 

In brief, the rules should be such as 
to make the behavior of the population 
relatively unpredictable. Conway's 
genetic laws are delightfully simple. 
First note that each cell of the checker- 
board (assumed to be an infinite plane) 
has eight neighboring cells, four adja- 
cent orthogonally, four adjacent 
diagonally. The rules are: 

1. Survivals. Every counter with two or 
three neighboring counters survives 
for the next generation. 

2. Deaths. Each counter with four or 
more neighbors dies (is removed) 
from overpopulation. Every counter 
with one neighbor or none dies from 
isolation. 

3. Births. Each empty cell adjacent to 
exactly three neighbors — no more, 
no fewer — is a birth cell. A counter is 
placed on it at the next move. 

It is important to understand that all 
births and deaths occur simultaneous- 
ly. Together they constitute a single 
generation or, as we shall call it, a 
"move" in the complete "life history" of 
the initial configuration. 



You will find the population con- 
stantly undergoing unusual, 
sometimes beautiful and always unex- 
pected change. In a few cases the 
society eventually dies out (all 

counters vanishing), although this may 
not happen until after a great many 
generations. Most starting patterns 
either reach stable figures — Conway 
calls them "still lifes" — that cannot 
change or patterns that oscillate 
forever. Patterns with no initial 
symmetry tend to become 
symmetrical. Once this happens the 
symmetry cannot be lost, although it 
may increase in richness. 

Conway used a DEC PDP-7 with a 
graphic display to observe long-lived 
populations. You'll probably find this 
more enjoyable to watch on a CRT than 
a hard-copy terminal. 

Since MITS8K BASIC does not have 
LINE INPUT, to enter leading blanks in 
the pattern, type a "." at the start of the 
line. This will be converted to a space 
by BASIC, but it permits you to type 
leading spaces. Typing DONE in- 
dicates that you are finished entering 
the pattern. See sample run. 

Clark Baker of Project DELTA 
originally wrote this version of LIFE 
which was further modified by Steve 
North of Creative Computing. 



LIFE 
CREATIVE COWUTINB WRRI8TQUN, NEW JERSEY 

ENTER TOUR PATTERN] 
T . •«• 

T . • • 
T .» * 

T DONE 



GENERATIINi t 



POPULATION I 



Q E HERAT IBM l Q 



POPULATION 7 






•f «• 



GENERATION 2 



rgpvuTlMi f 



• • 
*• •• 



GENERATION! 3 



POPULATION! 10 



« • 



GENERATION 4 



POPULATIONi 12 



• • 

«« ** 



100 



SCKEHTIQNl 13 



POPULATION! 30 



BEMCRMIOMt t6 



POPtfWIIOd* « KKMTIOMl It 



POPULATION! 34 



t 4 

4 4 
* * 

# * i * 

* 4 4 4 
44 4 4 44 

4 • 



• 




• 


9*4 


• 


• 44 


9 »• 


* 


44 4 


8* 94 


• 


44 44 


9444 




MM 


4 




• 


•• 




<» 


» 




4 



4* lM4*IHHt 4* 

«• *M ♦ M* H 
4 4 4 4 

4 MMM * 

*4 4 < *< 

• 4 M 44 *< 



lERERATIWi 14 



PAPULATION 3? 



eCNERMIONl 17 



populatiou u enHiTiom 20 



POPULATION 41 



• 
4*4 



4* 4 44 

44 4** 44 

4 444 444 4 

44 4 9 4* 

44 44 



494 



4 4 

4 4 



444 



44 

4 
44 



* 444 9 

9 4 

94 44 

4 4 

[*9 494 



99 

9 

44 



9 4 

• 4 



444444444 

• 4 4 

4 4 4 4 * 

4 44 94 4 
•4 

44449 



4* 
4 4 

4 4 



44 

19449 



OENEftATIMt 13 



POPULATION I 3? 



OEftEIMTIONi II 



PQPULMICMt 34 



GENERATION: 21 



POPULATION 67 



994 

4 

9*4 449 

4 4 444 4 4 
4 4 

44 44 44 49 

4 4 4 4 

444 444 



• 

4 

4 4 

4 4 

4 4 

4944 44 44 4444 

44 4 4 4 44 

4 4 4 4 4 

44 444 444 49 

9 4 9 4 

4 4 4 4 

4 4 4 4 



444 

4 4 
4 4 

444 4 944 

444 9 4 994 

4 4 4 4 4 4 4 

4 4 4 

9494 4994-4 4444 
44 4 4 44 

49444 44949 

444 



9 

10 

20 

30 

40 

30 



flG*RlSTOUN, HEW JERSEY* 



tftlftiaiUHDrLEIUMfC))-!) 



70 

80 

10 

100 

110 

110 

130 

144 

150 

lift 

170 

110 

210 

210 

213 

220 

223 

230 

240 

230 

253 

236 



P«IM7 TABt34);*UFE* 

Htm tii(is);*heauve computus 

PRUT: PRIHTi PRINT 

PRINT 'ENTER Y0W P4TTERM:" 

XIMt Y1»ll X2«24t Y2"70 

UN *<24,70>,ll<24) 

C-l 

INPUT ItfC) 

IF I4(C»*"0WE- THEN M(CI« #H | 6OT0 

K LtFT0(ll(C> t 1>4».» THEN 10(C)** "4 

C-C*l 

GOTO 30 

C*C-t I L»0 

FOR X»1 TO C-1 
IF LEHlimiH THEN L*LEW(B*m) 
NEXT X 

K1M1-C/2 
YU33-L/2 

FOR X-1 TO C 

FOR T-1 TO LEN(II(X» 

IF ftIllt»|Ul B Y t 1K>* * THE* N(X1*X,Yt*Y»»1 *P»f*1 

NEXT Y 

MEXT X 

PtlMTsPftlMTiPRltfT 

PIIMT •flE*Et*TI(W)";a f "POPULATH]Hi ,p ;P;i IF IT THE* PRINT MWAUO* 

X3-24I T3-70* 14*1 1 Y4»tt P-0 

•■»M 

FIR 1-1 TO X1-lt PIIHT; REXT X 



FOR X-X1 TO X2 

PRINT 

fM T-Y1 TO 

IF A()! f H-2 

IF *CX t Y>0 



Y2 

THEM *(X,Y)«Oi GOTO 270 
THEN *U r T>*1; GOTO 241 



260 If 0M»YK>t THEM 270 

241 PRIMT I«(T);-4»J 

262 IF X<X3 TIEN O-i 

2*4 IF X>X4 THEN X4-X 

2M IF Y<T3 THEH Y3«Y 

248 IF Y>Y4 TUN T4»Y 

270 NEXT Y 

2*0 NEXT X 

2*3 FOR X*X2*I TO 24i PRIMTi NEXT X 

299 Xl*X3l X2*X4i V1«V3x Y2*Y4 

311 IF XK3 THEM X1«3l It»-1 

313 IF X2>22 THEH X2-22i If— 1 

313 IF YK3 THEM Y1»li If— 1 

307 IF Y274I THEN Y2**8i If«*1 

319 P-0 

310 FIR 1**1-1 TO X2+1 
510 FIR t-Yt-t Tl Y2tl 

320 C-0 

330 FIR I<X*f TO X+1 

540 FIR J»Y-J TO Y*1 

550 IF AU.J1M M *U,J>»2 THEN C*C*1 

310 ICXT J 

370 HEXT I 

310 IF ft(X,Y>'0 THEN 410 

5*0 IF C<3 OR C>4 THEM A(X r Y)«2t OOTO 400 

P"Ptl 

I0TO 420 
410 IF C"3 TKX *<X t VI-3i F-Pt| 
420 NEXT T 
430 REXT X 

433 XI-XI-li Y1-Y1-U X2-X2+U Y2"Y2+1 
440 00TO 210 
430 EHI 



3f3 
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Life for 




LIFE-2 is based on Conway's game 
of Life. You must be familiar with the 
rules of LIFE before attempting to play 
LIFE-2. 

There are two players; the game is 
played on a 5x5 board and each player 
has a symbol to represent his own 
pieces of 'life.' Live cells belonging to 
player 1 are represented by '" and live 
cells belonging to player 2 are repre- 
sented by the symbol '#'. 

The # and * are regarded as the same 
except when deciding whether to 
generate a live cell. An empty cell 
having two '#' and one '*' for neighbors 
will generate a *#•, i.e. the live cell 
generated belongs to the player who 
has the majority of the 3 live cells 
surrounding the empty cell where life is 
to be generated, for example: 





4> 


3 


1- 


5 




1 

2 


















* 








3 








# 






4 






# 








5 















A new cell will be generated at (3,3) 
which will be a '#' since there are two '«' 
and one '" surrounding. The board will 
then become: 



1_ _2_ _3 4_ 5 

1 

2 

3 # # 

4 

5 

^^^ ■■ I T^^^H H^H>_ I 



On the first move each player 
positions 3 pieces of life on the board 
by typing in the co-ordinates of the 
pieces. (In the event of the same cell 
being chosen by both players that cell 
is left empty.) 

The board is then adjusted to the 
next generation and printed out. 

On each subsequent turn each 
player places one piece on the board, 
the object being to annihilate his 
opponent's pieces. The board is ad- 
justed for the next generation and 
printed out after both players have 
entered their new piece. 

The game continues until one player 
has no more live pieces. The computer 
will then print out the board and 
declare the winner. 

The idea for this game, the game 
itself, and the above write-up were 
written by Brian Wyvill of Bradford 
University in Yorkshire. England. 



CONFUTING HORRISTfWH, NEU JERSEY' 



2 PRINT T«(33>;"LIfE2" 
4 PRINT TftNlSirCKATIUE 
4 PRIHTlPRINTlPRIM 

7 III au,*M(itM<H> t X(2),r<2) 

8 DATA 3,1*2,103, 120, 130,121,112,111, 12 

9 BfllA 21,10,1020,1010,1011,1021,1003,1002,1012 

io rot h>i re i8i Rim iinh next n 

1J BAT* -1,0, 1,0,1,-1,0,1,-1,-1, 1,-1, -1.1,1,1 
14 FOR 81- I I| Hi REM 4(01 >i HEXT 01 
20 88T0 300 

50 FOR J-l 10 3 

51 FOR 1*1 TO S 

35 IF R(J,«l>»r THEN GOBUI 200 

40 REIT t 

43 NEXT J 

It K"*l R2-0I H3-0 

*f FOR J-» 10 4i PRINT 

100 FOR X-0 TO 4 

101 IF JOO THER IF J<>4 THEN 

102 If t>4 THEM PRINT Oft 

103 PRINT X;t GOTO 120 
103 IF NO* THER IF K<>4 THE* 
1*4 If >4 TKER PRINT Oi 80T0 
1*7 PRIRT j;i 00TO 12* 

no eosui joo 

120 NEXT I 

12S NEXT J 

114 RE TURN 

200 Mi IF NIJ,K»999 THEN 

220 FOR 01- 1 TO IS STEP 2 

230 R(.l*4(On,«*A(Oltt>»N(J**(Q1t,K*A(0l*1>)ti 

231 NEXT 01 
23* RETURI 

3*0 IF N(J,KK3 THEN 399 

303 FOR 01-1 TO If 

310 IF N(J,R»«<0l} THEN 334 

313 NEXT 01 

320 SOTO Iff 

330 IF 01 >f THEN 340 

351 NU,X)-1*0i N2»«*H PUNT " • "I 

353 RETURN 



103 

123 

110 
124 



'10 



3*0 

363 

399 

300 

303 

510 

311 

S13 

314 

517 

319 

320 

333 

340 

342 

359 

340 

370 

371 

372 

373 

374 

373 

310 

591 

3B2 

3*4 

394 

700 

7*1 

7*3 

7*4 

748 

71* 

715 

720 

723 

730 

740 

741 

730 

999 



";i RETURN 
LIFE BftHE' 



3 
3 



30 

IF N3-9 THEN 374 
I'll GOTO 373 
1-21 WTO 373 



l(J,l)-1ft»*l H-Hl»1i PRINT 

RETURN 

N(J,K)"0l PRIRT ■ 

PRINT TA»<10>J'U.I. 

I2-*i N3>0 

FOR J-1 TO 

FOR K-1 10 

IIJ f l)-fl 

NEXT I 

NEXT J 

FIR B»1 TO 2i P1-3i If 0-2 THEN PI«M 

PRINT "PLATER-HI" - 3 tl« PIECES.' 

FIR XI-1 10 31 00SUI 7*0 

N(X(I),T(I)»-Pli NEXT R1 

NEXT I 

SOSUI 90 

piiNii eosm 

IF N2-0 THEN 

IF H3-0 THEN 

IF N2-0 THEN 

GOTO 580 

PRINTi PRINT 

PRINIi PRINT 

FOR l>1 TO 2 

IF 8-99 TIEN 

NEXT | 

H(X(l),r(l))-1*0l N(X(2>, 1(2)1" 1000 

I0TO 34* 

PRINT "X,T"iPRINT-XXXm-;ChM<13t; 

PRINT CHRt(13);i INPUT l(lt,X(l) 

IF XI8K-3 THER IF X<l)>0 THER 708 

00T0 730 

If T(l)<«3 THEN IF Y(1)>0 THEN 713 

OOTO 730 

IF NtX(B),Y(l>><>8 THEM 730 

IF 1-1 THEN RETURI 

If X4t)>X<2> THEN IF T<1)-Y(2) THEN 74* 

RETURN 

PRINT "SANE C00R8. 3ET TO 0" 

N(X(l>*t,Y(B>t1) a «: 1-99: RETURN 

PRINT "ILLEBAL COORDS. RETYPE-) OOTO 700 

ENB 



■A MAU-i! 

•PtAYER";*J-IS THE UIKNER" 



i PRIST! 
360 



PRINT TUYERMil 



3TDP 
QOSUB 



700 



•»i**i H ;CHRi(i3); a ii4iir 
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CKftTIVt COMUIIW W»Rl8T0U« r HOI JEMEI 



U.I. LIFE GAME 


PUTII 1 - 3 LlYE PIECES, 


M 




UI|II 




X,Y 




mill 




x,t 




IU|U 




PUTE* 2 - 3 LIVE PIECES 


x.v 




mill 




1,1 




ilimi 




X.Y 




IIMH 




12 3 4 3* 




1 • » 1 




2 • ' 




3 1 1 




4 1 • 




5 1 i 




I 1 2 3 4 fl 1 




• 1 2 3 4 3 ( 




1 • • 1 




2 * 




3 t 




4 IHt 




9 




12 3 4 3' 




PLATER 1 X.T 




mill 




PLATER 2 X,T 




nun 




4 12 3 4 3 




1 • • 




2 




3 » 1 




4 i I a I 




3 • « 




4 12 3 4 3 




PLATE! 1 X.Y 




lll|U 




PLATE! 2 X.Y 




mm 




* 1 2 3 4 3 


J 


1 • * 


1 


2 • * 


2 


3 • » K 


3 


4 1 ■ 


* 


3 1 


5 


• 1 2 3 4 5 





PUTE! 1 1,1 




111)11 




puter 2 x,r 




Ullll 




• 1 2 3 4 3 


a 


1 » • 


i 


2 • • 


2 


3 • • 


3 


4 111 I 


4 


3 


3 


• 1 2 3 4 3 






PIAUR 1 1,1 
IIUU 

PLATER 2 X.Y 
IIUU 



4 12 3 4 3 

1 • • I 1 

2 • I • 2 

3 • 3 
III! ■ * 

3 1 3 

4 12 3 4 3 4 

PUTER 1 X.T 

mill 



PLATER 2 1,1 
1U|11 



• 1 2 3 4 5 

1 • .1 

2 
I 

4 * 

3 111 

12 3 4 3 
PLATER I X.Y 

mill 



PUTER 2 X,Y 
IUIU 



4 12 3 4 3 
1 

2 » • I 

3 II 

4 I I 

3 11 3 

4 12 3 4 3 4 

PLATER I 1,1 
UUII 



PLATER 2 X.Y 
I 11(11 

SAM COORD. SET TO 



4 12 3 4 3 

I 

2 • • I 

3 I 

4 I I 
3 II 

12 14 3 
PLATER 1 X,T 
Ullll 

PLATE! 2 1,1 
Ullll 



I 1 2 3 4 5 

1 - I I 

2 • 

3 I 

4 I I 
3 II 

12 3 4 3 



PLATER 1 X.T 




USfU 




PLATER 2 1,1 




HUM 




4 12 3 4 


5 • 


1 • 1 


1 


2 » 


2 


I 1 1 1 


3 


4.1 1 


■ 4 


3 III 


3 


12 14 


3 


PLATER 1 X,T 




IIUU 




PUTER 2 X, f 




mm 




112 3 4 


3 


1 * » 




2 




3 1 




4 


■ 4 


3 11 


1 3 


112 3 4 


3 


PLATCI 1 X,Y 




IIUU 




PUTER 2 « r T 




hiim 




112 3 4 


3 


1 1 


1 


2 1 1 


2 


3 • • 


3 


4 


1 4 


3 1 


1 3 


112 3 4 


3 fi 


PLATER 1 X.Y 




nun 




PLATER 2 1,1 




mill 




12 3 4 


3 


1 1 


1 


2 I 1 


2 


3 


I 3 


4 * 


1 4 


3 1 


1 3 


I 1 2 3 4 


9 9 


PLATER 1 X,T 




U1|U 




PUTER 7 1.1 




IIUU 




I 1 2 3 4 


9 


1 1 


1 


2 1 


2 


3 * 


1 3 


4 • • 


1 4 


3 1 1 


1 3 


12 3 4 


3 4 



PLATE! 1 X.Y 
IIIUI 

PUTER 2 X,T 
IIUU 



4 12 3 4 3 

1 1 

2 12 

3 » 3 
| • 14 
3*1 113 

112 3 4 3 4 

PLATER 1 1,1 



PLATER 2 X,I 
HUH 




112 3 4 
1 

2 • 

3 • • • 

4 • II 
1*111 
12 14 

PLATE* 1 X.T 

mm 


3 4 

1 

2 

3 

1 4 

1 3 

3 


PLATE! 2 X,T 
Ullll 




• 1 2 3 4 
1 

2 • 

3 • 

4 • 
3 • 
112 14 

PLATE! 1 K.Y 

mm 


3 
1 
2 

1 3 
4 

1 3 

3 4 


PLATER 2 X.T 
MUM 




112 14 

1 

2 • » 

2 • 

4 * 1 

3 

I 1 2 1 4 

PLATER 1 I,T 
UIU1 


S 


a o 


PLATE* 2 X.T 
IIUU 




4 12 3 4 3 

1 » • 1 

2 • • 2 

3 • 3 

4 4 

5 3 

4 12 3 4 3 4 

PLATE! 1 IS THE UINNER 
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Literature 





This is a simple CAMype program 
which presents four multiple-choice 
questions from children's literature. 
Running the program is self- 
explanatory. 

The program was written by Pamela 
McGinley while at DEC. 



LITERATURE OUIZ 
CREAIIUE COHNIIIU flORRISTQUN, NEU JERSEY 



TEST YBUB KHOULESBE OF CHILDREN'S LITERATURE. 

THIS IS A WL 1 1 HE -CHOICE OUIZ. 

TYPE A I, 2, i, OS 4 AFTER THE &UEST10H HARK. 

[iflOC LUCK I 



IK PINOCCHIQ, HHAT WAS THE NAflE OF THE CAT 
IITI8KR, 2)CICER0, 3JF1A4R0, 4)6UIPETYOf 2 
58RRY...FI6AR0 UAS HIS MARE. 



FIDH UHOSE GARDEN Oil BUGS BURNT STEAL THE CARROTS? 

IHR. NIXON'S, 2IELHER FUID'S, 3JCLEH JUKB'8. 4>S[RQHWLrST 2 

PRETTY 60OBi 



IK THE WIZARD OF OZ, BOROTHT'S D06 UAS HWED 
1) CICERO, 2) TRIXIE, 3) KIM, 4) TOTO * *r 
TEA) TOU'RE A REAL LITERATURE 6IAHT. 



JHO UAS THE FAIR HRIBEH UHG ATE THE POISON APPLE 
DSLEEPIH BEAUTY, 2)CIHIERELLA, 31SHQU UNITE, 4JUEN0Y7 I 
OH, COME ON ROU...IT HAS SNQU UM1TE. 



MI IAD, BUT YOU H1BHT SPEMB A LITTLE MORE TINE 
RERUNS THE NMSERY 0SEAT5. 

HEAR U H 



flORRISTQUN, NEU JERSEY' 



1 PRINT TAB(231;-LITER*TURE OUIZ" 

2 PRINT TAB(I5);"CREAII«E COKPUTIN6 

3 PRIHWRINMPRINT 
S R»0 

TEST YOUR KNOWLEDGE OF CHILBREN'S LITERATURE. 
PRINT "THIS 18 A NULTIPLE-CHOICE OUIZ.' 



10 

12 

U 

13 

40 

42 

43 

44 

4A 

47 

50 

51 

32 

53 

54 

56 

37 

60 

41 

1,1 
43 

44 

66 

6? 

70 

71 

72 

7J 

74 

75 

74 

77 

BO 

B3 

90 

92 

?* 

96 

100 

110 

120 

130 

300 

215 

9Y» 



•TYPE A I, 2, 3, OR 4 AFTER THE QUESTION HARK.' 
PRINT -6000 LUCK I -t PRINT: PRINT 
-IN PINOCCHIQ, UHRT UAS THE NAHE OF THE CAT 
"DTIOOER. 2>CICEA0, 3JFI6AR0, 4)GUIP£TTQ"; 
44 



'SORRY. 
"VERY 



.FIGARO UAS 
I HERE'S 



HIS NAHE.' 
ANOTHER." 



PRINT ■ 
PRINT: 
PRINT 
PRINTi 
PRINT 
PRINT 

INPUT Ai IF A-3 THEN 
PRINT 
PRINT 
B-R»l 
PRINT: 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
R-RtI 
PR INT ( 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
R-R*l 

PRINT (PRINT 

PRINT "UNO UAS THE FAIR HAIKN UHO ATE THE POISON APPLE- 
PRINT "D8LEEPIN6 BEAUTY, 2)CIN»ERELLA, 3ISHOU UNITE, 4)UENDY" 



PRINT 

'FROfl UHB8E BARDCN DIB 
"UN*. NIKON'S, 2IELHER 
Al IF A-2 THEN 34 
■TOO BAD.. .IT UAS ELMER 
"PRETTY BQQ9I" 



GOTO 50 



BUJWT STEAL THE CARROTS!" 
FUDO'S, 3)CLEN JUBD'S, 4>STR0HR0LI'S 

FUDD'S BARREN,'; 0010 40 



PRINT 

"IN THE WIZARD OF OZ, BOROTHT'S 

-1) CICERO, 2) TRIXIE, 3) NINO, 
At IF A-4 THEN 46 

•BACK TO THE BOONS,. ..TOTO UAS HIS WANE.": 
■TEA1 TSU'IE A REAL LITERATURE SIAHI." 



BDO UAS 
4) TOTO 



NANED* 



GOTO 70 



Al IF A"3 

-OH, CONE 



THEN 74 

ON NN...1I 



INPUT 

PRINT 

6GT0 SO 

PRIHT -MOB REHOI1I- 

R-Rtl 

PRINTlPRIHI 

IF R>4 THEN 100 

IF R<2 THEN 200 

PRINT "NOT BAB, BUT YOU NIBHT SPEND 

PRINT -READINS THE NURSERY OREATS." 

STOP 

PRINT 

PRINT 

PRINT 

STOP 

PRINT 

PRIHT 

END 



UAS SNOU WHITE. ' 



-UOUI THAT'S SUPER! 
"YOUR NEXT OUIZ UILL 
-LITERATURE (HA, HA, 



A LITTLE WRE TJHE" 



YOU REAUY KNOW TOUR NURSERY' 
BE ON 2ND CENTURY CHINESE" 
H*l- 



"U6H. THAT UAS 
"NURSERY SCHOOL 



DEFINITELY NOT TOO SUIFT. 
FOR YOU, NT FRIEND." 



BACK TO" 
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This program is designed to 
reproduce Robert Indiana's great art 
work "Love" with a message of your 
choice up to 60 characters long. 

Your message is input as A$ in 

Statement 60. Statements 100-130 

repeat the message A$ if it is less than 

60 characters long and insert it into T$. 

Statements 210-400 actually print the 

design. The data statements are an 

alternating count of the number of 

characters and blanks which form the 

design. These data give the correct 

proportions for a standard 10 character 

per inch Teletype or line printer. The 

1 3.2 characters per inch of the Teletype 

Model 43 on which this was printed 

cause some distortion. 

The love program was created by 

David Ahl. 



• 






LOVE 
CREATIVE COMPUTING HORftlSTOW, MEU JERSEY 

A TRIBUTE TO THE GftEAT AMERICAN ARTIST, ROBERT INDIANA. 
HIS OREAT U0RK UILL U REPRODUCED U1IH A ttESSAGE OF 
TOUR CHOICE UP TO 40 CHARACTERS. IF TOU CMTT THINK OF 
A MESSAGE, S1NPLE TYPE THE UORD 'LOVE' 

YOUR NESSA6E, PLEASE? LOW 



LQVELflVELOVELOVELOUELOUELIWLOVELOVELWELOVELflVELOVELOVELOVE 



L 

L8V 

LOVE 

LOVE 

LOVE 

LOVE 

LOVE 

LOVE 

LOVE 

LOVE 

LOVE 

LOVE 
LOVE 
LOVE 

LOVE 

L 

L 

L 

L 

LOVE 

LOVEL 

LOVEL 

LOVELO 

LOVELO 

LOVELOV 

LOVELOV 

LOVELOVE 

LOVELOVE 

LOVELOVEL 

LOVELOVEL 

LOVELOVELO 

LOVELOVELQ 

LOVELOVELOV 

LQVELOVELOV 



OVELOVELOVELOVELOVELOVELOV 
ELOVELOVELOVELOVELOVELOV 
JELOVELOVELOVELOVELOVEL 
VELOVELOVELOVELOVELOVE 
VELOVELOVELOVELOVELOV 
VELOVELOVELOVELOVELOV 
VELOVELOVELOVELOVELOV 
VELOVELOVELOVELOVELOV 
VELOVELOVELOVELOVELOV 
VELOVELOVELOVELOVELOV 
VELOVELOVELOVELOVEL V 
VELOVELOVELOVELOVEL 
VELOVELOVELOVELO VE 
VELOVELOVELOVELOV 
VELOVELOVELQVEL 



LOVELOVELOVE 

LOVELOVE 

VELOVE 



V 
V 
V 
K 

VELOV 
VELOVELOV 



LOVEL 
VELOVELO 
OVELOVELOV 
LOVELOVELOV 
ELOVELOVELO 
VELOVELOVEL 
OVELOVELOVE 
LOVELOVELOV 
LOVELOVELO 
OVELOVEL 
VELOV 



VELOV 

VELOV 

VELOVELOVELOV 

ELOVELOVELO 

ELOVELOVELO 

LOVELOVEL 

LOVELOVEL 

OVELOVE 

OVELOVE 

VELOV 

VELOV 

ELO 

ELO 

L 



VELOVELOVE 

OVELOVELOVE 

OVELOVELOVE 

LOVELOVELOVE 

LOVELOVELOVE 

ELOVELOVELOVE 

ELOVELOVELOVE 

VELOVELOVELOVE 

VELOVELOVELOVE 

OVELOVELOVELOVE 

OVELOVELOVELOVE 

LOVELOVELOVELOVE 

LOVELOVELOVCLOVE 

ELOVELOVELOVE 

ELOVELOVELOVE 



ELOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
ELOVE 
LOVELOVE 
LOVELOVELOVE 
E 
E 
VELOVELOVELO E 

VELOVELOVELOVE E 
VELOVELOVELOVEL E 
VELOVELOVELOVELO E 
VELOVEL VELOVELOVE 
VELOVE VELOVELOVE 
VELOVELOVE 
VELOVELOVE 
VELOVELOVE 
VELOVELOVELOVELO t 
VELOVELOVELOVEL C 
VELOVELOVELOVE £ 
VELOVELOVELO E 

E 
E 



VELOVE 
VELOVEL 



2 PRINT TAB<33>;"UNE" 
4 nW TAItIS); 'CREATIVE 



C0HPUTIN6 HOGRiSTOUN, HEU JERSEY" 



6 PRIHTt 
20 PRINT 
PRINT 
PRIMT 
PRINT 
INPUT 



JO 
40 
SO 

6t 

7* 

100 

HO 

120 

130 

HO 

200 

205 

210 

240 

300 

410 

410 

600 

610 

420 

630 

440 

650 

6&0 

670 



690 
700 
710 
??? 



PRIHT: PRINT 

-A TRI1UTE TO THE 6REAT AMERICAN ARTIST, ROBERT INDIANA." 
"HIS OREATUQRK UILL IE REPRODUCED UITH A HESSA6E OF" 
"TOUR CHOICE UP TO 60 CHARACTERS. IF TOU C«TT THINK OF" 
"A HESSAGE, SIHPLE TYPE THE UORD 'LOVE'": PRINT 

■TOUR MESSAGE, PLEA3E*;A$: L-LEN<At> 
Din T1M2CU FOR I>1 TO 10: PRIHT: IffiXT I 

FOR J=0 TO INT160/D 
FOR I«I TO L 
TICJ*L+I)*RIDt(At»I,t> 
NEXT It NEXT J 
CxO 
=1! P»ll D"Ct1S IF C«37 THEN 999 

HT 
READ A: A1*A1*At IF P»1 THEM 300 
FOR 1=1 TO A* PRINT " ";i NEXT I: P=1i OOTO 400 
FOR I*A1-A TO Al-li PRINT HU);i «XT l! P=0 
IF A1>60 THEH 200 

GOTO 210 

■ATA 60, 1,12, 24,9.12,3,8,24,17,0,4,6,23, 21.4,4,6,22,12,5,6,5 

IATA 4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4 

1.6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4 



Al = 1 
FSII 



DATA *«|Q t *<|0|i*,»,^,-f,«,*i ,-,*t, «,»,.,«,*•,-,-- ,-,* 

DATA 4,6,1?, 1,1, 5,11, 9, 4, 4,6, 17, 1,1, 5,10, 10, 4, 4, 6, 18,2, 1,4,8, 11,4 

DATA 4,4,17,3,1,7,5,13,4,4,4,15,3,2,23,5,1,29,5,17,8 

DATA 1,29,9,9,12,1, 13,3,40,1, 1,13,5,40,1, 4,4,13,3,10,6, 12,5,1 

DATA 5,6,11,3,11,4,14,3,1,5,6,11,3,11,6,15,2,1 

D*TA 4,6,9,3,12,4, 14,1, 1,6,6,9, 3,12,4,7,1, 10 

DATA 7,4,7,3,13,4,4,2,10, 7, 6,7,3, 13, 14,10,0,6,3,3,14,6,4,2,10 

DATA 8,6,5-3,14,6,7,1,10,9,6,3,3,15,6,16,1,1 

OATA 9,6,3,3,15,4,15,2,1,10,6,1,3,16,4,14,3,1,10,10,16,6,12,5,1 

DATA 11,8,13,27,1,11,8,13,27,1,60 
FOR 1=1 TO 101 PRINT: HEXT It END 
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This game in its many different 
versions and names (ROCKET, 
LUNAR, LEM. and APOLLO) is by far 
and away the single most popular 
computer game. It exists in versions 
that start you anywhere from 500 feet to 
200 miles above the moon, or other 
planets, too. Some allow the control of 
directional stabilization rockets and/or 
the retro rocket. The three versions 
presented here represent the most 
popular of the many variations. 

In most versions of this game, the 
temptation is to slow up too soon and 
then have no fuel left for the lower part 
of the journey. This, of course, is 
disasterous (as you will find out when 
you land your own capsule)! 

LUNAR was originally in FOCAL by 
Jim Storer while a student at Lexington 
High School and subsequently con- 
verted to BASIC by David Ahl. 
ROCKET was written by Eric Peters at 
DEC and LEM by William Labaree II of 
Alexandria, Virginia. 

In this program, you set the burn rate 
of the retro rockets (pounds of fuel per 
second) every 1 seconds and attempt 
to achieve a soft landing on the moon. 
200 lbs/sec really puts the brakes on, 
andO lbs/sec is free fall. Ignition occurs 
at 8 lbs/sec, so do not use burn rates 
between 1 and 7 lbs/sec. To make the 
landing more of a challenge, but more 
closely approximate the real Apollo 
LEM capsule, you should make the 
available fuel at the start (N) equal to 
16,000 lbs, and the weight of the 
capsule (M) equal to 32,500 lbs in 
Statement 15. 

Some versions of BASIC object to 
the series expansion calculations in 
Statements 420 and 430 (as you near 
the lunar surface, these numbers get 
very small). If your does, substitute the 
following expanded form for the ex- 
pansion in Statement 420: 

-G'(1+G*(1/2*-Q"{1/3+Q*(1/4+Q/5)))) 

You should be able to figure the 
other one out yourself. 

UMft 
CREATIVE COnPUUKG MG1HIST0UM, HEU JESSET 

IBIS 18 A CIMPUTFR 8IHUUIICN OF A* APOLLO LUNAR 
LM1IKQ CAPSULE. 

THE GM-BOAS0 COMPUTER HAS FAILED 

SO TOM HAVE IS LAND THE CAPSULE MANUALLT. 

SET BUSK BATE OF RETRO ROCKETS TO AMY VALUE BETUEEH 
(FREE FALL) AND 200 IMXIHUR BUR*) P0UMB8 PER SECOND. 
SET HEtl BUM RATE EVERT II SECOHIS. 

CAPSULE UEI6HI 32,300 LBS; FUEL UEIQHT 16,500 LBS. 



QOOI LUCK 




SEC 


HI t 





120 


10 


IM 


!0 


If 


JO 


89 


to 


7» 


30 


43 


*0 


38 


JO 


47 


ao 


37 


« 


26 


100 


20 


110 


13 



FT 



*PH 



U FUEL 



NftN SATE 





3015 
4223 
2903 
If 33 
3f59 
1053 
2?03 
1883 
11?1 
1231 
254? 
120 8 370 

*3» 3 37713 

ON H00N AT 13?. 924 SECONDS - 
SORRT THERE UERE K0 SURVIVORS. YOU BLEU IT 
II FACT. T0U BLASTED A HEU LUNAR CRATER 347 



3400 

3*36 

3472 

3708 

3744 

3780 

3816 

3852 

3482.97 

3006.71 

2*59.45 

2m. « 

1692.63 
1440.59 

IflPACT VELQCI1 



1*500 

16300 

16500 

U500 

16300 

1650 G 

I65O0 

16300 

14300 

12300 

10300 

8300 

6500 

55O0 

T 1253.25 







o 







200 

200 

200 

200 

200 

100 

73 



flPH 



.15 FEET DEEPI 



T*tr 

20 
25 
30 
40 

30 



90 

100 

1T0 

120 

130 

140 

150 

UO 

170 

180 

T90 

200 

210 

220 

230 

2*0 

250 

260 

270 

280 

28? 

284 

286 

288 

■300 

310 

3?0 

330 

340 

350 

360 

370 

380 

3T0 

400 

410 

420 

430 

440 



COMPUTING HORRISTOUW, HEU JERSEY* 



MAIMTI 

PftlHT TA8(33);"LUNAR' 
PRINT TABM3):"CR£ATIVE 
PRINTjpRIHTiPRIKT 

PRINT "THIS rs A COMPUTER SIMULATION OF Ait APOLLO LUNAR" 

PRINT "LANDING CAPSULE.*; PRINT: PRIHT 

PRINT "THE 0H-B0ARB CONPUTER HAS FrtHED <IT UAS HAOE BY" 

PRINT -XEROX) SO T0U HAVE TO LAND THE CAPSULE RANUAUY." 

PRINT: PRINT -SET BUR* RATE OF RETRO DOCKETS TO ANY VALUE BETWEEN' 

PRINT *0 1FREE FALL) AH* 200 tHAHHUH BURNJ POUNDS PER SECOND.' 

PRINT "SET NEW BURR RATE EVERY 10 SECONDS.": PRINT 

PRINT 'CAPSULE WEIGHT 32,500 LBS; I'UEL WEIGHT H t 500 LBS.' 

PRINT: PRINT: PRINT: PRINT "GOOD LUCK* 

L=0 

PRINT: PRINT 1ECVHI * Fr\"HPH-,"LB FUELV8URH RATE":P81HT 

A=12OiV-t;H=33O0O<tN=J650O:6=IE-O3:Z=1.8 

PHRT L,INT(A);iHT(5380*tA-IHTCA)>> f 3600*V.H"N,iINPUT KiT-10 
IF H-N<1£-03 THEH 240 

IF T<tE-03 THEN 150 

S=T: IF H>"N+5*K THEN 200 

S=(N-N)/K 

GOSUB 420: IF I<=0 THEH 340 

IF V<«0 THEN 230 

IF J<0 THEN 370 

<GQSUB 330l GOTO 160 

PRINT "FUEL OUT AT';L;"S£C0NDS"; 

V=V*D*$; L"ltS 

U=3400»V: PRINT "OR NOON AT* ;L;"S£C0rtBS - IHPACT VELDCITPZRrflPH' 

IF U<-(,2 THEN PRINT "PERFECT LANDING!": 6OTO440 

IF U<=I0 THEN PRINT "GOOD LANDING (COULD BE BETTER)" :G0IO440 

IF U>60THEN300 
PRINT "CRAFT DAHAGE.. 
PRINT "PARTY ARRIVES, 
GOTO 440 

PRINT 'SORRY THERE UERE NO SURVIVORS. YOU BLEU IT!" 

PRINT ■!■ FACT, YOU BLASTED A NEU LUNAR CRATER";g».277;"FEET BEEpi 

B0T0 440 

L"L+S: T«T-Sr H"H-S*K: A'li V*J: RETURN 
IF S<5E-03 THEN 260 
D=V*SOR(V«U*2'A*<G-Z*K/tt));S=2*fl/0 
G0SUB42O: 603UB 330t GOTO 340 

U*U-H*B/C2*K))/2i S=^V/(Z*KKUt3GR(U*UtV/n)K.05:6GSUB 420 
IF IOO THEN 340 

GOSUB 330: IF J>0 THEH 160 

IF V>0 THEN 370 

GOTO 160 

R=S*K/Hr J-V*&*S+I*(-fl*Qtg/2-0 A 3/3-8"4/4-8^5/5) 

I=A-6tStS/2-V*S+Z«S*CO/24a~2/4+<l-37r2*fl'4/20*Q'5/30J:RETURN 
PRINT:PRINT:PRINT:PRINT "TRY AGAIN?*": GOTQ 70 



'<-V+SGR(V*V*2*A*6))/G 



YOU'RE STRANDED HERE 
HOPE YOU HAVE EHQUGH 



IWTJL A 
OXYGEN! 



RESCUE- 
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This is the most comprehensive of 
the three versions and permits you to 
control the time interval of firing, the 
thrust, and the attitude angle. It also 
allows you to work in the metric or 
English system of measurement. The 
instructions in the program dialog are 
very complete, so you shouldn't have 
any trouble. 

LEA MEM IK CQBPUTIHG H0MU3T0UN, MEU JERSET 
LUHtR lAMIM SIHULKT10N 
HAVE YOU fLOUK AH APOLLfl/LEH 
UhlCH SYSTEH Of AEASU8EHEHT D 
1-HETftlC O'EHOUSM 

ClfClt IHE APPROPRIATE WIMER? 



HISS1QN BEFORE 
)0 *QU PREFERT 



1 



(YES OR H0)9 NO 



OF 



YOU ARE Q* A LUMfi LANDING HISSIO*. AS IHE PILOT 
THE LtWM EXCMSIO* NODULE. YOU UILL BE EXPECTED TO 
61VE CERTAIN COMMM TO THE AQDULE NAVIGATION ST8TEH. 
THE 0«-»0*RD COHPUTER UILL GIVE A RUNBING ACCOUKT 
Of IHFORNATION NEEDED TO NAVIGATE THE SHIP. 
THE ATTITUDE ANGLE CALLED FOR IS BESCRIIED AS FOLLOWS. 
* OR -190 DEGREES 18 DIRECTLY AM! FROfl THE NOON 
-*0 DEGREES 18 ON A TAR6ENT IN THE DIRECTION OF 9RBIT 
♦90 DEGREES 18 ON A TANGENT FROM THE BISECTION OF ORBIT 
(ZERO) DE0REE8 18 DIRECTLY TOUARI IHE HOON 



-160,180 



-90 



) 90 



< -♦- 
I 


« DIRECTION OF ORBIT « 



SURFACE OF NOON 
ALL ANGLES IETNEEH -II 



AND 180 DEGREES ARE ACCEPTED. 



1 FUEL UNIT • 1 SEC. AT MX THRUST 

ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL 

FGR AN ATTITUDE CHANGE. 

AVAILABLE ENGINE POUERi (ZERO) AND ANY VALUE BETWEEN 

10 AND 100 PERCENT. 

NEGATIVE THRUST OR TIRE IS PROHID1TEB. 

INPUTi TINE INTERVAL IN SECONDS IT) 

PERCENTAGE OF THRUST IP) 

ATTITUDE ANGLE IN DEGREES <*) 

FOR EXANPLEt 

T,r,AT 10,43,-40 

Tl AMR1 IHE HISSION AT ANY TINE, ENTER 0,0,0 

OUTPUT: TOTAL TINE IN ELAfSEB SECONDS 
HEIGHT IN FEET 

DISTANCE FROH LANDING SITE IN FEET 
VERTICAL VELOCITY IN FEET/SECOND 
HORIZONTAL VELOCITY IN FEET/SECOND 
FUEL UNITS REHAIN1N6 

IUIU 

I.P.AT 500,0,0 

500 104292 

T,P,»T 100,0,0 

&oo loom 



T.P.AT 50,90,-90 

650 102914 

T,P,AT 100,23,0 

?50 101907 

T,P,AT 50,90,-90 

100 101993 

T,P,A? 100,40,-90 

900 98339.8 

T » p '* t 30,10.0 
950 9*5 11.6 

T,P f At 50,100,0 

1000 9 3 320. 2 

T,P,At 50,1*0,-90 

1030 94322.6 

T.P.AT 30,100,-90 

1)00 93090 

I.P.AT »,100,-90 

1130 89144.7 

I,P,AT 100,100,-90 

1230 71572.2 



-5.87425E*04 1415.4 750 

-5.11433E»04 -19.2028 1419.92 750 

-4.94342E*04 -22.7244 1421. 7G 750 

-4.89021E+04 -30.3757 1484.58 703 

-4.75003E*04 10.3519 1435.12 482.001 

-4.48314E*04 -8.7678G 1341.57 437.001 

-4.3422E*06 -47.3979 1213.07 397.002 

-4.30472E+O4 -85.7323 1213.43 592.002 

-4.44704Et04 38.8848 1214.44 542.002 

-4.3933E*04 -.408409 1041.38 492.002 

-4.34794Et04 -30.2899 862.287 442.002 

-4.31115E*04 -108.811 477.922 392.002 

-4.24J82E«04 -244.445 290.194 292.002 



T.P.AT 


50,100,0 


1300 


42205.7 


T,P,*T 


100,50,0 


1400 


52014.2 


I,P,M 


100,40,-90 


1300 


34711.4 


T.P.Af 30,30,90 


1550 


23159.8 


T.P.AT 


30,30,90 


1400 


3433.9 


T.P.Af 


10,0,0 


1410 


1435.42 


T.P.AT 


10,100,0 


1414 


,3 -142.239 



-4.24981E406 


-124.903 


291.928 


242.002 


-4.221 4?E*04 


-73.8944 


293.414 


192.002 


-4.20102£*06 


-231.303 


116.821 


152.002 


-4.19258E*04 


-310.782 


232.732 


127.002 


-4.17I24E*06 


-390.108 


352. 728 


102.002 


-4.174?1£*04 


-403.94 


333.544 


102.002 


-4.17312E*04 


-393.08 


353.917 


97.501! 



CRASH HllimiHIMM 

YOUR IHPACT CREATED A CRfcTER 142.23? NETEAS DEEP. 

AT CONTACT TOD UEAE TAAVELIN6 1904.13 KILOHETERS/HR 

DO YOU UAtIT 10 TRY II A6AIN (YES/NIT 

T MO THANKS ■ 

DO YOU WANT TO TRY IT AGAIN <YES/NO)t 

TOO IAD, THE SPACE PROSRAH HATES TO LOSE EXPERIENCED 
ASTRONAUTS. 



2 PRINT TAt(30;"LE«" 

4 PRINT TABIIS>;-CREAT!VE COttPUTIHO 

7 REN R0CKT2 IS AH INTERACTIVE 6AHE 

fl PEN LANDlHfl IS SIMILAR TO THAT Of 

* REM THEM II AMOLUTELY KO CHANCE 

10 ZI»"B0" 

15 I1«1 

20 «>17,« 

23 F1-3.25 

30 IW.3 

35 RO-124 

40 V*»1*2f 

45 TO 

30 H0«40 

55 R-RO+ttO 

40 A—3.423 

45 RI-0 

70 A1-S.84341E-44 

75 R3-0 

80 A3*0 

111-7*43 

hO-Rt 

1-730 
Tl*t 
F*0 



AOftRISTOUrl. NEU JERSEY" 
THAT SIMULATES A LUNAR 
THE APOLLO rMOIMR. 
INVOLVE* 



85 

90 

73 

100 

105 

110 

115 

120 

123 

130 

135 

140 

145 

134 

155 

140 

H5 

170 

173 

180 

1S3 

1*0 

1t5 

200 

203 

210 

213 

220 

225 

230 

233 

240 

243 

250 

235 

240 

270 
275 
280 
2B5 
2*0 



N«1 

N2«0 

S-0 

C-0 

If Z»" 

PRINT 

PRINT 

PPIHT 

MINI 
PRINT 
INPUT 
U 01- 

ir at* 

PRUT 



'YES* THEN 1130 

'LUNAR L4MIN8 SIMULATION" 



FLCUH 
HQJ"i 



-HftVE YOU 

- (YES OR 

M 

"YES- THEN IfO 

■HO* 1 THEN 205 

*JUST ANSUCR THE 



AN APOLLO/LEH NISSIOH BEFORE 1 '; 



QUESTION, PLEASE, 






141 

PRINT 

PRIM "INPUT 

BDTO 225 
PRINT 



neasureheht option number-; 



"YHICH SYSTEM OF MEASUREMENT DO YOU PREFERT' 
* 1-fiETftIC ^ENGLISH" 

■ENTER THE APPROPRIATE NUH»EI"J 
K 



PRINT 

PRINT 

PRINT 

INPUI 

PRINT 

IP K-0 THEN 200 

IF X«l THEN 250 

SOTO 220 

Z'1832.B 

Mi-MTEM' 

03*3.4 

NI-" KILOftETEIS" 

B5-10O0 

GOTO 305 

Z*6080 

HM-PEEV 

01<.3t2 
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»3 **--M.«ILES- 
3M C3-Z 

385 If Bl-3 IH6K 470 
310 IF «|-r£3- THEN 483 
315 HINT 

330 PRINT 

« jjgj -o ,,«,, D£M LS-iS {JSSt'SJ!! e t S"SS? of "•"' 

385 MINT 1ftB(30);--llO,(M" 

390 PRINT T4B<34>; — 

3t3 PRINT Ul(27>:--f« < -»- > ?o- 

489 PRINT TNBl341I"f 

403 PRINT T*8(34);-fl" 

Jis mm mi23i ' H<< "«««» of OMIT «" 

423 PIlJI T " l27) '' 8U,,f « E » UN 1 
430 PRINT 

J" SiS "* U H8l£S l ™« ■'* *» «• ««*« ME kcepteb.- 

445 PRINT -i FUEL UNIT ■ I SEC AT -«i TMiw** 

S Bf s s-s-ss- ™- - » n. * „ F „, 

4t! m!!"""" 1 " IHfiMT " " K » "WIIIIEI.- 

485 PRINT 

Jg "J" : J " PU " THE INTERVAL IN SECOHIS „,. 

ill I! II . KKWAU 8F TNRUSI - I - 

500 PRINT „ l|?Mf WLE „ |EWKfl «J>. 

510 IF 80-TE8" THEN 535 
513 HINT -FOR EXAHPLE;' 
320 PRINT V.P.At 10,45,-40- 

111 mm " I0 fl,W ' Tw ■"*■ « *"' W. »*■ o,*.o" 

S" SIS : ou " u " a,™.!;,"" 8 " ««»■■ 

s E : SiF tows* 
ggg- ~s ass,? ™— 

370 8010 470 

375 PRINT 

580 PRINT -T,P,»"; 

385 INPUT fl,f p 

390 F>F/1O0 

395 IF Tl<0 THEN 905 

400 IF M-f THEN 1090 

405 IF «BS(f-.05)>1 THEN 943 

ill IF «ltf-.8Sl<.03 THEN 945 

413 If ABS(P»I80 THEN 923 

420 N-20 

423 IF TK400 THEN 433 
430 H-T1/Z0 

435 Tl.Tl/N 

440 P*P«3.14159/180 
445 S-SINIP) 
4S0 C'COS(P) 
455 HZ-IN«Tf*r/| 

1!! " s "; 5 ! r<,,<( ^«>-2)*r-ni«i 

643 A3=-2*RUAI/R 
470 FOR I> | TO N 
473 IF fli-0 ih£H ?|5 
480 AlaR|-ft? 
485 IF Hl>0 THEN 723 

490 f«F«(1*H1/H2l 
493 H2-NI.N2 

700 PRINT "TDU ARE OUT OF FUEL." 
703 H1-0 

710 6010 725 

715 FO 

728 H2=8 

723 H"H-.5*H2 

738 R4-R3 

733 R3»-.3«R0*((i«/8)-2j #R , 1 , t , fl | 

'40 R2-13«t3-«4)/2*.00524«FI«f-C/H 
?45 84-A3 

'50 83-2.R1.81/R 



735 «2-(3»«3-fl4>/2*.0854«FI-F.S7(H«) 
740 X<Rl*I1».3*R2fT1«TI 

745 (■. = (■>.( 

770 H0"N0tX 

775 Rl*RlHt2*H 

780 4'flt*1.T1».3.A2»Tl.T1 

783 AI-AI*A2>I) 

790 H"N-.5tfl2 
795 T-T.TI 

803 " H . 9< ™ m7K -*< THEN 810 

810 H«K0*2 

815 H1>R1*Z 

820 T>R9«A»Z 
823 II ■».*!. 7. 

830 T2-HHB/N0 

835 mm ' -;t;t*8(ioj;h;tm(23,;d ; 

IS II W<3 -»«2«-04 THEN 810 

830 IF R8-A>144.4734 THEN 1030 

855 IF H1>0 THEN 580 

840 11-20 

8*3 F-0 

870 P-8 

873 GOTO 420 

III IE !«;f- ?m7£ -° 4 uai <«o 

III ! "f ( «'*1»4.931742E-04 THEN 1024 
tS \l "<" 3 - 28? ««-« THEN 1020 

920 8010 375 
975 PRINT 

?40 GOTO 3?5 

•<a ptirtr 

III "'"WT, ss ,ll iC , "" 1 -* " 

»« If F-.03<.05 IME(. 973 
VA3 mHT TOD tAROE' 
970 flOTO 3?3 
t#5 PRIMt "TOO SIUU- 

no eoio 375 

983 HUNT "NEOAriVC- 
9?0 60TO 573 

9M nijtr 

t020 MINT 

1023 PRINT "CRUSH f I M 1 1 1 M 1 ) f f > f (■• 

mi s.;z,iK!,. c r" * """•'-« •• 

183* PRINT 

.'J" 8"!!',;;S U "" "■ L °" « "« "TTH NO HOPE OF RECOVER,, 

1045 PRINT -TOU ftRf DOUN SNFELY - - 
T075 PRINT 

ml ffi:*,;*," " ,8S " " "«»'«« s<, E «.„,„,„„.„ 

1090 MINT 

10*3 PRINT -NISSION 88FNBEB- 

tlOO MINT 

!!!2 SB ;« ' ou -« T0 trt , t „»!* irES/N0)r 

1113 If Z*»-Y£s- THEN 20 
1120 IF Z»»-HQ- THEN 1130 
1125 GOTO 1105 
1130 PRINT 

1145 STOP 
1150 PRINT 

!!S Si." :s;; P ;? , T 5,ss I {j: " W " ,E '« s ""»'»« « i- m 

lit? If 1 "' "'■'»•'«" iMmuciiou- 

T180 INPUT 81 

1185 0I--N0- 

1190' If I]., iheb 2H 

1195 8M-TE3- 
1200 IF Bt-2 THEN lt 
1205 If 81-3 TH£H 190 
1210 GOTO 1143 
1215 ENE 
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In this version, you start 500 teet 
above the lunar surface and control the 
burn rate in 1-second bursts. Each unit 
ot fuel slows your descent by 1 ft/sec. 
The maximum thrust of your engine is 
30 ft/sec/sec. 

POCKET 

creative conpuxme morribtoun, mem jersey 



LUNAR LANDING SIMULATION 

DO TOU BAIT IISTAHC1I0HS (YES OB HQ>? YES 

YBU ARE LMIIM ON THE BOOK AND HAVE TAKEN OVER MANUAL 
C8HIRIL 300 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A 
BOUNBARt VELOCITY OF 5t F1/8EC. 120 UNITS Of FUEL REMAIN. 

HERE ARE THE RULES THAT GOVERN TOUR SPACE VEHICLE: 

tl) AFTER EACN SECOND, THE HEIGHT, VELOCITY, AND REMAINING 

FBEL BILL RE REPORTED. 
(2> AFTER THE REPORT, A 'V MILL BE TYPED. ENTER THE 
IOABER OF UNITS OF FUEL TOO UISH TO BURN BUR1NG THE 
NEXT SECOND. EACH UNIT OF FUEL UILL 8L0U YOUR ICSCEHT 

|Y I FT/SEC. 

(J) THE H1X1HUH THRUST OF YOUR ENGINE 13 30 FT/GEC/SEC OR 

30 UNITS OF FUEL PER SECOND. 

(4) UHEN YOU CONTACT THE LUNAR SURFACE, YOUR BESCEHT ENGINE 
UILL AUTOMATICALLY CUT OFF AND YOU UILL BE GIVEN A 
REPORT Of YOUR LAND1N6 SPEED AND REMAINING FUEL. 

(5) IF YOU RUN OUT OF FUEL, THE 'T' UIU MO LONGER APPEAR, 
IUT YOUR SECDND-BY-8EC0N8 IEP8RI UILL CONTINUE UNTIL 
Till CONTACT THE LUNAR SURFACE. 



BEGINNING LANDING PROCEDURE. 

oooi men i i 



SEC FEET 


STEER 


FUEL 


PLOT Of DISTANCE 


• 390 


30 


120 


t 


7 








1 447.3 


55 


120 


1 


T 








2 390 


40 


120 


I 


1 








3 327 .3 


A3 


120 


I * 


T 








4 260 


70 


120 


I • 


T 10 








3 1*2.3 


A3 


110 


I • 


? 3 








i 127.3 


A3 


103 


I » 


T 23 








7 72.3 


43 


80 


I • 


T 23 








1 37.3 


23 


33 


I • 


T 23 






i 


9 22.3 


1 


30 


I» 


T 7 








10 18.3 


J 


23 


If 


T7 








11 14.1 


1 


16 


I» 


? 4 








12 13 


2 


13 


[• 


? 3 








13 12 


* 


9 


I* 


T 3 








U 7 


6 


A 


1* 


t 4 








•••• OUT OF.fUCLM»« 




IS 1.3 


3 





I* 


*«•• CONTACT mm 






TBUCHBOUN AT 13.244? SECONDS. 


LANDING VELOCITY » 


4.32434 FEET/SEC. 


t UNITS Or FUEL REMAINING. 




mm* SORRY 


, BUT YOU BLEU III III 


APPROPRIATE 


CONDOLENCES UILL IE SENT TO YOUR NEXT OF KIN. 


MOTHER H1SSIINT IK 


1 THANKS! 




CONTROL OKI 


I 







10 
2B 
30 

70 

to 

100 

110 

140 

200 

210 

220 

223 

230 

240 

250 

240 

270 

200 

2» 

310 

320 

3J0 

340 

350 

340 

370 

380 

390 

400 

420 

430 

430 

433 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
i INPUT 



IAB(IS)! : CREATIVE COMPUTING MORRISIOUN, NEtf JERSEY' 

PRINTlPRINT 

"LUNAR LANDING SIMULATION" 

—"I PRINT 

ID YOU UANT INSTRUCTIONS (YES Oft *0!";M 

■■NO" THEN 390 



•YOU ARE LANDING ON THE NOON AND HAVE TAKEN OVER MANUAL" 
•CONTROL 300 FEET AIDVE A 600D LANDIN8 SPOT. YGU HAVE A" 
■&QUNUA8D VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAIN." 



'HERfc 
Ml) 



IF At 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT 

PRINT 

PRINT 

PRINI 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINTlPRINT 

PRINT -DEC 

PRINT 

l-C-:H-5O0:V 



ARE THE RULES THAT BOVERN YOUR SPACE VEHICLE:" 

HEIBHT. VELOCITY, AID RENAINIHB" 



(2) 



"(3) 

■ 

"(4) 



UIU BE TYPED. ENTER THE" 
YOU HIGH TO BURN DURING THE" 
Of FUEL UILL SLOU YOUR IESCENT" 



AFTER EACN SECOND, THE 

FUEL UILL IE REPORTED.' 

AFTER THE REPORT, A '?' 

NUMBER OF UNITS OF FUEL 

NEXT SECOND. EACH UNIT 

IY 1 FT/SEC." 

INE HAJIMUN THRUST 8F YOUR ENGINE IS SO FT/8EC/SEC OR" 

JO UNITS OF FUEL PER SECOND." 

UHEN YOU CBNTACT INE LUHAK SWttC, YOBR DESCENT ENGIME' 

UILL AUTOMATICALLY CUT OFF AND YOU UILL BE GIVEN A" 

REPORT Of YOUR LANDINS SPEED AN8 REMAINING FUEL." 



'13) 



IF YOB RUN OUT OF FUEL, THE *?' UILL HO LONGER 
IUT YOUR 8ECON8-BY-SECOND REPORT UILL CONTINUE 
YOU CONTACT THE LUNAR SURFACE.": PRINT 

"IE6INNINI LANDING PROCEDURE "I PRINT 

-8 081 tUGKIir 



APPEAR,' 
UNTIL" 



FEET SPEE8 FUEL 
-301F-126 



PLOT Of DISTANCE' 



490 PRINT T[T4l(41iH;TAI(12);V;T»D(20);f;TA8(2?);"I";TAHH/12*2»);' 



3*0 INPUT I 

310 IF KO THEM 431 

520 IF l>JO THEN l>30 

3J0 IF l>F THEN l-F 

3*0 V1"U-f3 

310 F-F-l 

370 f H-.5»(V«V1) 

380 IF KOO THEN 470 

390 T«T»1 

4t0 VV1 

410 IF F>0 THEN 490 

415 IF 1-0 THEN 440 

420 PRINT ••••• OUT OF FUELMM- 



440 PRINT T;TAI(4>;H;TAIII2>;V;TAI(20);F;TAI<2»>;"r;TAtlH/12.2?>;"-' 

4S0 ft 

440 GOTO 540 

671 PRINI ■*••* CONTACT mm" 

4BA H-N*.3»(V»VI) 

490 IF 1-3 THEN 720 

7*0 B-(-V*SM(V»V*H«<lO-2"t>)t/(3-DI 

710 GOTO 73t 

720 D'H/V 

710 VI>V*(S-D)*D 

740 PRINT "TOUCHDOUH AT";T»l;"SECON0S.- 

770 PRINT "LANDIN8 VELOCITY -";V1;"FEET/5£C." 

780 PRINI F;"UIITt OF FUEL REMAINING." 

790 IF VIOO THEN lit 

800 PRINT •CONBRATULATIGNS) A PERFECT LANDING!" 

805 PRINT -YOU* LICENSE UILL IE RENEWED LATER" 

81t IF AIKV1X2 THEN 840 

820 PRINI "MM! SORRY, BUT YOU BLEU ITU II" 

830 PRINI "APPROPRIATE CONDOLENCES UILL BE SENT TO YOUR NEXT OF KIN." 

840 PRINT: PRINI t PRINT 

850 INPUT "ANOTHER NISSION'JAI 

840 IF AIVYES' THEN 390 

870 PRINT! PRINT "CONTROL OUT."! PRINT 

9*9 Ell 
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Master Hind 



In the March-April 1976 issue of Crea- 
tive we published a computerized version 
of Master Mind, a logic game. Master Mind 
is played by two people— one is called the 
code-maker; the other, the code-breaker. 
At the beginning of the game the code- 
maker forms a code, or combination of 
colored pegs. He hides these from the 
code-breaker. The code-breaker then at- 
tempts to deduce the code, by placing his 
own guesses, one at a time, on the board. 
After he makes a guess (by placing a com- 
bination of colored pegs on the board) the 
code-maker then gives the code-breaker 
clues to indicate how close the guess was 
to the code. For every peg in the guess 
that's the right color and in the right posi- 
tion, the code-breaker gets a black peg. 
For every peg in the guess that's the right 
color but not in the right position, the 
code-breaker gets a white peg. Note that 
these black and white pegs do not indicate 
which pegs in the guess are correct, but 
merely that they exist. For example, if the 
code was: 

Yellow Red Red Green 
and my guess was 

Red Red Yellow Black 
I would receive two white pegs and one 
black peg for the guess. I wouldn't know 
(except by comparing previous guesses) 
which one of the pegs in my guess was the 
right color In the right position. 

Many people have written computer 
programs to play Master Mind in the pass- 
ive role, i.e., the computer is the code- 
maker and the human is the code-breaker. 
This is relatively trivial; the challenge is 
writing a program that can also play ac- 
tively as a code-breaker. 

Actually, the task of getting the com- 
puter to deduce the correct combination is 
not at all difficult. Imagine, for instance 
that you made a list of all the possible 
codes. To begin, you select a guess from 
your list at random. Then, as you receive 
clues, you cross off from the list those 
combinations which you know are impos- 
sible. For example if your guess is Red 
Red Green Green and you receive no 
pegs, then you know that any combination 
containing either a red or a green peg is 
impossible and may be crossed off the list. 



The process is continued until the correct 
solution is reached or there are no more 
combinations left on the list (in which case 
you know that the code-maker made a 
mistake in giving you the clues some- 
where). 

Note that in this particular implementa- 
tion, we never actually create a list of the 
combinations, but merely keep track of 
which ones {in sequential order) may be 
correct. Using this system, we can easily 
say that the 523rd combination may be 
correct, but to actually produce the 523rd 
combination we have to count all the way 
from the first combination (or the previous 
one, if it was lower than 523). Actually, this 
problem could be simplified to a conver- 
sion from base 10 to base (number-of- 
colors) and then adjusting the values used 
In the MID$ function so as not to take a 
zeroth character from a string if you want 
to experiment. We did try a version that 
kept an actual list of all possible combina- 
tions (as a string array), which was sig- 
nificantly faster than this version, but 
which ate tremendous amounts of mem- 
ory. 

At the beginning of this game, you input 
the number of colors and number of posi- 
tions you wish to use (which will directly af- 
fect the number of combinations) and the 
number of rounds you wish to play. While 
you are playing as the code-breaker, you 
may type in BOARD at any time to get a list 
of your previous guesses and clues, and 
QUIT to end the game. Note that this ver- 
sion uses string arrays, but this is merely 
for convenience and can easily be con- 
verted for a BASIC that has no string ar- 
rays as long as it has a MID$ function. This 
is because the string arrays are one-di- 
mensional, never exceed a length greater 
than the number of positions and the ele- 
ments never contain more than one 
character. 



RASTER rlifltl 
CREATIVE C0flPim«6 flORRISIOUN, NEW JERSEY 



HUH BE* OF COLORS' 4 
RUBBER OF POSITIONS* < 
HUtlBEK OF ROUNDST 1 
TOTAL POSSIBILITIES - 25d 



COLOR 

BLACK 

UNITE 

RED 

GREEN 



LETTER 

■■■■■* 
I 
II 

R 



ROUKB HUKBEft 1 

guess ar cqmimtuw. 



C WHITES. 

I UHITES. 

WHITES, 

t WHITES. 



nove i i 

TQU HAVE 

HOVE I 2 

YOU HAVE 

HOVE I 3 

TOU HAVE 

HOVE | * 

vat; HAVE 

HOVE I 5 

TOU GUESSES 

SCORE; 

COMPUTER 
HUHAtf 



NOU I GUESS, THINK Of A COHBIHATIOH. 
KIT RETURN WHEN READT T 
HT GUESS IS* RRGR BLACKS, 



GUESS ? BUUG 

2 HACKS AND 

BOESS 1 UURR 

2 BLACKS AND 
GUESS T UUftG 

3 BLACKS AND 

GUESS T UUlft 

1 BLACKS AHD 
GUESS ? RliRG 

IT IH 5 H0VE5* 



HY GUESS IS: 
HT GUESS IS: 
NT GUESS IS: 
I GOT IT IH 
SCOREt 

COMPUTER 
HIM A ft 

GAttE OVER 
FIHAL SCORE: 
COMPUTER 

HUMAN 



GBBS 
DUBS 



BLACKS, 
BLACKS, 
BLACKS, 

MOVES' 



UHITES 
UHITES 
UHITES 

WHITES 



v 

3,. 

V 



4 

5 



Master Mind® is a game manufactured bi 
Invicta Plastics, Ltd, 
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KASTERHIHD 
CREATIVE CONFUTING RORRISTDUH, NEU JERSEY 



MUNICH OF COLORS' 5 
NUHBER OF POSITIOItSI 4 
NUHBER OF ROUNDS? 1 
TOTAL POSSIBILITIES = 625 



COLOR 


LETTER 


t«*x = 




BLACK 


8 


UNITE 


u 


RED 


1 


GREEK 


1 


GRANGE 






ROUND NUHBER t 

GUESS NY COMBINATION. 



HOVE I 1 
YOU HAVE 
HOVE I 2 
YOU HAVE 
HOVE t 3 
YOU HAVE 
MOVE I 4 
YOU HAVE 
HOVE ■ 3 
YOU OUESS ED 
SCORE! 

COMPUTER 



suess ? iubu 

1 BLACKS AND 

GUESS Y BBUQ 
3 BLACKS AND 

GUESS ? 8 DUG 
3 BLACKS AND 

GUESS t IBM 
3 BLACKS AMI 

GUESS * * R UN 
IT IN 



2 UNITES* 

UNITES. 



WHITES* 



UNITES. 



3 MOVES! 




5 



NOV I OUESS. THINK OF A 
HIT RETURN WHEN READY T 



COMBINATION. 



MY GUESS ISt 
NY GUESS IS: 
NY GUESS IS: 
NY OUESS lSi 
I 60T IT IN 
SCORE: 

COMPUTER 
HUNAN 



BRRO BLACKS, 

RRUU BLACKS, 

GBRG BLACKS, 

ROGO BLACKS, 
* ftOVES! 

* 
3 



WHITES 
UHITES 
WHITES 

WHITES 



M 

0,2 
4,0 



OAHE OVER 
FINAL SCOREi 

CONFUTE* 4 

HUrtAH 3 



NORRISYOUN, NEW JERSEY" 



2 PRINT TABOO) ;"NASTER Mil* 

4 PRINT TAB(15>;"CREATIUE CONFUTING 

6 PRINT: PRINTt PRINT 

10 REM 

HASTERNIHD M 

STEVE NORTH 

CREATIVE CONFUTING 

PQ BOX 789-N WRR13TQUN NEU JERSEY 07960 



20 
30 
40 
50 
AO 
70 



REN 

REN 

REN 

REN 

REN 

REN 

80 INPUT -NUMBER OF C0L0RS";C9 

n IF C*>t THEN PRINT 'NO HORE THAH 8, PLEASE !*tQ0TO 10 
100 INPUT "NUHBER OF POSITIONS";?* 
110 INPUT "NUMBER OF ROUNDS" JR9 
120 P-C9*P9 

130 PRINT "TOTAL POSSIBILITIES »";P 
140 H>0lC"O 
150 DIN QCP?),S<10,2>,S8<10) f AKP?> f 88<P9M<P>,HI(P?> 

160 LS^BUROOYPT* 

170 PRINT 

ISO PRINT 

IPO PRINT "COLOR LETTER - 

200 PRINT ■=■"■ ■■»■*■* 

210 FOR X>t TO C? 

220 READ X4 

230 PRINT X*;TA8(13>;MB*<LI,X t 1) 

240 NEXT X 

250 PRINT 

260 FOR R-l TO R? 

270 PRINT 

280 PRINT "ROUND NUHIER "JftJ" ■ 

290 PRINT 



300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

430 

460 

470 

480 

490 

500 

510 

520 

330 

340 

550 

560 

570 

380 

590 

60* 

610 

620 

422 

623 

624 

625 

626 

627 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 



BAD NUHBER OF POSITIONS.' (GOTO 380 



PRINT "BUESS NT CONBINAI IBN." 

REN SET A COMBINATION 

A-IMT<P*RND{1>*1} 

80SUB 3000 

FOR X«1 TO A 

GOSUB 3500 

NEXT X 

FOR N-1 TO TO 

print -hove t *;«;" guess ";u»put x* 

IF Xt*"BOARD" THEN 2000 

IF X**'QUIT rt THEN 2300 

IF LEN4XtK>P9 THEN PRINT 

REN UNPACK X* INTO M(1-PM 

FOR X-1 TO P9 

FOR Y*1 TO C9 

IF NID$<XSX,1S=NIBI<L4,Y,1) WEN 480 

NEXT Y 

PRINT "'■; MB*(»»X»1); "' IS UNREC0OM2ED.":GOTO 380 

If CIHRllMXIiXil I 

NEXT X 

REH NOW U£ CONVERT Bll-M) IHTO AK1-P9) [ACTUAL GUES53 

SOSUB 4000 

REN ANB SET NUNBER OF BLACKS AND UHITES 

GOSUB 4500 

IF B=P9 THEN 430 

REN TELL HUNAN RESULTS 



"YOU HAVE 

SAVE ALL 
II 



PRINT 
REH 
S$!H> 
$(H,1)=B 
S<N»2>=U 
NEXT H 
PRINT " 
&OSUB 4000 
PRINT "THE 
FOR X»1 TO 
PRINT A8U); 
NEXT X 
PRINT 



ThiS 



BLACKS AND -;U;" WHITES." 
STUFF FOR BOARD PRINTOUT LATER 



TOO RAN OUT Of HOVES! THAT'S ALL YOU 0ET!":80TO 440 



ACTUAL 
P? 



COMBINATION UAS: 






'YOU GUESSED IT IN •;&;* NOVESf 



HQU COMPUTER GUESSES 



I GUESS. THINK OF 
RETURN WHEN READY 
ID 



A CONBINATIOH." 



810 
820 
830 
840 

B5& 



RE INCONSISTENT INFORMATION, 
TINE ? BE NORE CAREFUL." 



870 



PRINT 

H-H+H 

GOSUB 3O0O 

REN 

REN 

REN 

FOR X*1 TO 

IiX>*1 

NEXT X 

PRINT "NOW 

INPUT "HIT 

FOR «*1 TO 

GOSUB 3000 

SEN FIND A OUESS 

6>1NT(P»RNBM)+1I 

IF ICfi)-1 THEN 

FOR X»G TO P 

IF I(X)-1 THEN 

NEXT X 

FOR X=1 TO G 

IF I(X>=1 THEN 880 

NEXT X 

PRINT "YOU DUNNY, YOU HAVE GIVEN 

PRINT "LET'S TRY AGAIN, ANB THIS 

GOTO 660 

8*X 

REN NOU UE CONVERT GUESS B6 INTO Gt 

900 FOR X=1 TO G 
910 GOSUB 3500 
920 NEXT I 
930 SOSUB 6000 
940 PRINT -NY GUESS IS: "J 
950 FOR X=1 TO PP 
960 PRINT H*(X>; 
?70 NEXT X 

980 INPUT " BLACKS, UHITES ";B!,W1 
990 IF BI-P9 THEN 1120 
1*00 80SUB 3000 
1010 FOR X*1 TO P 
102O GOSUB 3500 
1030 IF HXJ-0 THEN 1070 
1035 80SUB 6500 
1040 SOSUB 4000 
1050 SOSUB 4300 

1060 IF BlOB OR HIOW TH£N ICX*=0 
1070 NEXT X 
1080 NEXT N 

1090 PRINT "I USEB UP ALL NY flOVESl* 
1100 PRINT "1 GUESS NY CPU IS JUST HAVING AN OFF DAT* 
1110 GOTO 1130 

1120 PRINT -I GOT IT IN m lH;* NOVES!" 
1130 C-C*l» 
1140 GOSUB 3000 
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1150 

1U0 

1170 

1180 

11?0 

2000 

2010 

2020 

2025 

2030 

2040 

2050 

2060 

2070 

2075 

2030 

2500 

2510 

2520 

2530 

2535 

2540 

2550 

2560 

2545 

2570 

2580 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3500 

3510 

3520 

3522 

3324 

3524 

3527 

3526 

352* 

3530 

3540 

3550 

3560 

3570 

3560 

4000 

4oro 

4020 
4030 

4540 



REXT ft 
PRINT 

print 
eosua 

STOP 

REN 

REH 

REH 

PRINT 

PRINT 

PRINT 



*&AHE OYER' 
"FINAL SCORE: 
5040 



Km PRINTOUT ROUTINE 



BOARD* 

rot wT.-, mSi * flCK <■» 

PRIBT 
6010 380 

reh 

»eb ouii routine 

REN 

?,z ;k t,om "' co " b, "" ,m ms > -i 

FOR X=1 TO P* 
PRINT Aim; 
NEXT X 

print 

PRINT 
STOP 

un 
KM 

REN 

FOR 5=1 
0<S>*0 
NEXT S 

return 

REH 
lErt 
iCn 

IF 0m>0 THEN 3530 
R£« IF ZERO, THIS 18 
TO P? 



"DOOD BYE 



IHITIM.IZE QC1-P9J TO ZEROS 
TO ?? 



incpeneht Qti-p*> 



FOR S«1 
0<S)=1 
NEXT S 
RETURN 

0-1 

0<Q>=Q(fl}*1 

IF Q(QK*Ct THEN RETURN 

B(0>»t 

MH 

SOTO 3540 

REH 

*£* CONVERT 

(ten 

FOR S-1 TO P0 
A«(B)Mipi(L« t l{Sl t 11 



OUR FIRST IKCRENEKT; flftKE ALL WES 



OH-P9) TO Mtl-P?) 



4050 

4060 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4370 

4580 

45*0 

4600 

46I0 

4620 

4630 

4640 

4645 

4650 

4660 

4670 

5000 

5070 

5020 

5030 

5040 

5050 

5060 

5070 

5500 

5510 

5520 

5530 

3540 

5550 

5560 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6500 

6510 

6S20 

6530 

6540 

6550 

6360 



REXT S 

RETURN 

REH 

REN 

REM 

REH 

B«0:U-0 

FOR S»1 



SET NUNBER OF BLACKS (B) AND WHITES 
HASHES Of AND A* IN THE PROCESS 



ftf) 



IF- 



P9 



TH£rt 4A20 



IF 8*(8>OA$(S> 

B*l*1 

6*(S)«CNR*(F> 

At(S)-CHR4(F4|) 
F«F*2 
GOTO 4660 
FOR T*1 TO P9 

IF ei4S)OM4Tl THEH 4650 
IF 6S(T)=AI(n THEN 4650 

tf-MH:A*(T)=CHRt(FJ:G»{SJ=CHRf(F*|> s F^»2 :G0T0 
ifci r 

REXT S 

RETURN 

REH 

*EH PRINT SCORE 

REH 

PRINT 

PRINT 

PRINT 

PRINT 

RETURN 

REN 

Kfl 

REN 

FOR 5-1 



4ddC 



■SCORE t" 

COMPUTER -;C 
" HUHAN -JH 



CONVERT Q<t-P?) INIO a«(W?) 



9010 
W9 



TO P9 

8l($)*ftKICLf,Bf3) t O 
NEXT S 

RETURN 

REN 

REft CONVERT Q<1-PB> TOH*(1-P9) 

REN 

FOR 3*1 TO P? 

Nt(5J-niDI(i$,0(S).1J 

NEXT S 

RETURN 

REN 

REH COPI Kf INTO CI 

REH 

FOR S=1 TO P9 

Mt5)*Hf($) 

NEXT S 

RETURN 

REH PROQRAH DATA FOR COLOR NAHES 

REH ...UE'RE SORRY BUT IT'S TINE 70 00... 
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Math 




The program presents pictorial drill 
on addition facts using printed dice 
with no reading involved. It is good for 
beginning addition, since the answer 
can be derived from counting spots on 
the dice as well as by memorizing math 
facts or awareness of number con- 
cepts. It is especially effective run on a 
CRT terminal. 

It was originally written by Jim 
Gerrish, a teacher at the Bernice A. Ray 
School in Hanover, New Hampshire. 

MIH DICE 
CREATIVE CWPUTIM H0RRIS1QUN, NEU JERSEY 



THIS PROGRAM 6EHERATES SUCCESSIVE PICTURES OF TUO BICE. 
UHEN TUO DICE AHD All EQUAL SIBM FOLUUED IT A (MJESTIOH 
HIIK HAVE SEEN PRINTER, TYPE T0U8 ANSUER AND THE RETUfiri KET, 
II C INCLUDE THE IES30K, TTPE COHTROL-C AS YOUR AhSUER. 



I • • I 
I I 

I * • 1 



1 


• I 


I 


• l 


1 


• i 




»t ? 


RIMTI 


THE DICt 


I 


» X 


! 


1 


i 


* i 




t 


i 


* * i 


i 


• t 


i 


t * I 



•t 6 

HO, COUNT THE SPOTS AND GIVE ANOTHER AtfStO. 

■I S 

HI, THE ANSUER IS 7 

TH£ IICE BOIL AGAIN... 



I • 
I 

I 



I • » I 
I • • I 
I • • I 



•T 

BIGHT! 



10 
2* 

30 
40 
50 
60 

;t> 
so 

» 

100 
110 
120 
130 
140 
ISO 

no 

170 

iw 

190 

200 

210 

220 

230 

240 

2M 

240 

2*5 

270 

200 

210 

300 

310 

320 

330 

340 

390 

3*0 

370 

373 

380 

301 

400 

410 

300 

510 

320 

330 

540 

511 

330 

3*0 

570 

300 

5*0 

600 

601 

610 

615 

620 



M1R8I9T0UN, HEW JER&EY" 



PRINT TA8<3I);"KATH OICE - 

PR1HT TftE< 151 ;-CSEA7IVE C0HPUTING 

PRINT f Pi tlltNIMI 

PRINT -THIS PRQGRAN GENERATES SUCCESSIVE PICTURES 9F TUO IICE." 
UHEH TN0 IICE M0 Ml CURL S16M F0LLOUE8 8Y A QIESTION" 
HARK HAVE BEEN PRINTED, TYPE YOUR ANSUER AMI THE RETURN KEY/ 
TO CONCLUDE THE LESSON, TYPE CINTROL-C AS YOUR AMUER*** 



PRINT 
PRINT 
PftINT 
PRINT 
PRINT 

|-MTU*ftlll(ll*1> 

PRINT" 

IF DM THEN ZOO 
IF D»2 THEN 1B0 
IF l»3 THEN 1B0 

PRINT •!*•!• 

60TI 210 

PRINT "I » I" 
GOTO 210 
PRINT "I I" 

IF 0-2 THEN 260 
IF 0*4 THEN 2*0 
IF 1*6 THEN 270 
PRINT *I !• 
60TO 280 
PRINT *l 1" 

8OT0 280 
PtIKI -I 



IF 0=1 
IF 0-2 

IF 0*3 
PRUT 
GOTO 3*0 
PRINT "I 
80T0 3*0 
PRINT "I 
PRINT * — 
PRINT 
IF H*2 THEN 



• • I' 

THEN 330 
THEN 330 
THEN 330 
I * * I 1 



• P 



500 



rRINT * ♦" 

PRINT 

A"l 

GOTO 100 

T«0»A 

PllHT * •■; 

INPUT T1 

IF T1«T THEN 590 

PRINT 'NO, COUNT THE SPOTS AMI GIVE ANOTHER ANSWER. ' 

PRINT ■ »•; 

INPUT T2 

IF T2-T THEN 390 

PRINT "NO, THE ANSUER 

GOTO 600 

PRINT "RIGHT! 

PRINT 

PRINT 

PRINT 

tf-0 

GOTO 

END 



I8-JT 



'THE DICE ROLL AGAIN, .,' 



100 
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Your objective in this game is to find 
the four Mugwumps hiding on various 
squares of a 10 by 10 grid. Homebase 
(lower left) is position (0,0) and a guess 
is a pair of whole numbers {0 to 9), 
separated by commas. The first 
number is the number of units to the 
right of homebase and the second 
number is the distance above 
homebase. 

You get ten guesses to locate the 
four Mugwumps; after each guess, the 
computer tells you how close you are 
to each Mugwump. Playing the game 
with the aid of graph paper and a 
compass should allow you to find all 
the Mugwumps in six or seven moves 
using triangulation similar to Loran 
radio navigation. 

If you want to make the game 
somewhat more difficult, you can print 
the distance to each Mugwump either 
rounded or truneated to the nearest 
integer. Statement 390 would print 
either INT (D + .5) or INT (D). 

This program was modified slightly 
by Bob Albrecht of People's Computer 
Company. It was originally written by 
students of Bud- Valenti of Project 
SOLO in Pittsburgh, Pennsylvania. 



IV 
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012345678910 
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J I L 
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J 1 L 



1 2 3 4 5 6 7 8 9 10 II 12 13 U 15 

Use this scale with a compass to help find the Mugwumps. 
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nuguuhp 

creative confuting horristoun, neu jersey 



Tffi OIJEET OF THIS 6AHE 18 TO FINB FOUR HU6tfU«PS 
HIDDEN ON A 10 BT 10 GRID, HOHEIASE IS POSITION 0, 
ART OUESS YOU HAKE HUST IE TUO NUHBERS UIIH EACH 
NOHBER BETUEEH Art *, INCLUSIVE- FIRST NUHBER 
IS DISTANCE TO RIGHT OF HONEBASE AND SECOND NUHBER 
15 BISTANCE ABOVE HOHEBASE. 

YOU BET 10 TRIES- AFTER EACH TRY, I I1ILL TEU 
YOU HOU FAR TOU ARE FROH EACH HUBUUNP. 



TURN HO. 1 UHAT 19 YOUR GUESS? 5,5 
TOU ARE A UHITS FROH KUMUHP 1 
YOU ARE 3.1 UNITS fROH HlttUUHP 2 
YOU ARE 4.2 UNITS FROH HUOUUHP 3 
tQtt ARE 3 UNITS FRON HUGUUHP 4 



TURN HO. 2 WHAT 13 TOUR GUESS? 0,0 
YOU ARE 10.2 UNITS FRDft HUGUUIP 1 
YOU ARE *.? UNITS FROH HUSUUNP 2 
YOU ARE 11.3 UNITS FRW HUGUUHP 3 
YBU ARE 3 UNITS FRON HU6.UftP 4 



TURN MO. 3 UHAT IS TOUR OUESS? ?, 
TOU ARE 3 UNITS FROH BU6UUHP 1 
YOU ARE 4.1 UNITS FRON WU8UUHP 2 
YOU ARE 1 UHITS FROH HUBUUNP 3 
YfU ARE 8.9 UNITS FRON HUGUWP 4 



TORN HO. 4 WHAT IS YOUR 0UES5? t,t 
TW ARE 4 UHITS FROM NUGUUHP 1 
YOU ARE 5 UNITS FRON HUGUUHP 2 
YOU ARE 1,4 UHITS FRON HIHUUHP 3 
YIU ABE t.8 UNITS FROH HUGUUHP 4 



TURN NO. 3 UHAT IS TOUR 8UES9T 0,0 
YOU ARE 3.1 UNITS FROH RUBUUHP 1 
YOU ARE 4 UNITS FROH HUGUUHP 2 
YOU HAVE FOUND HU6UUHP 3 
YOU ARE 0.3 UHITS FtOH NUSUUHP 4 



TURN NO. 6 UHAT IS YOUR GUESS? 4,8 
TOU ARE 3.9 UNITS FROH NUOWUHP 1 
TOU ARE 3,6 UNITS FRBH HWUUHP 2 
YDU ARE 8 UNITS FROM HUGUUHP 4 



TURN NO. 7 WHAT 13 TOUR GUESS? 3 p 7 
YOU ABE 6.3 UNITS FROH HUGUUHP \ 
TOU ARE 3.8 UNITS FROH HUGUUflP 2 
TW ARE 7,2 UNITS FROH HUOUUHP 4 



TURN NO. 8 UHAT IS YOUR GUESS? 4,1 
YOU ARE 4,2 UNITS FRON HUGUUHP 1 
YOU ARE 4,4 UNITS FROH HUGUUNP 2 
TOU ARE 8 UNITS FROH HUGUUHP 4 



TURN HO. 9 UHftT IS YOUR OUESS? 6,0 
YOU ARE 5.B UNITS FROH HUGUUHP 1 
YOU ARE 4.4 UNITS FROH HUGUUHP 2 
»0U ARE 1 UNITS FROH HUGUUHP 4 



TORN NO. 10 UHAT IS YOUR 6UESS? 7,0 
YOU AGE 3,3 UNITS FROH HUGUUHP 1 
YOU ARE 4.1 UNITS FROH HUOUUrtP 2 
YOU ARE 2 UNITS FROH HUGUUHP 4 



SORRY, THAT'S 10 TRIES. 
HUGUUHP 1 IS AT < J , 5 
HUGUUHP 2 IS AT t fl P 4 
HUGUUHP 4 IS AT ( 5 



HERE IS UHERE THEY'RE HIB1HG 



1 

) 



1 PRINT TABt33)r»WGUUHP" 

2 PRINT TAB(15>;"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY* 

3 «INTiPRINT:PRINT 

4 REK COURTESY PEOPLE'S COMPUTER COHPANY 



II 

20 

30 
40 
3* 
60 
70 



THAT HAS FUN! LET'S PLAT AWW 

FM HORE HUGUUHP5 ARE HOU IN HIDING. 



90 

100 
110 

240 
250 

260 
270 
275 

2*0 
300 
310 
320 
330 

310 

350 

360 

370 

380 

3?0 

400 

410 

420 

430 

440 

430 

460 

470 

480 

4?0 

340 

350 

340 

570 

580 

400 I 

610 I 

630 i 

1000 
1010 
1020 
1030 
1640 
1050 
10ft 



BIN f(4 f 2) 
PRINT "THE 
PRINT 
PRINT 
PRINT 
PRINT 
fRINT 
PRINT 
PRINT 
i PRINT 
PRINT 



OBJECT OF THIS GAHE IS 
"HIBBEN ON A 10 BT 10 GRID. 
"ANY 6UESS YOU HAKE HUST BE 
■HUHBER IETUEEN AND 9, 
"IS DISTANCE TO RIGHT OF 



■■•" 



TO FINN FOUR HOGUUHPS" 
HOHEBASE IS POSITION 
TUB RUBBERS UITH EACH- 
INCLUSIVE. FIRST HOMER" 

HQAEBASE AND SECOND HUHBER™ 



IS DISTANCE ABOVE HOHEBASE. 



TOU GET 10 TRIES. 
"TOU HOU FAR YOB 



AFTER EACH TRY, I WILL TEU" 
ME FRCH EACH HJSUUHP." 



400 
380 
390 



1000 
T*0 
W*1 
PRINT 
FRINT 

PRINT "TURN N0.";T;-V*WT 19 YOUR OUESS 1 
INPUT nJ. 
FOR M TO 4 
IF PII P 1)**1 THEN 
IF P(l f 1)OH THEN 
IF P(I,2)ON THEN 
PU,1)*-1 

PRINT "YOU HAVE FOUND HUGUUHP";! 
GOTO 400 

D=SBR«Pa t 1)-H)*2*(PU t 2)-H)-2) 
PRINT "YOU ARE";<INT(B*10))/10;"UNITS FROH HUGUUHP";I 

NEXT 1 

FOR J'l TO 4 
IF P(J,1X>-1 THEN 470 
NEXT J 
PRINT 

PRINT "YOU WT THEH ALL IH";T;'TU*NS! * 
GOTO 5S0 
IF T<10 THEH 260 
PRINT 

PRINT "SORRY, THAT'S 10 TRIES. HERE 19 NHERE THEY'RE HIRING 
FOR 1*1 TO 4 
IF P(I»1)»-1 THEN 570 

PRINT "HUGHUNPMriS AT l«;MI|1I|V|Mlf2l5*! H 
NEXT I 
PRINT 

PRJNI 'THAT 

PRINT "FOUR 

GOTO 240 

} FOR J"1 TO 

FOR IM TO 



HAS FUN! LET' 
HORE HUGUUHPS 

2 

4 



9 PLAT AGAIN-,,, 
ARE HOU IH HIDII 



P(I,J)«INT(10«RNBO)) 

NEXT I 

NEXT J 

RETURN 

END 
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NAME is a silly little ice-breaker to 
get a relationship going between a 
computer and a shy human. The 
sorting algorithm used is highly inef- 
ficient — as any reader of Creative 
Computing will recognize, this Is the 
worst possible sort for speed. But the 
program Is good fun and that's what 
counts here. 

NAME was originally written by 
Geoffrey Chase of the Abbey, 
Portsmouth, Rhode Island. 



1 PRIM TAB 134) ;"«ME" 

2 PRINT TAB(15);-CR£ATIVE COtlPUTINO 
j print: mux-. PRINT 
5 Din BK40) 

10 PRINT -HELLO.-: PRINT "NY NAME IS CREATIVE 



HORRISTOMH, NEU JERSEY 1 



20 
30 
II 

50 

ao 

70 

80 

?0 

100 

110 

120 

130 

140 

130 

1 60 

170 

1B0 

200 

210 

HO 



COMPUTER. 
INPUT Alt 



L»L£K(A«! 



PRINT "MAT'S YOUR KANE (FIRST AMI LAST"; 
PRINT: PRUT "THAW YOU, "J 
FOR I«1 TO L: Bt(I)*NlDt(A0,I,1 >: NEXT I 
FDR I-l TO 1 STEP -li PHUT |S(I>; ( NEXT I 

lllll I'JLl ***** '° 0P8 ' ' $UES9 l MT IT »«tW»RBS. A SMART" 

PRINT "BUT I JUST NDTICEI YOUR LETTERS ARE OUT OF ORDER." 
PRINT "LEI'S PUT THEN IN ORDER LIRE THISi •; 

Ft* J«2 TO Li I-J-l: T|>»(J| 

IF TI>I»(I) THEN 130 

B«(I*1)«H(I)i I«I-H IF I>0 THEM 110 
HU4|).T»i NEXT J 

FOR I«l TO Ll PRINT DB(I);: NEXT It PRINT: PRINT 
PRINT "BOH'T YOU LIKE THAT BETTER-;: INPUT DO 
IF BI--YES- THEN 180 

PRINT: PRINT "I'll SORRY Y0O DON'T LIKE IT THAI UAY.-, (0T0 200 

PRINT. PRINT •! KMEU YOU'D ABBEE!!' 

PRINTi PRINT -I REALLY ENJOYED HEETIN6 YOU ":**- - 

PRINT -HAVE A NICE DAY!" ' * 

END 



NAME 
CREATIVE C0HPUTIN8 NORRISTOUN, NEU JERSEY 



HELLO. 

NY MARE IS CREATIVE CORPUTER. 

UBAI'S YOUR NAME (FIRST AND LAST? 5BT PEPPER 

TRANK YOU, REPPEP 103. 

00P5< I 8UESS I 60T IT BACKUAROS. A SMART 

COMPUTER LIKE RE SHOULDN'T RAKE A NISTAKE LIKE TOMTI 

BIT I JUST NOTICED YOUR LETTERS AIE OUT OF ORDER. 
LET'S PUT THEB IN ORDER LIKE Ihisi EEBPPPRST 

BON'T YOU LIKE THAT SETTER? 1*0 

I'M SORRY YOU DON'T LIKE IT THAT UAY. 

I BEALLT ERJOYED MEETING YOU SBY PEPPER. 
HAVE A RICE DAY! 



HELLO. 

NY NAME 15 CREATIVE COMPUTER. 

MAT'S YOUR HADE (FIRST AMO LA3TT SUSAN JONES 

THANK YOU. SENOJ NASUS. 

OflPS' I 6UESS I BOT IT BACKUARDS. A SMART 
CBHPOTCR LIKE NE SHOULDN'T MAKE A NISTAKE LIKE THAT- 
HIT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER 
LET'S PUT THEN IN ORDER LIKE THIS: AEJHNQSSSU 

DON'T YOU LIKE THAT BETTER! YES 

I KNEU YOU'D A6REEI! 

I REALLT ENJOYED NEETIN8 YOU SUSAN JONES. 
HAUE A NICE BAY! 
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One of the most ancient forms of 
arithmetical puzzle is sometimes 
referred to as a "boomerang/' At some 
time, everyone has been asked to 
"think of a number," and, after going 
through some process of private 
calculation, to state the result, after 
which the questioner promptly tells 
you the number you originally thought 
of. There are hundreds of varieties of 
the puzzle. 

The oldest recorded example 
appears to be that given in Arithmetica 
of Nicomachus> who died about the 
year 120. He tells you to think of any 
whole number between 1 and 100 and 
divide it successively by 3, 5. and 7, 
telling him the remainder in each case. 
On receiving this information, he 
promptly discloses the number you 
thought of. 

Can you discover a simple method of 
mentally performing this feat? If not, 
you can see how the ancient 
mathematician did it by looking at 
Lines 80-100 of the program. 

Nicomachus was written by David 

Ahi. 



niton* 

CREATIVE CONFUTING KGRR1ST0UN, HEU JERSEY 



ROQHERANG nillt FROH ARITHHETICA OF NICOflACWJS — A.R* »1 



PLEASE THINK OF A NUH1ER 
TOUR NUfcBER DIVIDED BY J 
YOUR UMBER DIVIDED BT S 
YOUR HUNIER DIVIDED IT ? 



IETUEEN 1 AM IOC. 
HAS A REMINDER OF? t 
HAS A REMINDER OF? 
HAS A REMINDER Of? 3 



LEI HE THINK A HOHENT,.. 

TOUR NUMBER IMS 40 » RIQHT? YES 

HOU ABOUT THAT" 

LET'S TRY ANOTHER. 



'PLEASE THINK OF A NUMBER 
■TOUR NUPBER DIVIDED BY 3 



nORRISTQM, HEU JERSEY' 



BETWEEN 1 AND 100," 
HAS A REMINDER OF"; 



"TOUR MINER DIVIDED IT 7 HAS A REMAINDER OF* 



MOMENT.., 
I 



2 PRINT TABl33>;"HItOMA" 
4 PRINT TA8(13>r«EATIVE C0HPUTIH6 
6 PRINT: PRINT* PRINT 

10 PRINT "DOOHERANB PUZZLE FROH ARITHHETKA OF NICOttACHUS - A. 
30 PRINT 
30 PRINT 
40 PRINT 
45 INPOT A 

50 PRINT 'TOUR NUMBER DIVIDED BY 5 HAS 
33 INPHT 
40 PRINT 
43 INPUT C 
70 PRINT 

SO PRINT -LET HE THINK A 
90 FOR 1*1 TO 1300: NEXT 
100 D-?0»A»2T»B*13«C 
110 IF D<«105 THEN 140 
120 0-B-103 
130 GOTO 110 

140 PRINT "YOUR NUflBER UAS'JD;", RIGHT"; 
140 INPUT A* 
PRINT 

IF A»«"TES" THEN 220 
IF A*='N0' THEN 240 
>RIHT "EN? I DON'T UNDERSTAND * m fMV 
GOTO 130 
220 PRINT "HOW ABOUT THAT*!" 
230 GOTO 250 

240 PRINT "I FEEL YOUR ARITHHETIC 13 IN ERROR. 
230 PRINT 

240 PRINT -LET'S TRY ANOTHER." 
270 60TO 20 

999 tn 



J. TC! 1 



143 

170 
11 

ItO 

200 



IRY 'YES' OR 'HO'.' 



PLEASE THINK OF A NUMBER 
YOUR NUHBER DIVIDED BT S 
YOUR NUHBER DIVIDED BT 3 
YOUR NUHBER DIVIDED BY 7 



BETUEEW 1 AHB 100. 
HAS A REMINDER OFT 1 
HA5 A REMAINDER OF? 
HAS ft REMINDER OF? 2 



LET HE THINK A HOHENT... 

YDUR NUHBER WAS 100 , RIGHT? YES 

X* 

HQU ABOUT THATH 

LET'S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETUEEN 1 AND 100. 

YOUR NUMBER DIVIDED BY 3 MAS A REMAINDER OF? 

YDUR NUJIBER DIVIDED BY 5 HAS A REAAIHBER OF? 4 

TCUK NUMER DIVIDED BT 7 HAS A REMINDER OF? 4 



LET RF. THINK A HOREHT... 



YOUR MJHBER UAS 3? 



RIGHT? NO 



I FEEL TOUR ARITHMETIC IS IN ERROR. 

LET'S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETWEEN 1 AMD 100. 
YDUR NUHBER DIVIDED DY 3 RAS A REMINDER OF? 1 
YOUR NUnDER DIVIDED DT 3 HAS A REMINDER OFT 1 
YOUR NUHBER DIVIDED BY 7 HAS A REMAINDER OF? 1 

LET HE THINK A HOHENT... 

YOUR NUMBER UAS 1 , RIGHT? YES 

HOU ABOUT THAT!! 



Mini 



NIM is one of the oldest two-person 
games known to man; it is believed to 
have originated in ancient China. The 
name, which was coined by the first 
mathematician to analyze it, comes 
from an archaic English verb which 
means to steal or to take away. Objects 
are arranged in rows between the two 
opponents as in the following example: 
XXXXXXX Row 1 — 7 Objects 
XXXXX Row 2-5 Objects 
XXX Row 3 — 3 Objects 

X Row 4 — 1 Object 

Opponents take turns removing 
objects until there are none left. The 
one who picks up the last object wins. 
The moves are made according to the 
following two rules: 

1 . On any given turn only objects from 
one row may be removed . There is no 
restriction on which row or on how 
many objects you remove. Of 
course, you cannot remove more 
than are in the row. 

2. You cannot skip a move or remove 
zero objects. 

The winning strategy can be 
mathematically defined, however, 
rather than presenting it here, we'd 
rather let you find itonyourown. HINT: 
Play a few games with the computer 
and mark down on a piece of paper the 
number of objects in each stack (in 
binary!) after each move. Do you see a 
pattern emerging? 

This game of NIM is from Dartmouth 
College and is a generalized game 
which allows you to specify any 
starting size for the four pilesand also a 
win option. To play traditional NIM, 
you would simply specify 7,5,3, and 1, 
and win option 1. 



HIP 



CREATHE COHPUTIHB MORRISTOUI, HEU JERSEY 



THIS IS THE GAHE OF NIH. 

DO YOU HART INSTRUCTIONS? YES 

THE SAKE IS PLAYEB UITH A NUMBER OF PILES Of OBJECTS. 

ANY HUHBER OF OBJECTS ARC BEHOVE! FROH OWE PILE BY YOU AHD 

THE HACHIHE ALTERNATELY. ON YOUR TURK, YOtI KAY TAKE 

ALL THE OBJECTS THAT REHAIK IK ANY PILE BUT YOU HUSI 

TAKE AT LEAST OKE OBJECT, AND YfiU KAY TAKE OBJECTS FROH 

ONLY ONE PILE OH A 8IK6LC TURK. YOU HUST SPECIFY WHETHER 

UIHNIHG IS DEFINEI AS TAKIKfl OR HOT TAKIK8 THE LAST OBJECT, 

THE NUKIER OF PILES IK THE GAKE, AKB HOU KANT OBJECTS ARE 

ORIGINALLY III EACH PILE. EACH PILE HAY COKTAIK A 

BIFFEREKT HUHBER OF OBJECTS. 

THE HACHIHE UIU SHOH ITS HOVE BY LISTING EACH PILE AND THE 

NUKBER OF OBJECTS REM I MM IK THE PILES AFTER EACH OF ITS 

H0VE8. 

ENTER HIN OPTION - I TO TAKE LAST, 2 TO AVOW LAST? 2 
ENTER HtfHBER OF PILES* 4 
EKTER PILE SIZES 

1 T 10 

2 ? 8 

3 t 7 

4 f 3 

DO YOU IMT TO HOVE FIRST? NO 
PILE SIZE 

1 10 

2 I 

3 1 

4 3 

YOBR HOVE - PILE,«WBER TO B€ BEHOVE** |.f 
PILE SIZE 
< I 

2 3 

3 t 

* 3 

YOUR HOVE - PILE.HUHBER TO BE REHOVEB? 2,2 
PILE SIZE 

1 1 

2 1 

3 1 

* 

YOJR HOVE - PILE.NUNBER TO BE REMOVED? 3,1 
HACHIHE UIHS 



Do you ■/ant to play anothor gM«? HO 
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100 
110 
130 
210 
220 
230 
2*0 
250 
2A0 
270 

no 

290 

m 

310 

320 

330 

340 

350 

340 

370 

3B0 

390 

400 

410 

420 

430 

440 

450 

460 

470 

400 

490 

300 

510 

520 

530 

540 

530 

540 

570 

500 

590 

600 

410 

420 

«0 

440 

090 



M&RISTOUN, HEU JERSEY- 



PRINT TAB(33>;"NIH" 

PHUT TABM5>rCREATIVE CORWTIHB 

mmtpRMTiroiNT 

BIN AMO0),BM0O,1O>,B<2) 

PRIRT -THIS 18 THE GME OF Hill*" 

HINT 'BO YOU MRT INSTRUCTIONS'; 

IHTUT ZO 

IF Z6«"H0" THEH 440 
If Z0--1O" GOTO 4*0 
If ZS--US - THER 310 
IF 20< # yts" 80TO 310 
PRINT "PLEASE. YES OR HO'! 

PRIRT -THE 6ARE IS PLATEO UITH A MMEft OF PILES OF OBJECTS." 

•*NY HUH8ER OF OBJECTS ARE REHOVED FROM ONE PILE BY YOU AMD 
•THE HACHtKC ALTERNATELY. OH TOUR TURH, YOU HAY TAKE" 
'ALL THE OBJECTS THAT RENAIN IH ART PILE BUT YOU HUSK 
'TAKE AT LEAST ORE OBJECT, ANO YOU HAY TAKE OBJECTS FROM* 
■OHLT OHE PILE OR A 8IR0LE TURN. YOU HUST SPECIFY WETHER" 
-DINNING IS BEFIREB AS TAKIH8 OR ROT TAKING THE LAST OBJECT," 
"THE RURBER OF PILES IR THE 6AHE, AND HOU RAHY OBJECTS ARE" 
'ORIEIRALLY IH EACH PILE. EACH PILE RAY COMTAIH A" 
•DIFFERENT RtMBER OF OBJECTS." 

•THE RACHIHE HILL SHQH ITS R0« BY LISTING EACH PILE ANO TK" 
"RUBBER OF OBJECTS RENAIHIR8 IH THE PILES AFTER EACH Of ITS" 



♦ROVES," 

•ERTER WIR OPTIOR - 1 TO TAKE LAST, 2 TO AVOIB LAST* 



OF PILES"; 



6?Q 



PRINT 

PRIRT 

PRIRT 

PRIRT 

PRINT 

PRIRT 

PRIRT 

PRIRT 

PRIRT 

PRIRT 

PRIRT 

PRIRT 

PRIRT 

PRIRT 

IRPUT U 

IF U*1 THER 490 

If ll<>2 THER 450 

PRINT "ERTER KUNBER 

IRPUT R 

IF R>100 THER 490 

IF R<t THER 490 

IF R01HKH> THER 490 

PRIRT "ERTER PILE SIZES" 

FOR 1*1 TO H 
PR1HT l; 

IRPUT AM) 

IF AM»200O THER 340 
IF AMKI THER 3*0 
IF AU>OIRT<AM>) THER 360 
REXT 1 

PRIRT "00 YOU RANT TO ROVE FIRST"; 
IRPUT 090 

IF Q9$="YES" GOTO 1450 
IF 09l»"yes" SOTO 1450 
IF 09I""H0" GOTO 700 
IF 09*«"no" GOTO 700 
PRIRT "PLEASE. YES Oft HO"; 
GOTO 430 
IF N*1 THER 940 
LET C=0 
FOR I-l TO R 
IF A(I>-0 TRER 770 
LET C»C*1 
IF C»3 THEH B40 
LEI D(C)»I 
REXT I 

IF C»2 THEN 920 
IF ACBM)»1 THER 820 
PRIHT "MACHINE LOSES" 
SOTO 1440 

PRIRT "HACH1HE UIHS" 
OOTO U40 
LET CO 
FOR I" I TO R 
IF RU»1 THEH 940 
If AMMO TIER 090 
LET C»C*1 
REXT I 

IF C/20INT1C/2) THEN 800 
OOTO 940 

IF A(DM))=1 THER 820 
IF A1D<2))*1 THER B20 
FOR 1-1 TO H 
LET EMU) 
FOR J-0 TO 10 
LET F*E/2 

LET MIp J)-2*<F-INT<F)> 
990 LET E»IRT(F) 
1000 REXT J 
1010 REXT I 

1020 FOR J-10 Tt STEP -1 
1030 LET C»0 
1040 LET H*0 
1050 FOR 1-1 TO R 
1040 IF |U,J)-0 THEN 1110 
1070 LET C«C*f 
1085 IF AUH-H TWER 1110 



690 
700 
710 
720 
730 
740 
730 
740 
770 
780 
790 



810 
820 
930 
840 

830 

840 
870 



900 
910 
920 
930 
940 
950 
960 
9?ft 



1090 

1100 

1110 

1120 

1130 

1140 

1130 

1140 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1240 

1270 

1260 

1290 

1300 

1310 

1320 

1330 

1340 

1330 

1360 

1370 

13B0 

1390 

MOO 

1410 

1*20 

1430 

1440 

1430 

1460 

1470 

14B0 

1490 

1300 

1510 

1520 

1530 

1340 

1550 

1560 

1570 

15B0 

1590 

1600 

1610 

1420 

1630 

1640 

1650 

1660 

1670 

1680 
1690 
1700 
1710 
1720 
1730 



LET HM1I> 

LET 6"! 

REXT I 

IF C/2<>lNT(C/2> THEH 11?0 

NEXT J 

LET E>IHT(H*RHBM>+1) 

IF A(E>"0 THEN 1140 

LET F«IHT(A<E)«RHB(M*1) 

LET A<E>*A(E)-F 

80X0 1380 

LET A<6>"0 

FOR J*0 TO 10 

LET 8<B»J>«0 

LET C»0 

FOR 1-1 TO H 

IF BM,J>=0 THER 1260 

LET C-C*1 

REXT I 

LET A<0)iA<6>*2*<C/2-IRT<C/2>>«2* 

NEXT J 

IF V»1 THEN 1380 

LET C-C 

FDR 1*1 TO H 

IF AM»1 THER 1380 

If AU)*0 THEH 13S0 

LET C*C+1 

NEXT 1 

IF C/20IHTIC/2) THER 1380 

LET A(fl)-1-A(6J 

PRIRT "PILE 812E" 

FOR 1*1 TO R 

PRIRT I;AU> 

HEXY I 

IF U=2 THEH 1450 

GOSUB 1570 

IF Z«1 THER B20 

PRINT "YOUR HOVE 

IRPUT X,Y 
IF X>R THEH 

IF X<1 THER 



- PILE>NUHBEft TO BE REHOVED"; 



1430 
1450 

17 XOIHTU) THER 1430 
IF T>A<X> THER 1450 
IF Y<1 THER 1430 
IF YOIRTtT) THER 1450 
LET A<X)=A(X)-Y 
B05UB 1570 
ir Z>1 THER SOO 
BOTO 700 
LET 2*0 
FW I-l TO N 
IF A(I>-0 THER 1410 
RETURN 
KEXT I 
LET 2=1 
RETURN 

PRIRT *Dc you want to pl«y »*othtr 9*ne*; 
INPUT 09* 
IF W0"*Y£5" THER 1720 

IF 09f»y«" THER 1720 

IF Qff--M- THEN 1730 

IF 09I--BO" THEN 1730 

PRIRT "PLEASE. YES OR «•"; 

SOTO 1630 
440 

ENI 




• »«*?<&*' 
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K 



it savs me xKousnaiiL 
RevexjUTiow *S over wj D 

TVWT (T'ScooU - 
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In contrast to other numberguessing 
games where you keep guessing until 
you get the random number selected 
by the computer (GUESS. TRAP, 
STARS, etc.). In this game you get only 
one guess per play and you gain or lose 
points depending upon how close your 
guess is to the random number 
selected by the computer. You oc- 
casionally get a jackpot which will 
double your point count. You win when 

you get 500 points. 

Tom Adametx wrote this program 
while a student at Curtis Junior High 
School in Sudbury, Massachusetts. 



1QU HAVE 100 POINTS. BY 6UESSIN8 NIB1BERS FRON I TO 3, YOU 
CAN OAIH OR LOSE POINTS DEPENBIN8 UPON HDU CLOSE TOO SET TO 
A RAMON WRIER SEUC1ED IT THE COMPUTER. 

YW OCCASIONALLY WILL SET A JACKPOT UMICM UILL lOUlLE(l) 
Ytttt POINT COUNT. YOU UIM WHEN YOU OET 3« HURTS. 

QUE3S A HOUSES FROM 1 TO 31 2 

TOO HAVE 95 POINTS. 

01*99 A NURBS* FASH 1 TO 5T 2 

YW HAVE TO POINTS. 

GUESS A NUMBER FROM I TO ST 2 

YBU HAVE 93 POINTS. 

OUESS A NUBBER FROM 1 TO 57 2 

YOO HAVE 9* POINTS. 

BUESS A HliflBER FROM 1 TO ST 2 

YM MIT IKE JACKP0TH1 

YSU HAVE 192 POINTS. 

00ES3 A HUHBER fROH I TO ST 3 

YOO HIT THE JACKPOT II I 

YOU HAVE 38* POINTS. 

GUESS A NUMBER FROH 1 TO ST 1 

YOU HAVE 38* POINTS. 

BUESS A NUMBER FROH 1 TO 3T 2 

YOU HAVE 394 POINTS. 

BUESS * NUMBER FROH 1 Tl ST 5 

YOU NIT THE JACKPOT I H 

UN TOO Ullllll U1TH 788 POINTS. 



NUMBER 
CREATIVE CBNPUT1N3 flOSRISTOUN, KEU JERSEY 



I 

10 

1? 

13 

U 

I? 

1B 

t» 

20 

21 

22 

23 

24 

23 

30 

39 

-0 

45 

30 

53 

55 

40 

45 
?» 

8B 
82 

as 

90 

99 



PRIST TABl33);-«UnBER* 

PRINT TAB(l3i;"CR£ATIV£ COHPUTIHB NORRISTQUM, MEN JERSEY" 
PRINTiPRINTiPRINI 

PRINT "YOU NAVE 100 POINIS. IT 8UESSIN0 NUMBERS FROH 1 TO 5, TOO" 
"CAN B3AIN OR LOSE POINTS BEPENDIN8 UPON HON CLOSE YOU OET TO* 
■A RANDOM RUBBER SELECTEB BY THE COMPUTER."! PRINT 
-TOU OCCASIONALLY HILL SET A JACKPOT UHICH UILL DOUBLE'!)' 
■YOUR POINT COUNT. YOU UIN UHEN YOU BE! 300 POINTS." 
1 P-IOO 
JEF FHR(X)-H*T(5»BH0(1)»1) 
INPUT "BUESS A RUBBER FROH 1 Tl 3";8 
R-FBR(l) 



PRIRT 
PRINT 
PRINT 
PRINT 
PRINI 



S-FNRU) 
T-FNRM) 
H-FNR(I) 
V'FHRtll 



IF 
IF 
IF 

IF 
IF 

IF 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



30 
*0 
30 
60 
70 
12 



■R 

fl-S 
•T 

B-U 

fl«» 
l>5 
P-P-3 
8010 80 
P-P*5 
60TQ 80 
P»P*P 

PRINT "YOU HIT THE JACKPOTIM* 
6810 10 
P-PH 
SOTO 80 
P"P-(P».3t 
IF P>3CO THEN 90 
PRINT "«M HAVE-;P;'P01*<TS." 
60T0 11 

PRINT "HtlTOU UIN! 
ENI 



I! UIIH 



i»p 
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In this game or puzzle. 48 checkers 
are placed on the two outside spaces of 
a standard 64-square checkerboard as 
shown: 



The object is to remove as many 
checkers as possible by diagonal 
jumps (as in standard checkers). 

It is easy to remove 30 to 39 checkers, 
a challenge to remove 40 to 44. and a 
substantial feat to remove 45 to 47. 

The program was created and 
written by David AN. 



ONE CHECK 
CREATIVE COftPUriM MRRISTOyN, NEW JERSEY 



SOLITAIRE CHECKER PUZZLE IT DAVID AHL 

41 CHECKERS ARE PLACE! OH THE 2 OUTSIDE SPACES OF A 
STANDARD 64-5QUARE CHECKERBOARD. THE OBJECT IS TO 
REftOVE AS HAUr CHECKERS AS POSSIBLE BT B1AG0HAL JUMPS 
<A3 IK STANDARD CHECKERS)- USE THE NUMBERED BOARD TO 
INDICATE THE SQUARE YOU UISH TO JUMP FRON AND TO. QN 
THE BOARD PRINTED OUT ON EACH TURN M' INDICATES A 
CHECKER AMD '«' AN EHPTY SQUARE. UHEN YOU HAW NO 
POSSIBLE JUMPS RENAMING, INPUT A '0' IN RESPONSE TO 
QUESTION 'JUNP FRON V 

HERE IS THE NUMERICAL BOARD: 

12 3 4 5 6 7 8 

t 14 11 12 13 14 13 16 

17 18 1? 20 2" 22 23 24 

25 26 27 28 2? 30 31 32 

33 34 35 36 37 38 3? 40 

41 42 43 44 43 46 47 48 

4? 30 SI 32 33 34 35 56 

57 SB 5? 4ft 41 62 43 54 

AND HERE IS THE OfENIIKJ POSITION OF THE CHECKERS. 



11111111 
11111111 
110 



1 1 

1 t c 

1 I « 

1 1 t 

1 1 









1 1 

1 1 1 



1 1 

1 1 

t 1 f 

* 1 1 

1 1 1 

1 1 1 



JUNP FRONT t 










JUNP FRONT 5 










JUNP FRON? 38 






TO? 1» 














TOT 23 














TOT 44 












1 


t 


1 


1 











4 





r 






1 




4 


4 


4 


4 


a 


1 


1 


1 


1 


1 


I 








1 




















\ 


ft 







i 


8 





1 1 


1 














1 


1 


1 


1 










1 


1 




1 


i 


1 




1 1 





ft 


c 








1 


1 



















1 




4 


4 


1 




1 1 


ft 


ft 











t 


1 


ft 













I 













A 




I 1 

















I 


1 


ft 


1 










ft 







1 





t 




1 1 


1 


1 


I 








1 


1 


1 


1 


















1 


1 


1 




1 I 


1 


» 


I 








T 


1 


1 


1 


















1 


1 


1 




JUNP fRON 


? 2 










JUNP FRON? 57 








JUNP FRON? 26 






TOT 20 














TO? 51 














TO? 


11 












» 


1 


1 




i 






ILLEGAL ROVE 


■ 


TRT A8AIN... 


ILLEGAl 


. HOVE 


t ■ 


TRT AflAIN 


1 


o 


1 




1 






JUNP FRON? 37 








JUNP FRONT 26 






1 1 


1 


1 




ft 






TO? 


43 














Tft? 


12 












1 t 










ft 




































t 1 


ft 


ft 




1 






4 


ft 





1 


4 


1 


1 





ft 


ft 











1 


1 


1 1 










ft 






1 


ft 








1 





o 





1 


ft 


I 


t 


1 


8 





1 1 


1 


1 




1 






1 


1 


1 


1 


t 


1 






1 


1 


8 


\ 


1 


i 




I 1 


1 


1 




I 






t 


1 








1 


1 









ft 


1 








1 


















1 


1 


ft 





• 


4 






1 


ft 


1 





8 







JUNP FRON 


? I 










t 


1 


1 





1 


1 












1 


1 





1 




TOT 21 














t 





1 


1 


1 


1 






ft 





C 


1 


1 


1 





















1 


t 


1 


I 


» 






4 





1 


1 


1 


1 










1 


1 






































1 








1 








JUNP FRON 


» 25 








JUNP FRON? 2 








1 1 


1 


1 


I 








TO? 


11 














TO? 


4 












1 I 


o 


o 


ft 






































1 1 


o 


o 


ft 











ft 


ft 


1 


1 




1 


4 


ILLEGAL NOME 


m 


TRY a: I i 


1 1 








ft 








1 


4 


1 





1 




a 




JUNP FRON? 22 






1 1 


1 


1 


} 








1 


D 


1 


1 


1 








TO? 


4 












1 1 


1 


1 


1 








1 


t 













































I 


1 





4 


ft 











4 


ft 


1 


4 


1 


1 


JUNP FRONT £ 










1 


1 


1 














1 


c 


8 


1 


ft 


4 





TO? 22 














1 





1 


1 


1 








1 


1 


8 


1 


i 


4 


















* 


t 


I 


1 


1 











ft 


1 





4 


1 










f 


1 


1 


1 





















1 


ft 


1 


o 


4 







1 





4 


1 


t 







JDNP FRON* 4 













ft 


t 


1 


4 


1 




1 1 


1 


1 


1 


1 






TO? 


18 














o 





8 


1 


i 


1 




1 1 





ft 


o 


o 

























1 


1 


1 


1 


t 


1 


1 1 


ft 


ft 












I 
















1 



















1 1 








1 











ft 








1 




o 


ft 


JUNP FRONT 5? 






1 1 


1 


\ 


1 


1 






1 


1 


1 


1 


t 




1 




TO? 


45 












1 1 


1 


\ 


1 


1 









1 


4 





4 




1 
































1 


1 













1 




4 








1 


4 


1 


1 


JUNP FRONT I 


6 








1 


1 


1 


o 







i 




1 
1 

I 








1 


T 


* 


4 
4 

f 
4 




1 1 
1 1 
i i 


TO? 30 






1 




1 


1 


4 


1 

o 




i 


1 
1 


1 
1 


1 

t 






1 




9 

o 


ft 
4 


i 





1 
1 1 

1 \ 


ft 
1 
ft 


o 
1 
1 




1 
1 

1 


ft 
4 





JUNP FRONT 4f 
TO? 33 








o 
1 
1 


8 
I 
I 


1 





.1 



1 


1 
t 
1 


1 

1 
t 


1 

1 


1 1 
1 1 
1 1 


ft 

ft 

1 


ft 

ft 
t 







1 






I 

1 
1 





1 





1 





1 




1 
1 









JUNP FRON? 18 
TOT 36 






1 1 


1 


I 




1 






I 

1 

1 

ft 

ft 


1 





t 


ft 














4 


1 


o 


1 


1 


JUNP FRONT 64 
TOT 46 

11 




1 





1 




1 


1 

1 
1 
1 





1 

1 





\ 
1 








1 
1 




ft 
ft 









1 


1 

1 



1 




1 
4 

4 





1 




O 


1 
1 1 
1 1 




1 
fl 


ft 
I 
ft 









1 


4 

t 
1 


JUNP FRONT 41 
TOT 27 








o 

c 






1 
1 


1 


4 


1 

4 
1 


1 

t 


1 
\ 
1 


1 


\ 1 
1 1 
1 1 






1 


ft 








1 
1 




1 
1 
1 



1 

I 




o 

1 






1 


o 

ft 
t 


ft 

I 

1 








JUNP FRONT 21 
TO? 3 






T 1 


1 


1 






1 








1 


1 





4 














1 


1 


4 


1 


1 4 
















1 





1 














1 











8 






















c 


ft 


1 


o 


o 








1 








1 


G 





1 1 




















1 

1 


1 

1 


1 
1 


1 

f 






ft 


4 
1 




1 


ft 



ft 

4 






1 

1 








1 

1 



1 


B 
8 

1 

I 
I 


1 



1 
r 
I 


1 1 

1 1 
1 1 

ft 1 

1 
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JUrtP FRONT 53 
TOT 39 


AAA 


2 PRINT TAB(30i;"0HE CHECK" mm .-»«« 
4 PR1HT TAB(15>;"CREATIVE COHPUTIHO HQRRISTOUN, NEW JERSEY" 

6 PRINTi PRINTi PRINT 




10 


10 


e BIN A<44) 




I 




ri *h A 


10 PRINT -SOLITAIRE CHECKER PUZZLE BY DAVID AHL* 


Later in the game.... 


10 10 1 
10 


too 




20 PRIHT "48 CHECKERS ARE PLACED OH THE 2 0UT5IK SPACES OF A" 







1 


25 PRIHT "STAHDAAB 64-SQUARE CHECKERBOARD. THE OIJECT IS TO" 




1 


1 

A A J 


30 PRIHT "REHOVC AS HAHY CHECKERS AS POSSIHE BY DIAGONAL JUflPS" 




• 0000 


1 


33 PRINT "(AS 1H STANDARD CHECKERS). USE THE HI3HBERED BOARD TO" 


JUMP FRONT 48 


10 11 


1 


40 PRINT "INDICATE THE SQUARE TOU UISH TO JUftT FROH AND TO, OH" 


TOT 30 






45 PRINT "THE BOARD PRINTED OUT OH EACH TURK *\* INDICATES A" 




jimp f aonr 56 




30 PRINT "CHECKER AND '0' AN EHPTY SBBAIE. UHEN YOU HAYE NO' 1 


19 110 


TO* 38 




53 PRIHT "POSSIBLE JBftfS REHAINIHB, INPUT A '0' IN RESPONSE TO" 


oocooooo 






60 PRINT "OUESTION 'JUHP FROH T" 


10 10 


10 


1 


62 PRINT 


1 1 1 1 


10 





65 PRIHT "HERE IS THE HUHERICAL OOARDi" 


110 110 1 


10 10 1 


1 


66 PRINT 


C 1 I 1 1 o 


111 


6 6 


70 FOR J=1 TO 57 STEP t 


110 1 





1 1 

■ AH 


?< PRINT JiTAB(4);J*1;TAI(fli;J*2;TAB(12);J+3;TAB(U>;JM;TAB(Z0>;^3 


11110 


1 

10 






75 PRINT TAB(24J;j*6;TAI(28>;Jt7 
70 NEXT J 


JBHP FRQH? 37 


10 11 


10 


77 PRINT 


TOt 23 


■ L L L L ^B. ^H. ^B. ^B. L ■ ^H K -^H 




70 PRINT "AND HERE IS THE OPENING POSITION OF THE CHECKERS," 




JIWP FROM 43 




7? PRIHT 


10 110 


TO? 31 




90 FOR J*1 TO *4 


oooooooo 






82 RfJ>*1 


1 t 1 


10 


1 


84 NEXT J 


1 1 


1 1 





8fi FOR J«19 T6 43 STEP 8 


1 • 1 


1110 1 


1 


08 FOR I»J TO J»3 


1110 


• 1 1 


1 


90 Atl)"0 


1 10 1 


10 


1 


n NEXT I 


11110 








9A NEXT J 


JURP FRONT 32 
tit 14 



11 




1 


n h-o 

?fl OOTO 340 


JUMP FROM* 31 




100 INPUT "JUHP FROH";F 


1 1 1 


TO? 13 




105 IF F-l THEN 500 


10 
t 1 

ooiooooo 

10 1 






110 INPUT "TO";T 


10 


1 


112 PRINT 


1 


10 


118 REH **• CHECK LEGALITY OF HOVE 


10 10 1 





120 FlOUf HF-1 l./ll 


1 110 


10 





130 F2=F-0*F1 


1 10 1 


t 


110 


140 n-tNTKT-1 J/B) 


V W » » . . T 

11110 








150 T2»T-8*T1 


V v v * 


1 





160 IF F1?7 THEH 230 


JUHP FROrtT 7 


11 


1 


170 If T1>7 THEN 230 


TIT 21 






180 IF F?>* THEH 230 


JIWP FROM? 6 


_ 


190 IF T2>8 THEN 230 


10 10 

oooooooo 


TO? 20 




200 IF AD3(FWIK>2 THEH 230 






210 IF ABSiF2-T2)<>2 THEM 230 


W V V w » ■ ^ w 

10 10 10 


10 





212 IF A(<T*F»/2>=0 THEH 230 


TV* f * w»» 

10 
10 1 


6 1 





215 IF A(F>"0 THEN 230 


10 111 





220 IF Air>»1 THEN 230 


1110 
t 1 10 1 


10 6 


1 


225 60TO 250 





1 1 


230 PRINT "ILLEOAL HOVE. TRY ADAIN..." 


00011110 








240 GOTO 100 


VVVl * * 


6 





245 REH M* UPBATE 9OAR0 


JW1P FRONT 45 


11 


1 


250 A(T>«! 


TOT 31 


JMP FRflfl? 35 




260 Atf)"0 

270 AUT*F>/2)»0 


10 10 

oooooooo 

10 10 10 

ooioooio 

1 1 


TO? 20 




290 N»H#I 






310 REn *** PRIHT 10ARD 


ILLEGAL HIVE. 


TRY AGAIN... 


340 FOR J»1 TO 37 STEP 9 


JIWP FROH? 33 




350 FOR |*J TO J+7 


TO? 21 




360 PRINT A(I)J 


110 






370 NEXT I 


10 110 1 
11110 


ILLEGAL HOVE. 


TRY AGAIN**. 


380 PRINT 


JUHP FROH? 33 




390 NEXT J 


V V V * ■ * ■. 


TO? 13 




400 PRINT 


JBHP FROH? 40 
TOT 22 


ILLEGAL HOVE. 


TRY AGAIN.., 


410 GOTO 100 

490 REH *•# EHD GAHE SUMMARY 


JUHP FROH? 33 




500 S"0 


ooiooioo 


TO? 




310 FOR 1-1 TO 64 


V » ■ ~ ™ »TT 

#0000006 
10 10 110 
1 

oooooooo 






520 5=S*A(I> 


ILLEGAL HOVE. 


TRY AGAIK™ 


510 N£XT ! * .«™» 


JUHP FROH? 27 




540 PRINT "YOU nADE";H;"JUHPS ANB HAD";S;"PIECES" 


TO? 13 




350 PRINT "REHAIHINO ON THE BOARD-" 


1 10 






S60 PRINT 


1 10 1 
11110 


10 





342 INPUT 'TRY A6AIN H ;AS 


1 





570 If AO-"YES" THEN 70 


10 10 1 





573 IF A*<"HO - THEH 600 


JUHP FROH? 63 


6 





580 PRIHT -PLEASE AflSUEA 'YES' OR 'NO'." 


TIT 43 





1 


590 SOTO 562 










600 PRINT 


OOIOOIOO 





6 


610 PRINT -O.K. HOPE YOU HAI FUNII" 


OOOOOOOO 


10 11 


1 


?99 END 


10 10 1 10 






L 


10 10 


JUMP FROH? 






oooooooo 


YOU HADE 3? JlfflPS AMI HAD ? PIECES 




• 1 1 1 o 


REHAIHINO OH 1 


HE BOARD. 




1 1 








1 t 1 o 


TRY AtAIH? HO 
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ORBIT challenges you to visualize 
spatial positions in polar coordinates. 
The object is to detonate a Photon 
explosive within a certain distance of a 
germ laden Romulan spaceship. This 
ship is orbiting a planet at a constant 
altitude and orbital rate 
(degrees/hour). The location ot the 
ship is hidden by a device that renders 
the ship invisible, but after each bomb 
you are told how close to the enemy 
ship your bomb exploded. The 
challenge is to hit an invisible moving 
target with a limited number of shots. 
The planet can be replaced by a point 
at its center {called the origin); then the 
ship's position can be given as a 
distance trom the origin and an angle 
between its position and the eastern 
edge ot the planet. 



direction 
of orbit 



hip 




The distance of the bomb from the 
ship is computed using the law of 
cosines (see line 430 of the program 
listing). The law of cosines states 



D^VR'*2+Di"2+R'DVCOS (A-A1) 

where D is the distance between the 
ship and the bomb, R is the altitude of 
the ship. D1 is the altitude of the bomb, 
and A-Al is the angle between the ship 
and the bomb. 



bomb 




ship 



ami 

CREATIVE COftPUTlHQ liOHRISTOU* , NEU JEBSEY 

SOMEtlHEBE MOVE TOUt PLAREI 13 * BOflULA* SHIP- 
US 



tuc SMTP IS IN A CQBSIft"! PW-** ORBIT. 

circle \mkmx ua tmi 12 10 u hours. 

UIFOIIUMHLT THEY MtC HIM I WMW BEVKE 30 
YOU ME IIMILC TO SEE THEB. BUT UITH J jJKI". 
i.eiBiiHEUt vnil f« TELL HQU HEAR THEIR SHIP TOUR 
JStM IBM HPlIlEi. tS HAVE SEVEH HOWS UNTIL T«Y 
KftSe !u»U UP SUfTlUE.T POUEB » ORDER TO ESMPE 
HUB PLACET'S KftllTT. 

TQUB PLAMCT HAS E-0U6* P0«R TO FIRE WE MM AM HOUB. 

M THE IEIIMIM OF EACH -SOB l*™^"™"^ *" 
Aricic tictuffN AMD 36&1 ANB A &ISTABCE IH UKM* ur 
« L M S "lu EH !00 !il 300.. •flEtjJjKH "™ »»■'« 
•iilHtC FIN THE ENEIT SKIP HU * eiWi. 

M EXPLOSIOB U1N1R 5,000 HUES IF THE ROMILAH SHIP 
UIU BESII0T II. 

BCIBU 18 A B1AQRAB TO HUP YM VISUALI2E YOUR PUSH!- 



M 

ooooooooooooo 
6 oooo ooooo ooooo oooo 

oooooo 0000*0 

03000 »«>° 

ooooo xxxxxxxxxxx ooooo 
ooooe xxxxxxxxxxxxx ooooo 



oooo 

0000 
0000 
1»<" ooooo 
oooo 
oooo 
oooo 
ooooo 



xxxxxxxxxxxxxxx 

XXIXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXX 

nxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXX 

xxxxxxxxxxxxx 



oooo 
oooo 
oooo 

OOOOO ">0 

oooo 

1000 

oooo 
ooooo 



0W0O XXXXXIXXXXX O0O00 

ooooo ooooo 

oooooo oooooo 

000000 000 oooo oooooo 

ooooo OOOOO 000 

I 

270 

X - TOUR PLAHET 

O - THE 0RIIT SF THE ROHULAH SHIP 



Practice Off-Line Problem: 

Aircraft appear on radar as blips of 
the form "="• What is the distance 
between the TWA and United aircraft 
shown on the radar screen on the right. 



360 



ORBIT was originally called SPACE 
WAR and was written by Jeff Ledererot 
Project SOLO Pittsburgh. Penn- 
sylvania. 




090 



X80 



124 



OH THE ABOVE DIA6RAN, THE ROHULAN SHIP IS CIRCLING 
COUNTERCLOCKU1SE AROUND TOUR PLANET, DON'T FOR6E1 
UITHOUT SUFFICIENT POUER THE ROHULAN SHIP'S ALTITUDE 
AMD ORBITAL RATE UILL REHAiN CONSTANT. 

00OP LUCK, THE FEDERATION IS COUNTING OH YOU* 



HOUR 1 , AT UHAT AMGU SO YOU UISK TO SEND 

YiUR PHOTON BOND? 90 

KOU FAR OUT DO TOU UISH TO DETONATE ITT 2*0 

YOUR PHOTON BOM EXPLODED 270.671 *10'2 HUES FROH THE 
ROHULAN SHIP- 



HOUR 2 t AT WHAT AH6LE DO TOU UISH TO SEND 

YOUR PHOTON DOHB? 240 

Hltl FIR OUT DO TOU UISH TO DETONATE ITT 200 



YOUR PHOTON BOHB EXPLODED 382.522 »10"2 HUES FROH THE 
ROHULAH SHIP, 



HOUR 3 , AT UHAT ANGLE DO YOU UISH TO SEMI 

YOUR PHOTON BOND? 33 

HQU FAR OUT DO (Ob UISH TO DETONATE ITT 200 



TOUR PHOTON BOHB EXPLOBED 134. DOS *10*2 HILES FRO* THE 
ROHULAN SHIP. 



HOUR 4 t AT WHAT ANGLE DO YOU UISH TO SEND 

YOUR PHOTON BOHRT 2D 

KIHI FA* DOT DO TOU UISH TO DETONATE ITT 3M 



YOUR PHOTON IDflD EXPLODED 342.71? <10*2 MILES FROH THE 
ROHUUH SNIP, 



HOUR 5 , AT UHAT AN8LE DO TOU UISH TO SEND 

YIUR PHOTON IDHDf 40 

HSU FAR BUT BO TOU UISH TO DETONATE IT? 100 



TOUR PHOTON BOND EXPLODED 228.24 M02 HUES FROH THE 
RQHULAN SHIP. 



HOUR 6 , AT UHAT ANGLE 10 TOU VISH TO SEND 

YOUR PHOTON BOHIT 53 

HDlf FAR OUT DO YOU UISH TO DETONATE ITT 209 



YflUR PHOTON BOND EXPLODED 320.021 • 10*2 HUES FROH THE 
ROHULAN SHIP. 



HOUR 7 > AT UHAT A MOLE 10 TOU UISH TO SEflD 

YOUR PHOTOH BOND? 20 

HQU FAR DOT 10 YOU UISH TO DETONATE ITT 100 



YBUR PHOTON BOflB EXPLODED 2??. 178 *1C*2 RILES FROH THE 

ROHULAN SHIP. 

YOU HAVE ALLOWED THE RORULAHS TO ESCAPE. 

ANOTHER ROHULAN SHIP HAS DONE INTO ORBIT. 

DO YOU UISH TO TRY 10 BESTROY ITT I HATE COftPUTERS THAT NEVER LOSE 

GOOD BTE. 



2 PRINT TARt33>;-0RBIT" 

4 PRINT TABU5>;*CREATIV£ CONFUTING HORftlSTOUtf, NEU JERSET' 1 

6 PRINTiPRINTiPRlNT 

10 PRINT -80HEBHERE ABOVE TOUR PLANET IS A ROHULAN SHIP.' 

13 PRINT 

20 PRINT "THE SNIP 18 IN A CONSTANT POLAR ORBIT, ITS" 

25 PRINT -DISTANCE FROH THE CENTER OF YOUR PLANET IS FROH' 



30 

31 

35 

40 

43 

50 

35 

40 

65 

71 

75 

80 

85 

90 

*5 

1M 

IDS 

110 

111 

114 

115 

116 

117 

168 

It* 

i;o 
in 

172 
173 
174 
175 

176 
177 
17D 
17t 
110 
161 
132 

184 
185 
106 
187 

too 

189 

190 

1?2 

195 

196 

197 

199 

199 

200 

210 

220 

230 

270 

260 

290 

300 

310 

320 

325 

326 

330 

335 

340 

350 

360 

349 

366 

370 

3M 

390 

400 

410 

420 

430 

440 

445 

450 

440 

470 

460 

490 

500 

510 

520 

530 

540 

9tt 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PR IN! 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRUT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



10,000 

CIRCLE 



10 30,000 NILES AND AT 
YOUR PLANET ONCE EVERT 



ITS PRESENT VELOCITY CAT 
12 TO 36 HOURS." 



"UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE SO" 
-TOU ARE UNABLE TO SEE THEH, BUT UITH A SPECIAL" 
"INSTRUHENT YOU CAN TELL HOU NEAR THEIR SNIP YOUR* 
"PHOTON BOHB EXPLOBED. YOU HAVE SEVEN HOURS UNTIL THEY" 
"NAVE BUILT UP SUFFICIENT POUER IN ORDER TO ESCAPE' 
"TOUR PLANET'S 6RAVITY." 

-TOUR PLANET HAS EHQUSH POUER TO FIRE ONE BOHB AN HOUR." 

"AT THE BEGINNINO OF EACH HOUR YOU UILL BE ASKED TO DIVE AH* 
"ANBLE (BETUEEN AND 360) AND A DISTANCE IN UNITS OF" 
"100 HUES (BETWEEN 100 AND 300) f AFIER WHICH YOUR iOIB'S* 
-DISTANCE FROH THE ENEHY SHIP UILL BE OWEN," 



-AN EXPLOSION UITHIN 
*UILL BESIBOY IT,' 



5,000 HILE5 OF THE ROHULAN SHIP 1 



'8EL0U IS A DIA6RAH TO HELP YOU VISUALIZE YOUR PUGNT.' 



90- 

ooooooooooooo- 

OOOOODOOOOOOOOOOOOO" 

OOOOOD oooooo* 

ooooo ooooo- 

ooooo xxxxxxxxxxx ooqoo" 

oooqo xxxxxxxxxxxxx 



'1S0<- 



0000 


xmxxxxxxxxxxx 


OOOO" 


0000 


xxxxxxxxxxxxxxxxx 


oooo- 


oooo 


xxxxxxxxxxxmxxxxx 


M00 B 


00000 


xxxxxxxxxxxxxxxxxxx 


OOOOO 


0000 


XXXXXXXXXXXXXXXXXXX 


oooo- 


0000 


xxxxxxxxxxxxxxxxx 


oooo- 


0000 


xxxxxxxxxxxxxxx 


0000" 


00010 


xxxxxxxxxxxxx 


OOOOO" 


OOOOO XXXXXXXXXW OOOOO" 



■>0" 



00000 OOOOO 1 

oooooo oooooo- 

000000000060000*000" 

ooocooooooooo- 
I* 
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'X - TOUR PLANEI" 
'0 - THE ORBIT OF 



THE ROHULAN SHIP" 



-ON THE ABOVE DIAQRAH, THE ROMULAfl SNIP 18 CIRCLING* 1 
■COUNTERCLOCKWISE AROUNB YOUR PLANET. DON'T FOROET" 
"WITHOUT SUFFICIENT POUER THE ROHULAN SHIP'S ALTITUDE" 
-AMD OIIITAL RATE UILL REfiAlH CONSTANT." 



THE FEDERATION IS COUNTING ON TOU.' 



•HOUR^iH;", AT UHAT 

'YOUR PHOTON BOND"; 

Al 

'HOU FAR OUT DO TOU 

II 



ANOLE N YOU UISH TO SEND' 



UISH TO EETOKATE IT' 



6000 LUCK. 
A"INT<360*RNDO)> 
B-INTI200*RNDO 1+200) 
R>INTt20«RNDt1)+10) 
H'O 

IF H*7 THEN 490 
N-HM 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
PRINT 
A»AtR 

IF A<360 THEN 400 

A*A-360 

T-AB8(A~AU 

IF T<100 THEN 430 

1-340-T 

C-S0R*D#D#l1tD1»2»D»DUCO8{T#3.H15t/l80» 

PRINT "YflUR PHOTON BOND EXPLQDED";C;**10'2 HUES FROH THE' 

PRINT h ROAULAH SHIP." 

IP C<*30 THEN 470 

GOTO 310 

PRINT "YOU HAUE SUCCE3FULLT COMPLETED YOUR NI5SI0N.* 

GOTO 500 

PRINT -YOU HAVE ALLOUED THE ROHULANS TO ESCAPE.* 

PRINT "ANOTHER RONULAR SHIP HAS GONE INTO ORBIT." 

PRINT "DO YOU UISN TO TRY TO DESTROY IT"; 

INPUT Ct 

If Cf«"YES- THEN 270 

PRINT "600D BYE." 

END 
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In this game, you take orders for 
pizzas from people living in Hyattsville. 
Armed with a map of the city, you must 
then tell your delivery boy the address 
where the pizza is to be delivered. If the 
pizza Is delivered to the correct ad- 
dress, the customer phones you and 
thanks you; if not. you must give the 
driver the correct address until the 
pizza gets delivered. 

Some interesting modifications 
suggest themselves for this program 
such as pizzas getting cold after two 
incorrect delivery attempts or taking 
three or more orders at a time and 
figuring the shortest delivery route. 
Send us your modifications! 

This program seems to have sur- 
faced originally at the University of 
Georgia in Athens, Georgia. The 
author is unknown. 



PIZZA 
CREATIVE CONFUTING HCRRISTOUN, HEU JERSET 



PIZZA DELIVERY GflrtE 

UHAT IS YOUR FIRST HUE? BARTH 

HI, MRTH, III THIS DAHE YOU ARE 10 TAKE ORDERS 
FOR PIZZAS. TUCK YOU ABE TO IEU A DELIVERY BOY 
WHERE 10 DELIVER THE ORDERED PIZZAS. 

NIP Of THE CITY OF HYATTSVILLE 
1 2 1 * 

4 H N P 4 

3 I J K L 3 

2 E F H 2 



1 A 



c B 1 



THE ABOVE IS A HAP OF THE HONES UHERE 
TOD ARE TO SEND PIZZAS. 

TOUR JOS IS TO DIVE A TRUCK DRIVER 
THE LOCATION OR COORDINATES OF THE 
HOHE ORDERING THE PIZZA. 

IB TOU DEED HORE DIRECTIONS* YES 

SOMEBODY HILL ASK FOR A PIZZA TO BE 
DELIVERED. THE* A DELIVERY MY BILL 
ASK YOU FOR THE LOCATION. 

EIAHPLE: 
THIS IS J. PLEASE SEND A PIZZA. 
DRIVER TO DARTH. UHERE DOES J LIVE* 
YBUR AHSUER UOUIB IE 3,3 

UNDERSTAND? YES 

GOOD. YOU ARE NOU REABY TO START TAKING ORDERS. 

GOOD LUCK!' 

HELLO BARTH'3 PIZZA. THIS IS I. PLEASE SEHD A PIZZA. 

DRIVER 10 DARTH. UHERE 80ES D LIVE? 4,1 
HELLO DARTH. THIS IS I, THAHK3 FOR THE PIZZA. 

HELLO DARTH'S PIZZA. THIS IS 0. PLEASE SEHD A PIZZA. 

DRIVER 10 DARTH. UHERE DOES O LIVE' 3,4 
HELLO DARTH. THIS IS 0, THANKS FOR THE PIZZA. 

HELLO BARTH'S PIZZA. THIS IS M. PtCASE SEHD A PIZZA. 

DRIVER TO DARTH. UHERE DOES H tlVE? 4,2 
THIS IS H. I DIB NOT ORIER A PIZZA. 

1 LIVE AT 4 r 2 

DRIVES TO BARTH. UHERE BOES N LIVE? 2,4 
HELLO BARIK. THIS IS H, THAHKS FOR THE PIZ2A. 

HELLO OARIH'S PIZZA, THIS IS J. PLEASE SEHD A PIZZA. 

DRIVES 10 BARTH. UHERE DOES J LIVE* 2,3 
HELLO BARTH. THIS IS J, THAHKS FOR THE PIZZA. 

HELLI DAITH'S PIZZA. THIS IS F. PLEASE SEHD A PIZZA. 

DRIVER TO DARTH. UHERE DOES F LIVE* 2,2 
HELLO BARTH. THIS IS F, THAHKS FOR THE PIZZA. 



-1 2 3 4- 



BO TOU UAHT TO DELIVER KOBE PIZZAS? HO 
O.K. IARTH, SEE YOU LATER! 
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5 print TAB{33>;"pnzA" 



90 

100 

140 

ISO 

HO 

170 

130 

190 

200 

210 

230 

250 

260 

270 

280 

320 

330 

340 

350 

360 

3TO 

-IOC 

440 

460 
470 

4?0 
500 



PRINT HIC15);"CREAT1VE C0HPUT1HS HORRISTOUN, NEU JER3ET" 

PRINT: PRlNTi PRINT 

Bin SS(H»»H$M> 

PRINT "PIZZA DELIVERY OfiNE": PRINT 

INPUT "UKAT 15 TOUR FIRST NAME";**: PRINT 

PRINT "HI, *;*•**• IN THIS OAHE TOU ARE TO TAKE ORDERS' 

PRINT "FOR PIZZAS. THEN TOU ARE TO TELL A DELIVERY MY" 

' PRINT "UHEGE 10 DELIVER THE 0RIERE8 PIZZAS. "I PRINT: PRINT 



FOR I»1 TO 
READ St (I) 
NEXT I 
FOR 1-1 T 
READ Htm 
NEXT 1 
•ATA B *V 
BAT A ■P" l - 



M 



4 



"."2 



THE 



J" 



3",M" 

CITT Of 
-2 



PRINT "NAP OF 

PRINT ■ - 

K-4 

FOR I-l TO 4 

PRINT "-■! PStlRf 

PRINT HMK); 

S1 = H-44I*1 

PRINT * 'iSMHir 



HYATYSVILLE"! PRINT 



r ! r,T ( 'p 



3* 



PRiRT"-"i PRINT 






■;8»lSI + nr 



, ;Si(Si42);" 



print sttsiui;* 

K£XT I 



*;h*u> 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



--*! PRINT "-"I PRINT "-"I PIIHT "-" 
- | 2— —3- 4— — "l »MT 

"THE ABOVE IS A HAP OF THE HOHES UHERE" 
"YOU ARE TO SEMD PIZZAS." t PRINT 
"YOUR JOB IS TO GIVE A TRUCK DRIVER" 
"THE LOCATION OR COORDINATES OF THE" 



310 

320 

530 

540 

550 

5*0 

600 

610 

620 

640 

630 

660 

670 

660 

485 

610 

700 

750 

760 

770 

775 

700 

750 

a?o 

880 
8*0 
900 
910 
920 
930 
940 
960 
970 
999 
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PIZZA.'* PRINT 
IRECTI0«9";AS 



•HONE ORDERING THE 
■DO YOU NEED HORE 
"YES" THEN 590 
'HO* THEN 750 

"YES' OR 'HO' PLEASE, NOU TH£H,*[ SOTO 520 
PRIHT "SOHEDODY UILL ASK FOR A PIZZA TO BE" 
"DELIVERED. THEN A DELIVERY BOY UILL" 
-ASK YOU FOR THE LOCATION.": PRINT " EXAHPLEi" 

"THIS IS J. PLEASE SEHO A PIZZA," 
"DRIVER TO ";Nf;". UHERE DOES J LIUE?" 
"TOUR AN5UER UOULi 8E tjYl PftINT 

-understand"^* 
YES" THEN 690 



JOB IS DEFINITELY TOO DIFFICULT FOR YOU. THANKS AHYHAT 4 



PRINT 
INPUT 
IF Af* 

IF A*= 

PRINT 

PRINT: 

PRINT 

PRINT 

PRINT 

PRIHT 

PRINT 

INPUT 

IF A** 

PRINT "THIS 

GOTO 999 

PRINT "OOOD. YOU ARE MOU READY TO START TAKING ORDERS*": PRINT 

PRINT "000* LUCK in PRINT 

FOR I-l TO 5 

S-INT(RRIim*H+l)t PRINT 

PRINT "HELLO ';Ni;"'3 PIZM. THIS IS ";ss(S>;"\"; 

PRINT " PLEASE SEND A PIZZA,' 

PRINT " DRIVER TO ";H*;". WHERE DOES ";3S1SH" LIVE"; 

INPUT A(1M<2> 

T«A<U+(A<2M>*4 

IF T>S THEN 920 

PRINT "THIS IS -;$sm; rt . I DID NOT ORDER A PIZZA." 

PRINT "I LIVE AT "jAUIJVjM!) 

SOTO 780 



PRINT 
NEXT I 
PRINT i 
If A*' 

PRINT* 
END 



'HELLO "N*;*. THIS IS ";Sf<S>;*, THANKS FOR THE PIZZA,' 

INPUT fl D0 YOU UANT TO DELIVER HORE P!22AS H ;Af 

YES" THEH 750 

PRINT "O.K. "!**;", SEE YOU LATER!" 



This program produces random 
verse which might loosely be con- 
sidered in the Japanese Haiku style. It 
uses 20 phrases in four groups of five 
phrases each and generally cycles 
through the groups in order It inserts 
commas (random — 19% of the time), 
indentation (random — 22% of the 
time), and starts new paragraphs (18% 
probability, but at least once every 20 
phrases). 

The phrases in POETRY are 
somewhat suggestive of Edgar Allen 
Poe. Try it with phrases from computer 
technology, from love and romance, 
from four-year-old children, or from 
some other subject. Send us the out- 
put. 



Here are some phrases from nature 
to try: 

Mighty Oaks 
Grace and beauty 
Silently singing 
Nature speaking 

Untouched, unspoiled 
Shades of green 
Tranquility 
...so peaceful 
The original author of this program is 
unknown. It was modified and rework- 
ed by Jim Bailey. Peggy Ewing. and 
Dave Ahl at DEC. 



Carpet of ferns 
Morning dew 
Tang of dawn 
Swaying pines 

Entrances me 
Soothing me 
Rustling leaves 
Radiates calm 



POETRY 

C8EAT1YE confuting HflwusTQim, «v jersey 



10 

20 

30 



100 

101 

102 

103 

104 

110 

Ml 

112 

113 

114 

IIS 

120 

121 

122 

123 

124 

115 

124 

130 

131 

132 

133 

134 

135 

210 

211 

212 

213 

214 

215 

220 

230 

233 

24* 

250 

260 

270 



PRINT TABUOi-FOETftY- 

PAINT IABUS);'CREATIYE 

PRINTtPRINMPRINT 

ON I Q0TD 100,101,102,103,104 
) PRINT -MMIMT 8REARY";tG0T0 210 
PRINT # FIERY EYE8';i00T8 210 
PRINT "BIRD OR FIEVI h ;iG0TO 210 
PRINT "THING 8F E*IL";iG0TQ 210 
PRINT ■PMPHET ,, ;:fi0TO 210 



COMPUTING HQRRISTOUN, tfEU JERSEY* 



ON I GOTO 111,112,113,114,115 



HE";:U=2;G0TO 
210 



HE";i6QT0 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

ON I GOTO 

PRINT "AND NY S0UL";:SOT0 

PRINT -IARKNESS THERE"; iG 



210 



'IE6UIUNG 
•THRILLED 

'STILL SITTING... .-;:00TO 212 
'NEVER FLITTIND";iU"2ifiOTd 210 
210 
121,122,123,124,125 
210 
TO 210 



PRINT "SHALL IE L!FTED";tGGTO 210 
PRINT "8U0TH THE RAVEN' ;i6OT0 210 
IF «•* THEN 210 

MINT # SI8N OF PARTIWM60TO 210 
0* I GOTO 131,132,133,134,135 
PRINT 'N0THINB NORE'JiSOTO 210 
YET AGAIN";tGOT0 210 
SLOWLY CREEPING"; :G0Tfl 210 
iGOTG 210 



*,. .EVERMORE" 
"NEVE MORE*; 



PRINT 

PRINI 

PUNT 

PRINT 

IF U>0 OR RND<1».1* THEN 212 

PRINT ",*;:t)"2 

IF RND<1>>.*5 THEM 214 

PRINT • ";iU=U*1lfiOT8 215 

PRINT I 8*0 

I«!NT(IMTnO«RHI(1})/2>+1 

J*JM t K*K*1 

IF U>0 OR HTI J/2)OJ/2 THEN 240 

PRINT " "J 

ON J GOTO tO, 110, 120, 130,250 

J*0 1 MINT t If K>20 THEN 270 

OOT0 215 

PRINT ; 1f«0 i K-0 r 80T0 110 

END 



MIDNIGHT WEARY FIERY EYES, STILL SITTING.... 
DARKNESS THERE 

NOTHING WIRE 
PROPHET, NEVER FLITTING, SHALL BE LIFTED YET AGAIN 

PROfHEF 

NEVER FLITTING 01S0TH THE RAVEN 

SL0ULY CREEPING 
FIERY EYES 

BEGUILING HE, SI6N OF PARTING 

NEVERHORE 
MIDKIGHT BREARY 

THRILLED K£ 0U0TH THE RAVEN ..•EUERflOPE 



THRILLED NE BIND OR FIEND 

BURNED 
DARKNESS THERE ...EVERftOftE 

PROPHET BEGUILING BE 
DARKNESS THERE YET AGAIN 
NEDNI8HT BREARY 

STILL SITTING..., W0TH THE RAVEN, HtlHIM MORE 
BIRD OR FIEND 

BURNED SIGN 8F PARTING NOTHING WORE 
NIBNI6HT WEARY 

STILL SI1TINB.... 
QUOTH THE RAVEN NEVERftORE 



STILL SITTING,,.. 

MIDNIGHT BREARY STILL SITTING.... 

AID NT SOUL 

YET AGAIN 

PROPHET THRILLED HE, SIGH Of PARTING, 

...EVERR0RE 
BIRD OR FIEND, STILL SITTING.... 

TET AGAIN 
TUNG OF EVIL BURNER 
DARKNESS THERE NEVERHORE, 
TRING OF EVIL 

IEQUILIN8 flE SIW OF PARTIHQ „,EVEM0RE 
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You and the computer are opponents 
in this game of draw poker. At the start 
of the game, each player is given $200. 
The game ends when either player runs 
out of money, although if you go broke 
the computer will offer to buy your 
wristwatch or diamond tie tack. 

The computer opens the betting 
before the draw; you open the betting 
after the draw. If you don't have a hand 
that's worth anything and you want to 
fold, bet 0, Prior to the draw, to check 
the draw, you may bet .5. Of course, if 
the computer has madea bet, you must 
match it in order to draw or, if you have 
a good hand, you may raise the bet at 
any time. 

The author is A. Christopher Hall of 
Trinity College, Hartford, Connecticut. 

POKER 
CREATIVE C0MPUTIN8 HORRISTOUN, HEV JERSEY 

YELCOAE TO THE CASINO. UE EACH HAVE *20O 

I UILL OPEH THE BETTIN6 BEFORE THE DRAU; YOU OPE* AFTER 

UHEH YOU FOLD, BET 0; TO CHECK, BET -5 

ER0U6H TALK — LET'S SET BOVW TO BUSINESS 



THE ANTE IS 15. I PILL DEAL 

YOUR HANB: 
t — ACE Of CLUBS 
3 — KING OF CLUBS 
5 -- 2 Of SPADES 



2 — QUEEN OF CLUBS 
4 — 7 OF CLUBS 



1 CHECK 

UHAT IS YOUR BET? 5 

I'LL SEE YOU 

NOU UE BRAU ~- HOU NARY CARDS BO YOU WANT? 1 

UHAT ARE THEIR NUNBERS 

T 5 

YOUR HEW HARBt 
1 -- ACE OF CLUBS 2 — WEEK OF CLUBS 

3 — KINS OF CLUIS I — t OF CLUBS 

5 - 5 OF CLUBS 

I AH TAKING 1 CARB 

UHAT IS YOUR BET? 100 

I'LL SEE YOU, AND RAISE YOU 101 

UHAT 15 YOUR BETT 101 

YOU CAN'T BET yiTH UHAT YOB HAVEN'T GOT 
WOULD YOU LIKE TO SELL YOUR UITCH? YES 
I'LL GIVE YOU 175 FOR IT 

UHAT IS TOUR BET* 101 



THE ARTE IS 45, I UILL WAL 

YBUR HANBi 
I — JACK Of SPARES 
J — 4 OF 8PABES 
5 " OBEEN OF D1AH0NDS 



2 — WEEN OF SPABES 
4 — 3 Of SPADES 



HBU UE COMPARE HANDS 

NT HANBi 
4 -- 6 Of CLUBS 
7 -- « OF DIAMONDS 
? « * OF SPRUES 



If " 



a OF CLUBS 
t OF CLUBS 



I CHECK 

UHAT IS YOUR IETT 5 

I'LL SEE TOU 

HOfl UE DRAU -- HOU HART CARDS W) YOU UANT? 1 

UHAT ARE THEIR NUMBERS 

t 3 

YOUR HEU HANOI 
1 — JACK Of SPADES 2 -- QUEEN Of SPADES 

3 - 4 Of SPARES 4 « 3 OF SrABES 

3 -* 3 OF HEARTS 



I Att TAKING 3 CARDS 

UHAT IS YOUR BETT 3 

I'LL SEE TOU, ANB RAISE TOU 6 

URAT IS TOUR BET? * 

HOY UE COMPARE HANDS 
HT HANB: 

4 — 3 Of CLUBS 

7 — 5 Of HEARTS 6 " 

t — OBEEN OF HEARTS 10 - 



UUEEN OF CLUBS 
- ACE OF SPADES 



YOU HAVE A PAIR OF 3 8 
AltB I HAVE A PAIR Of QUEERS 
THE HANB IS BRAUN 
ALL % 46 RENAIHS IN THE POT 



YOU HAVE A FLUSH IN CLUBS 
ANB I HAVE TUB PAIR, 9 S 
YOU (UN 

MRU I HAVE 4 17 ANB YOU HAVE • 
BB YOB U1SH TO CONTINUE? YES 

THE ARTE LS IS. I UILL PEAL 
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2 « 4 OF CLUBS 
* " QUEEN OF CLUBS 



YOUR HANOI 
I — JACK Of SPABES 
3 -- ACE OF CLUIS 
S " 5 OF HEARTS 

I CHECK 

UMT IS YOUR REIT 3 

I'LL SEE TOU 



NE BRAU — HOU JMRY CARDS BO TOU UAHT? 2 

UHAT ARE THEIR NUMBERS 

? 2 

T 5 

YOUR NEU HAND: 
1 ™ JACK OF SPABES 2 — 

3 — ACE OF CLUBS 4 — 

S - 9 OF B1ANDNDS 

I AH TAXINS 1 CARD 
UHAT IS YOUR BET? 5 
I'LL BEE TOU 



3 OF CLUBS 
OUEEN OF CLUBS 



THE ANTE IS IS, I UILL BEAL 

YBUR HAND: 
I — 8 Of CLUBS 
3 — 6 Of HEARTS 
3 — 3 Of BIABONDS 



2 - 
* — 



OF SPABES 
OF CLUBS 



MOU UE CORPARE HANDS 

HT HANBe 
4 — 3 OF HEARTS 
7 ~ 4 OF HEARTS 
f -- ? flF CLUIS 



* « 7 Of HEARTS 
10 — ACE OF HEARTS 



I'LL OPEN WITH 2fl 
URAT IS YBUR BET? 

I UIH 

N€U I HAVE S 226 ANB TOU NAVE I 

BO YOU UISH TO COJITINBE? YES 
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YOU HAVE SCHHALT2, ACE HIGH 
AND I HAVE SCHMALTZ, ACE HIGH 
THE HANB IS BRAUN 
ALL 4 34 REftAIftS IN THE POT 

I'll BU8TEB. CONGRATULATIONS! 
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I PRJNT TAB (33); "POKER" 
4 PRINT 1*1(13) {"CREATIVE 
i PRltfT: Pit UTJ PRINT 



COMPUTING MJRRI5T0UN, NEU JERSEY' 



HIM A<50) t BM5> 
BEF cttAU) = lNT<10»RftD(m 
BEF FH8a>=X-lOO*IWTU/IOO) 
PRINT "UCLCONE rO THE CASINO. 
I tUU OPEN THE BETTING 



'JtfE* YOU FOLD* BEI 



100 

no 
120 
130 
HO 
150 
HO 
170 
180 
HO 
200 
210 
220 
230 
240 
250 

270 
260 
290 
300 
310 
320 
330 
340 
350 
340 
370 
J to 
390 
4 tO 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
540 
370 
StO 
590 
600 
610 
620 
630 
640 
650 
640 
670 
690 
610 
700 

/to 

720 
710 
740 
750 
740 
770 
730 
790 
StO 
810 
820 
1)30 
840 
830 
340 
870 
S80 
£90 



THEN 3670 
'THE ANTE IS 



200 



10 



PRINT 

PRINT 

PRINT "ENOUGH TAL* — LET 

PEIHT 

LET 0*1 

LET C=200 

LET S=200 

LET P=0 

REN 

PRINT 

ir c<»5 

PRINT 
PRINT 

If 5>5 THEN 
SOSUB 3830 
LET P=P*10 
LET 5=3-5 
LET C=C-5 
FOR Z=T TO 
GOSUB 1740 
NEXT 2 

PRINT "YOUR 
N=1 

GOSUB 

N=6 

1=2 

60 SUB 

PRINT 

IF KM THEN 

IF FNft<0K=7 

LET XM1100 

SOTO 420 

IF FNA(0)<=7 THEN 40C 

LET X=I11I0 

GOTO 420 

IF FHft<0)>=1 THEff 450 

X«111M 

w 



o; to 
S OCT 



UE EACH HAVE SZOO" 

BEFORE TH£ BftAU; YOU OPEtt AFTER' 

EHECK, BET ,5" 

IQUN TO BUSINESS" 



15. I WILL DtAL' 



HANBi 



185* 



2170 



470 

THE* 



370 



Z-23 

GOTO 580 

Z»1 

GOTO 510 

IF U>-13 THEN 540 

IF FNA<0)>=2 THEN 500 

GOTO 420 

1*0 

K=0 

PRINT 'I CHECK" 

GOTO 420 

IF U<*16 THEN 570 

Z=2 

IF FNA10»=1 THEtf 580 

1=35 

V=Z+fHA<0> 

G0SU8 3480 

PRINT "I'LL OPEN UITH "V 

K=V 

GOSUB 3050 

GOSUB 650 

GOTO 820 

If I<>3 THEN ?60 

PRINT 



I MIN' 



1 



HAVE t'C'AND YOU HAVE 
WISH TO CONTINUE"; 



1"S 



PRINT 

C»C*P 

PRINT 

PRINT -DO 

INPUT H$ 

IF Ht*"Yt$" THEM 120 

IF H»='NO" THEN 4100 

PRINT "ANSUER YES OR NO, PLEASE*" 

GOTO 700 

If I<>4 THEN 810 

PRINT 

PRINT "TOU UIN" 

S«S«P 

GOTO 490 

RETURN 

PRINT 

PRINT "IfOU UE DNAU — HOU tfflNY CARDS 50 10U UAttT 

INPUT T 

IF 1=0 THEN 980 

2=10 

IF T<4 THEN 900 

PRINT "TOU CAN'T DRAW NORE 

GOTO 840 



900 
910 
920 
930 
940 
950 
940 

?;o 

980 

990 

1000 

1010 

1020 

1030 

1040 

105O 

1040 

107O 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1170 

1280 

1290 

1300 
UlO 
1320 
1130 

1340 
1350 
1360 
1370 
1330 
1390 
140O 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1320 
1530 
1540 
1550 
1540 
1570 
1580 
1590 
1600 
1610 
1620 



(W-4)K>IO*INTU/lO*<U-3)) THEN 1020 



z-io-rcARO - ; 



)?0 



PRIN1 "WHAT ARE THEIR NUH8ERS 

FOR G"l TO 1 

INPUT U 

GOSUB 1730 

NEXT 

PRINT "TOUR NEU HAND:" 

H=1 

SOSUB 1850 

Z=10+T 

FOR U=6 TO 10 

IF INKX/KT 

GOSUB 1730 

UIXJ U 

PRINT 

PRINT "! AN TAKI 

IF Z»11*T THEM 1 

PRINT rt S H 

PRINT 

BOTO 1100 

PRINT 

H-6 

tf=I 

1=1 

GOSUB 2170 

B=U 

H=D 

If U<>7 THEN 1190 

1*28 

BOTO 1330 

IF I<>6 THEN 1220 

Z=1 

GOTO 1330 

IF U>=13 THEN 1270 

I"2 

IF FHft(0K>6 THEN 

Z«19 

GOTO 1330 

IF tt>-H THEN 1320 

Z=19 

IF FHA<0><>8 THEN 

Z=11 

GOTO 1330 

2=2 

K*0 

GOSUB 3050 

IF TO, 5 THEN 1450 

IF U=7 THEN 1400 
IF KM THEN 1400 



1260 



1i!0 



PRINT "I'LL CHECK- 
GO TO 1460 
V=2tFNA<0? 



GOSUB 

PRINT 

K*V 

SOSUB 

GOSUB 

PRINT 

PRINT 

Jf"H* 

K1«If 

PRINT 

H*6 

GOSUB 

N=1 

GOSUB 

PRINT 

PRINT 

K*0 

GOSUB 

H*=J* 

IB-K* 

K=H 

PRINT 



3480 

•I'LL BEfV 

3060 
450 

"HOU UE C0ftPAR£ HANDS' 



f »tt HAND: 1 



1850 



2170 



YOU HAVE 



3690 



'"AND I HAVE 



THAN THREE CARDS" 



1630 
1640 
1650 
1660 
1662 
1464 
1670 
1680 
1490 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1745 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
I860 
1870 
1880 
1890 
1900 
1910 
1520 
1930 
1940 
1950 
I960 
1970 

??eo 

1990 
2000 
2010 
2420 
203O 
2040 
2030 
2060 
207O 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2(50 
2160 
2170 
2160 
2190 
2200 
2210 
2320 
2230 
2240 
2250 
2260 



5QSUB 3690 

IF 8>U THEN 670 

!F U)8 THEN 780 

IF Hi=-fl FLU$" THEN 1700 

IF FNB(HXFHB(0> THEN 780 

IF FNB(N)>FNB(0> THEN 670 

PRINT "THE HAND IS DRAWN' 

PRINT "ALL fP'-REMINS IN THE POT" 

GOTO 140 

IF FNB<H»FNB(0) THEN 670 

IF FNB<B)>FN8(H) THEN 780 

GOTO 1670 

Z=Z*t 

A<2)*100*INT<4»RNDm} + !HmOO*RHDm) 

If INTUa>/100)>3 THEN 1740 

IF A<Z>-100*WT<ftfZ>/100)>12 THEN 1740 

IF ZM THEN 1840 

FOR KM TO Z-l 

IF A<2)*A(PJ THEN 1740 

NEXT K 

IF Z<" 

N=A(U) 

AtU)=Al2J 

AC2)±N 

RETURN 

FOR Z'H TU 



THE* 1840 



H*4 



PRINT I"— "J 

GOSUB 1930 

PRINT ■ OF"; 

G0SU1 2070 

IF Z/20INT1Z/2> THEN 1920 

PRINT 

NEXT 2 

PRINT 

RETURN 

K«FNBCA(2}> 

IF K<>? THEN 1980 

PRINI "JACK"; 

IF KO10 THEN 2000 

PRIHT "QUEEN"; 

IF KOll THEH 2020 

PRINT "KINS"; 

IF KOI 2 THEN 2040 

PRINT "ACE"; 

If K>«9 THEN 2060 

PRINT K*2; 

RETURK 

MNTlAU)/10O> 

IF KOO THEN 2100 

CLUBS - , 

THEN 2120 

DIAMONDS", 

THEN 2140 

HEARTS', 

THEH 2160 

41 



PRINT " 

IF KOI 

PRINT - 

IF K<>2 

PRINT " 

IF KC3 

PRINT ■ 

RETURN 

U=0 

FOR Z=H TO N+4 

t(Z}=FN8(A<Z)> 

IF Z«N*4 THEN 2230 

IF INKA(Z)/100)OINT(A(Z+n/100) 

U=U*1 

NEXT I 

IF U04 THEN 
X=1 till 

D=ACN) 



THEM 223» 



23t0 
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H**"A FLU3" 

Ii= - H IN" 

U=15 

RETURN 

FOR Z^N 10 N+3 

FOft K»Z*1 TO N+4 

IF KiK'JmO THEM 2390 

X=A(Z) 

A(2)»A1K) 

B<2)=B(K! 

A<K)*X 

B<K)=A(KMO0*INT(A<K)/10O) 

NEXT £ 

NEXT Z 

X=0 

FOR Z=N TO N+3 

IF i<Z>OB<Z*U THEN 2470 

X=X*11*lOMZ-H» 

6Q5UB 2 ■-■--. 
NEXT Z 

IF XOO THEM 2620 
!F B<NJ*30*M*3) THEW 2320 
X=1!1I 
11=10 

IF R(N+IJ+30B<W*4> THEN 2620 
IF UO10 THEN 2600 
U-14 

H*""STRAIS" 
I$"'HT" 
X"l flit 
D»ACN+4) 
RETURN 
0*10 
X*11110 

IF U>=10 THEN 26*0 
0=A(N+4) 
HS^SCHrtAL* 
J*=M2» » 
U«9 

X=UOO0 
60TD 2/40 
IF BOIO THEN 2720 
}f i=t THEN 2740 
GOTO 2750 
IF U>12 THEN 2750 
IF FN8II»>6 THEN 2750 
1 = 6 

RETURN 

IF B>«11 THEN 2810 
U=1t 

H*»'A PAIR- 
IS** OF " 
RETURN 

IF UOIl THEN 2910 
IF B*ZK>BIZ-1> THEN 2870 
HS = ' THREE" 
It«* " 
U-13 
RETURN 
H*="TUO P" 
I*='AIR, " 
U=12 
RETURN 

If U>12 THEN 2960 
U»l« 

H*="FULL H - 
I»»"OUSE f " 
RETURN 

IF l(ZK>B(Z~1l THEN 3010 
0=17 

Ht="F0Uft" 
I*=* " 
RETURN 
U=16 

HI" "FULL «" 
I*=-QU5E, - 
RETURN 
6=0 

PRINT "UHAT 15 TOUR BET"; 
INPUT T 

IF l-INT<T>=0 IHtrt 3140 
IF KOO THEN 3120 
IF GOO THEN 3120 
IF F-.S THEN 3410 
PRINT rt H0 tniX CKAM6E, PELASF." 
GOTO 3060 

IF S-8-T>=0 THEN 3170 
GOSUB 3030 
0010 3060 
If TOO THEN 3200 
1*3 



3l?0 
3200 
3210 
3220 
3230 
3240 
J2M) 
3260 
3270 
3230 
3290 
3JO0 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3140 
3450 
3460 
3470 
34*0 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
36* 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
J9J0 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 



SEE NY t£T, THEN FOLD' 



GBTO 3380 

If G*r>-K T«H 3230 

PRINT 'IF YOU CAN'T 

8GT0 3060 

G=fl+T 

IF G=K THEN 3380 

IF K>1 THEN 3420 

IF G>5 THEN 330O 

IF Z>*2 THEN 3350 

V*5 

GOTO 3420 

IF 2*1 THEN 3320 

IF l<=25 THEN 3350 

1=4 

PRINT -I fOLD" 

RETURN 

IF Z=2 THEN 3430 

PRINT MIL SEE YOU" 

K*0 

3=S-8 

E=C-K 

P=P*$*K 

RETURN 

IF 8>3*2 THE« 3350 

Or6-K*FKA(0> 

80SU8 3480 

PRINT "I'LL SEE TOU, ANO RAISE TOU"U 

K=6+V 

GOTO 3060 

IF C-G-V>«0 THEN 3A60 

IF GOO THEN 3320 

V=C 

RETURN 

IF C-B>=0 THEN 3360 

IF IO/2KMNKO/21 THEN 3600 

PRINT "UQULI TOO LIKE TO BUT 

INPUT J$ 

IF JI""RD" THEN 3600 

C=C+50 

0=0/2 

RETURN 

IF 0/3OMTC0/3) THEN 3670 

PRINT "UOULB TOU LIKE TO BUT BACK TOUR TIE TACK FOR S30' f 

INPUT Jt 

IF JI="NO" THEN 3670 

C«C*» 

0-0/3 

RETURN 

PRINT 

STOP 

print hfjit; 

IF HIO'A FLUS" 
MHUK/lMl 

GOSUB 2080 

PRINT 

RETURN 

k=FME4K> 

60SUB i960 

IF H$- - SCHHAL" THEN 3790 

IF H*0"STRAI6" THEN 3810 

PRINT * HIGH" 

RETURN 

PRINT "S" 

RETURN 

PRINT 

PRINT 



BACK YOUR UftTCK FGR 150' 



'I'll BUSTtD, C'JNSKMUUlTIUNSi 



THEN 3750 



UITH UHAT YOU HAVEN'T GOT 1 
3970 
TO SELL TOUR UATCH-: 



TOU CAW'T BET 
If 0/2MNTCB/2) THEN 
PRINT "UOULO TOU LIKE 
INPUT Jt 

IF J*="N(P IHEN 3970 
IF FNA(0J>=7 THEN 3930 
PRINT 'I'LL GIVE YOU $75 FOR IT" 
5=S*75 
BOTO 3950 

PRINT 'THAT'S A PRETTr CRUri-T MATCH - I'LL GIVE YOU 125' 
S=S+25 
0=0*2 
RETURN 

IF MOlNfU/ll 
PRiNT "HILL YOU 
INPUT Jl 

IF J*«NHT THEN 4090 
IF FNA(0»=6 THEN 4050 
PRINT "YOU ARE NOU 1100 RICHtR" 
S=S*100 
GO 10 4070 

PRINT "IT'S PASTE. S25" 
S=S*25 
0=0*3 
RETURN 
PRINT "YOUR UAO IS SHOT. 50 LONG, SUCKER!' 



THEN 4090 
PARI UITH THAT 



I1AHUNQ HE TACK"! 
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This game is based on the permissi- 
ble moves of the chess queen — i.e., 
along any vertical, horizontal, or 
diagonal. In this game, the queen can 
only move to the left, down, and 
diagonally down to the left. 

The object of the game is to place the 
queen (one only) in the lower left-hand 
square (no. 158), by alternating moves 
between you and the computer. The 
one to place the queen there wins. 

You go first and place the queen in 
any one of the squares on the top row 
or the right-hand column. That is your 
first move. The computer is beatable, 
but it takes some figuring. See if you 
can devise a winning strategy. 



81 71 At 51 41 31 31 11 



n n n « ' w 42 32 22 



103 ?3 33 73 a 33 43 33 



114 104 ?4 84 74 44 W 44 



125 113 113 f3 85 73 63 33 



134 126 It* \M U 86 76 66 



147 137 127 117 107 97 87 77 



138 148 138 121 118 108 



QUEEJt 
CREATIVE COrtPVTIlie HORRISTCUN, HEU JERSEY 



uhere uouli rau like to start? 44 

COMPUTER ftDV£S TO SQUARE S3 
WHAT 13 TOUR HOVET 63 
COMPUTER H0UC3 TO SQUARE 73 
UHAT 18 TOUR NOVET 13 
COMPUTER B0VE5 TO UHAJtC 127 
UMAT IS TOUR HCVEt 138 
COUPLER PQVE3 TO SQUARE 158 



BO YOU MM INSTRUCTIONS? YES 

UE ARE DOING TO PUT A SAME IASCI ON ONE Of THE CHESS 
HOVES. OUR WEE* UUL RE AILE TO ftQVE ONLY 18 THE LEFT, 
DOUN, OR tIAGONALLY IQUM AH8 TO THE LEFT. 

IHE 88JECT OF THE GAAE IS TO PLACE THE QUEEN IN THE LOUER 
LEFT HAND SQUARE IY ALTERNATING rtDVES BETUEEN YOU AMI THE 
COMPUTER. THE FIRST ME TO PLACE THE OUEEH THERE UIUS* 



MCE TRY, RUT IT L 

THANKS FDR FLAUItG. 



LIKE I HAVE HEM. 



AHYOIE ELSE CARE 18 TRYT YE3 

UKEftE UOULR YOB LJKE TO STAUTT 31 
COMPUTER ftOVES TO SQUARE 73 
WHAT IS YOUR H6VET 93 
CWPU7ER ROVES TO SQUARE 138 



Y8U 88 FIRST AAB PLACE THE QUEEN IN ART OK Of THE SQUARES 

01 THE T8P ROU OR RIGHT HAND COLURH. 

THAI HILL i£ YOUR FIRST HRVE. 

UE ALTERNATE ROVES. 

YOU HAY FORFEIT 8Y TYPING 'C AS YOUR HOME. 

U SURE T8 PRE88 THE RET8RR KEY AFTER EACH RESPONSE* 



NICE TRY, BUT IT LOOKS LIKE I HAVE WW. 
THANKS FOR PLAYIN6. 

ANYONE ELSE CARE TO TRYT HO 

OH — THANKS AGAIN. 
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1 PRINT TAB<33);'QUEEH" 

2 PRINT TA8U5);"CREATIYE COKPUTHfl HORRISTOUN. NEU JERSEY 11 

j NtuiittMTiruin 

10 DIM SUV 
FOR I«1 TO 
READ Sili 
I 
81, 

103, 
114, 
125, 
1J4, 

1*?, 

15B, 

(0 



It 
12 

15 
M 
13 

I* 
17 

18 

IP 
20 
21 
22 
23 
24 
25 
24 
2fl 
2? 
30 
90 
100 

lie 

113 

121 
130 
HO 
150 
140 
170 
175 

too 

200 

210 

215 

220 

230 

231 

232 

233 

234 

235 

23? 

240 

250 

260 

270 

280 

2f0 

2?5 

300 

310 

320 

330 r 

mo 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2065 

2070 

2030 

2090 

2100 

2105 

2110 

2120 

2125 

2130 

2140 

2145 

2150 

2155 

2160 

2170 

2180 

2190 

2??0 



NEXT 
DATA 
IATA 
Bfllfl 
IATA 
IATA 
IATA 
DATA 
OATA 
INPUT 



64 



7U 
92 r 

f*t 
104, 

115, 

126, 
137, 
148, 
YOU 



«■ 

72, 

83, 

*«• 

105, 
116, 
127, 
138, 

UANT IHST8UCtiONS":UI 



31, 

73, 
84, 
IS. 

106, 
»»?, 

126, 



41, 

32, 
43, 
74, 
65, 
*6 t 
107, 
118, 



31, 
42, 

53, 
64, 
75, 

86, 

»7 f 
'06, 



12, 
43, 
54, 
W, 

76, 
67, 



'N0 J THEM 30 
'YES" THEM 26 
'PLEASE ANSWER 



LIKE TO START"; 



IF III** 
IF Uf- 

print ^please answer 'ye8' or 'ho' 

botg 22 

flOSUl 50 OC 

6oro ioo 

G05UI 5150 
REN ERAQR CHECKS 

PRINT -ilKERE WOULD TOO 
INPUT HI 

IF HMO THEN 232 
TIMUKII/11) 
I1-NI-1I*T1 
IF 111*1 THEN 200 
IF I Ml THEN 200 

MI«T "HEME REAR T«E IIIECIIOm AGAIN." 
PRUT "YOU HAVE IEGUH IUEOAUT. N 
PRINT 
GOTO 100 
GOSU* 2000 

PRINT "COMPUTER HOVES TO SOUAfiE";H 
IF H»156 THEM 3400 
PRINT "(MAT IS TOW HOVE"; 
INPUT HI 

IF II1O0 THEN 239 
PRINT 

PRINT "IT LOOKS LIKE I HAVE UQN BY FORFEIT.* 
PRINT 
GOTO 4000 

IF HK-H TH£N 3200 
T1*W(H1/10) 
M»K1-10*T1 
P"W1-U 

IF POO THEN 300 
L-T1-T 

IF L<>0 THEN 3200 
8QT0 200 

IF Tl-T OP THEN 320 
GOTO 200 

IF T1-I 02+P THEN 3260 
80T8 200 

REN LOCATE HOVE FOR COMPUTER 

IF K1«41 THEN 2180 

IF H1«44 THEN 2180 

IF HW3 THEN 2180 

IF RW3 THEN 2180 

IF Ht-126 THEN 2180 

IF H1M27 THEN 2180 

IF 01*131 THEN 3300 

C-0 

FOR M7 TO 1 STEP -1 

U-UI 

T-Tl*X 

G05UE 3300 

IF CM THEN 2160 

U=U*K 

B05U8 3500 

IF C-1 THEN 2160 

M« 

OOSUB 3500 

IF C"1 THEN 2160 

NEXT K 

GOTO 2160 

DM 

RETURN 
005U& 3O00 
RETURN 

REH lftHBQ« WOVE 



JOOO 

301O 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3190 

3200 

3210 

3220 

3290 

330O 

3310 

3126 

3330 

3140 

3330 

3360 

3370 

3390 

3400 

3410 

3420 

3430 

3440 

3490 

3500 

3310 

3520 

3530 

3540 

3550 

3360 

3S70 

3380 

3990 

4000 

4010 

4020 

4030 

4040 

4042 

4045 

4050 

4060 

4990 

3000 

3010 

5020 

5030 

3040 

3030 

5060 

50?0 

3080 

3090 

3100 

3110 

5120 

3130 

5140 

3150 

5160 

5170 

5180 

5183 

5190 

3200 

5210 

5220 

5230 

5240 

5250 

5260 

9999 



-CONGRATULATIONS..." 

-TOU HAVE URN— VERY UELL PLAYER." 

"IT LOOKS LIKE I HAVE HET NY HATCH." 

-THANKS FOR PLATING— 1 CAN'T VIN ALL THE TI«.' 



IF Z>,6 THEN 3110 
IF Z>.3 THEH 3070 
Mill 
1"T1*l 

8*10*T4U 

HE TORN 

B-U1+1 

T»T1*2 

|-HtT+U 

RETURN 

U-Ultl 

1-71+1 

B-IOtT+0 

IE TURN 

IEH illegal hove message 

PRINT 

PRINT "YOU CHEAT.., TRY AGAIN-; 

GOTO 210 

SEN PLAYER VIH9 

P6INT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

SOTO 4000 

REN COAfUTER NIN5 

PftINT 

PRINT "NICE TRY, RUT IT LOOKS LIKE I HAVE UOH. 

PRINT "THANKS FOR PLAYING. " 

PRINT 

60TO 4000 

REN TEST FOR COMPUTER NOVE 

H-IO'THI 

IF H-138 THEN 3370 

IF N»127 THEN 3570 

IF R*124 THEN 3570 

IF N«75 THEN 3370 

IF H«73 THEN 3S70 

RETURN 

C"t 

SOTO 3560 

REN ANOTHER OAHETTT 

PRINT "ANYONE EL5E CARE TO TRY"; 

INPUT 6t 

PRINT 

IF 0$""YES" THEH 100 

IF QI«"W THEN 4050 

PRINI "PLEASE ANBUER 

60T0 4090 



T£S' Off 'HO'," 



PRINT 

STOP 

REN 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

Fflft A«# TO 

FOR 1*1 TO 

I"8tA»6 

print sm; 

NEXT 6 

PRINT 

PRINT 

PRINT 

NEXT A 

PRINT 

RETURN 

Em 



"OX — THANKS AGAIN. " 

DIRECTIONS 
"HE ARE 60ING TO PLAY A GAHE RASED ON ONE OF 
"NGVES. OUR QUEEN URL BE A8LE TO HOVE ONLT 
•flOUN, OR DIAGONALLY 80UN AND TO THE LEFT* - 



THE CHESS" 
TO THE LEFT,' 



THE OBJECT OF THE 6AHE IS 70 PLACE THE QUEEN IH THE LOUER" 
LEFT HAND SQUARE IT ALTERNATING HOMES BETWEEN YOU AH6 THE' 
COHPUTEI, THE FIRST ONE TO PLACE THE GUEEH THERE UiNS." 



YOU 60 FIRST 
ON THE TOP 
THAT UILL IE 

U£ ALTERNATE 



AND PLACE THE QUEEN IN ANY 

OR RIGHT HAND COLUNN. ■ 
TOUR FIRST ROVE." 

MOVES.- 



ONE Of THE SQUARES 1 



■YQU HAY 
■« SURE 



FORFEIT 
TO PRES 



IY TYPIH6 '< 

i THE PEIV8N 



' AS TOUR 

KEY AFTER 



HOYS.* 

EACH RESPONSE." 
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Reverse 


































The game of REVERSE requires you 
to arrange a list of numbers in 
numerical order from left to right. To 
move, you tell the computer how many 
numbers (counting from the left) to 
reverse. For example, if the current list 
is: 

234516789 
and you reverse 4, the result will be: 

543216789 
Now if you reverse 5, you winl 

There are many ways to beat the 
game, but approaches tend to be either 
algorithmic or heuristic. The game thus 
offers the player a chance to play with 
these concepts in a practical (rather 
than theoretical) context. 

An algorithmic approach guarantees 
a solution in a predictable number of 
moves, given the number of items in the 
list. For example, one .method 
guarantees a solution in 2N - 3 moves 
when the list contains N numbers. The 
essence of an algorithmic approach is 
that you know in advance what your 
next move will be. One could easily 
program a computer to do this. 

A heuristic approach takes advan- 
tage of "partial orderings" in the list at 
any moment. Using this type of ap- 
proach, your next move is dependent 
on the way the list currently appears. 
This way of solving the problem does 
not guarantee a solution in a predic- 
table number of moves, but if you are 
lucky and clever, you may come out 
ahead of the algorithmic solutions. 
One could not so easily program this 
method. 

In practice, many players adopt a 
"mixed" strategy, with both algorithmic 
and heuristic features. Is this better 
than either "pure" strategy? 

The program was created by Peter 
Sessions of People's Computer Com- 
pany and the notes above adapted from 
his original write-up. 



■ 

■ 

■ 
■ 



i 



■ 

■ 

■ ■ . 




























REVERSE 
CREATIVE CQHPUT110 HOftRISTOUN, NEU JERSEY 






REVERSE - A SME Of SKILL 
DB YOU UAMT THE PULES? YES 






THIS IS THE SArtE OF 'REVERSE'. TO WIN, ALL YflU HAVE 
U DO 16 ARRANGE ft LIST OF KUKBERS'M THROUGH ? ) 
IV HUMERICAL ORDER FROM LEFT TO RI8HT. TO HOVE, TOU 
TELL HE HOU HAHY HUKIERS (COUNTING FROH THE LEFT) TO 
REVER9E. FOR EXAHFLE, IF THE CURRENT LIST I5t 



23451471* 

AM YOU REVERSE 4, THE RESULT UIU BE £ 

3 4 3 2 14 7 1* 

NOU IF YOU REVERSE 5, YOU UlHt 

12343*71* 






NO DOUBT TOU UILL LIKE THIS flANE, BUT 
IF YOU UAtfT TO QUIT, REVERSE C2ER0K 

. 
HEBE UE 60 ... THE LIST IS: 

14 5 1*6378 

HQU HART SHALL I REVERSE! f 

1 7 I * T I I 4 2 

HIV HUNT SHALL I REVERSE? 4 

4 3 7 8 9 15 4 2 
HSU HAHY SHALL I REVERSE? 3 

T I 7 3 4 1 3 4 2 
HQU MANY SHALL I REVERSE? 9 

2 4 3 14 3 7 8 1 
HSU HAHY SHALL I REVERSE? 3 

54214378? 
HQU HAM* SHALL I REVERSE? 4 

12 4 3 4 3 7 8? 
HOY HAHY SHALL I REVERSE? 4 

3 4 5 4 2 I 7 8 9 
HOU HAHY SHALL I REVERSE? 4 

43432t78? 
HOU HART SHALL I REVERSE? 3 

434321789 
HOU hAHT SHALL I REVERSE? 4 

123454769 
YOU UOH IT IN 10 K0VE8III 

TRY A8AIN (TES OR NO)? HO 
O.K. HOPE YOU HAI FUNfl 
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5H-52167&S 



10 FRIHT TAB(32>;"REVER8£" 

20 print tab<13>;"creativ£ cohputinb RQRRI8T0UN, NEU JERSEY" 

30 PRIHTiPRIHTiPRINT 

100 PRINT "REVERSE — * SANE OF SKILL": PRINT 

110 Dirt Jt(20> 

140 KH •*> N-NUHBER OF NUMBERS 

130 H*1 

140 PRINT "DO 10U U*HT THE RULES"; 

170 INPUT At 

1BO IF M-'KO- THEN 210 

1?0 808U8 710 

200 REN ••■ HAKE A RANDOM LIST All) TO A(NI 

210 Af1>-IRT<(IM>«RHI<1>*2> 

220 FOR K>2 TO H 

230 A(K)>IRI(II>RNI(1)*1> 

240 FOR J»t TO R-l 

290 IF A<K)*A(J) THEN 230 

2*0 NEXT Jl NEXT K 

280 REH ••• PRINT ORIGINAL LIST AMR START QANE 

2»0 PRIKTi PRINT "HERE UE 68 ... THE LIST ISi" 

310 T-0 

320 603UI ill 

3J0 PRUT "WW ItANT SHALL I REVERSE"; 

340 INPUT R 

330 IF R-0 THEN S2I 

360 IF RON THEN 3VO 

370 PRINT "OOPS! TOO HARTI I CAN REVERSE AT HOST";*! 0010 330 

310 T-T-1 

400 REN •"> REVRESE R MUHIERS AMD PRINT REU LIST 

410 FOR Ml TO INKR/2) 

420 Z-Aif K> 

430 AIK)-A(R-RO) 

440 A(R-K*I)>Z 

430 NEXT K 

440 60SUR 410 

470 KEPI ••• CHECK FOR A UIN 

480 FOR K-1 TO N 

490 IF A(K)OK THEN 330 

300 NEXT K 

310 PRINT -TOU UOH II »-;i; a MIV£8lll B i fgjNT 

520 PRINT 

330 PRINT "TRY A0A1N (YES OR NO)-; 

340 INPUT At 

350 IF A»«"YES" THEN 210 

380 PRINT: PRINT -O.K. HOPE TOO HAB fUHiri OOTQ W? 

40ft REH ••• SUBROUTINE TO PRINT LIST 

41« PRIHIt FOR X>> TO Hi PRINT A(K);i NEXT K 

430 PRINTi PRINTt RETURN 

700 REH »•» SUBROUTINE TO PRINT THE RULES 

710 PRINTi PRINT "THIS 18 THE GAHE OF 'REVERSE'. TO UIN, ALL YOU HAVE 

720 PRINT -TO DO IS ARRANGE t LIST DF NUHBERS (1 THRQU6H-;H;M" 

730 PRINT "IN NUNERICAL DRIER FROH LEFT TO RI6HT. TO HOVE, TOU" 

740 PRINT "TELL NE HBU HANY NUNBERS (COUNTINB FROH THE LEFT) TO' 

730 PRINT -REVERSE. FOR EXAHPLE, IF THE CURRENT LIST IS:" 

740 PRINT! PRINT "2 3 4 3 1 4 7 8 f- 

770 PRINTi PRINT 'AND YOU REVERSE 4, THE RESULT UILL BE!" 

780 PRINTi PRINT "3 4 J 2 1 * 7 8 V 

7T-0 PRINTi PRINT "HON IF Y8U REVERSE 3, YOU UH1- 

100 PRINTi PRINT "1 2 3 4 3 4 7 I ?"i PRINT 

810 PRINT "NO BOUBI YOU HILL LIKE THIS 6ANE, BUT" 

120 PRINT "IF YOU WANT TO OUIT, REVERSE (ZERO)."! PRINTi RETURN 

Iff EHI 
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Scissors 



* 



Remember the game of rock- 
scissors-paper You and your oppo- 
nent make a motion three times with 
your fists and then either show a flat 
hand (paper), fist (rock), or two fingers 
(scissors). Depending upon what is 
shown , the game is a tie (both show the 
same) or one person wins. Paper wraps 
up rock, so it wins. Scissors cut paper f 
so they win. And rock breaks scissors, 
so it wins. 

In this computerized version of rock- 
scissors-paper, you can play up to ten 
games vs. the computer 

Charles Lund wrote this game while 
at the American School in The Hague, 
Netherlands. 



HOU fMUY GAHES? 10 

6AHE HUHSEA 1 

3»R0CK...2«SCISSMS...1*PAP£R 

l...2...3...UHAT'S YOUft CHOICE? 3 

THIS IS MY CHOICE... 

...PAPER 

UQU! I UIH11! 

OAflE MiHtEft 2 

3-R0CK.,.2»SCISSQRS..,1 -PAPER 

1...2...3..,VHAT'S YOUR CHOKE? 2 

YHIS 13 HY CHOICE,.. 

...ROCK 

UOVt I UIM!!! 



GAftE NUrttEft 3 
3«R0CK*..2=SCISSORS. 
1...2,.,3.,.UHAT'3 1 
THIS IS HY CHOICE... 
...PAPER 
YOU Ulfttll 



.1 'PAPER 

UR CHOICE? 2 



GAKE HUHtER 4 

3>RCCK.„2"SU$SOR5,..l*PAP£R 

1...2...J...UKAT'S YOUR CHOICE? 1 

THIS IS MY CHOICE... 

...ROCK 

YIU IflHMI 

bare huhur 3 

3-r0ck...2=scissors.,.1*paper 
1... 2.. .3. ..what's your choke? 3 
this is hy choke... 
...scissors 
you umn 



GAHE Of ROCK, 
CREATIVE CGAPUTIN6 



SCISSORS, PAPER 
H0RRI8T0HH, H£U JERSEY 



10 
20 
25 

30 
10 
50 
60 
70 



PRINT Tfll(21);-G*rtE OF ROCK, SCISSIRS, PAPER" 

PRIHT IAI(15J;"CREATIVE COMPUTING HORRIST0UH> Jt£U JERSEY'* 
PRIHTfPRIHTsPRIHT 

INPUT "HOW HAHY SAMES'JQ 

IF 0<tl THEM 40 

PRIHT -SORRY, IUT UE AfiEH'T ALLOUEI TO PLAY THAT HAHY.'s GOTO 30 
FOR 6-1 TO * 

PRIHT: PRIHT *6AflE HUKBER";G 

89 X*IHT<RMU)t3tl) 

90 Mim ■3-R0CK„,2«5CISSORS..,1=PAP£R" 

IHPUI •1...2...3,.,IWAT'S YOUR CHOICE-;K 

IF UM)«M-2>«tK-3l<>» IHEH PRIHT "IHVALIP.-i GOTO ?0 
PRIHT "THIS IS HY CHOICE..." 

010 HO, 150,160 

"...PAPER-i 60TO 170 

"...SCISSORS-: SOTO 170 

"...ROCK" 



too 

110 

120 

110 

140 

no 

HO 

17* 

ISO 

190 

200 

2(0 

220 

230 

240 

230 

2*0 

270 

2S0 

no 

300 
310 



l-IHH+li 00TG 240 



OH X C 

PRINT 

PRIHT 

PRIHT 

IF X-K THEH 250 

IF X>K THEH 230 

IF X"l THEN 210 

PRIHT "YOU UIHfl 

IF K<>3 THEH 200 

PRIHT "WGWt I UIHH!-:C=C*U80T0 260 

IF KOI OR X<>3 THEH 220 

GOTO 200 

PRIHT "TIE OAKE. HO UIHttR." 

HEX! & 

PRINT: PRIHT "HERE IS THE FINAL GAME SCOREi* 

PRINT -I HAVE U0H";C;"6AflE<S)." 

PRIHI "YOU HAVE UflH";H;»GAH£<S>." 

PRIHT fc AH0-;O-(C*H>J-8AHE(3> EN9ER IN A TIE.' 

PRIHTi PRIHT UHAHKS FOR PIAYIHGH" 

Ell 



GIHE HUHBEK 6 

3-ROCK...2«5Ci3S0RS,..1=PAP£R 

1...2,..3.,.UHAT'8 YOUR CHOICE? 2 

THIS IS Hi' CHOICE... 

...SCISSORS 

TIE SAKE. HO DINNER. 

QAHE ItUHIER ? 

3«ROCK.*.2*SCISSORS...1*PAPER 

t... 2. ..J. ..MAT'S Y00R CHOICE? 2 

THIS IS HY CHOICE... 

...ROCK 

\m\ I UINIf! 

GAHE MUHBEft 8 

3-R0CK..,2*SCISS0RS...»»PAP£R 

1... 2. ..3... MAI'S YOUR CHOICE? 3 

YHIS IS HY CHOICE... 

...ROCK 

TIE OAHE. HO WIHHER. 

OWE HUMER * 

3**0CK...2=SCISS0A$...1»PAP£R 

1...2...3...UHAT'S YOUR CHOICE? I 

THIS IS HY CHOICE... 

...ROCK 

YOU l/IH!'! - 

GAHE HUHBER 10 

3>R0CK...2-SCIS$0RS...UPAPER 

1...2...3...UHAl'5 YOUft CHOICE? 2 

THIS IS HY CHOICE... 

...ROCK 

UOW! 1 U1HH! 

HERE IS THE FINAL GAHE SCORE) 
I HAVE UOIf 4 GAflE(S>. 
YOU HAVE UOH 4 SAHEtSK 
AHO 2 GAHE<S» EHIED IN A TIE. 
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Roulette 



This game simulates an American 
Roulette wheel; "American" because it 
has 38 number compartments (1 to 36, 
and 00). The European wheel has 37 
numbers {1 to 36 and 0). The Bahamas, 
Puerto Rico, and South American 
countries are slowly switching to the 
American wheel because it gives the 
house a bigger percentage. Odd and 
even numbers alternate around the 
wheel, as do red and black. The layout 
of the wheel insures a highly random 
number pattern. Intact, roulette wheels 
are sometimes used to generate tables 
of random numbers. 

In this game, you may bet from $5 to 
$500 and you may bet on red or black, 
odd or even, first or second 18 
numbers, a column, or single number. 
You may place any number of bets on 
each spin of the wheel. 

There is no long-range winning 
strategy for playing roulette. However. 
a good strategy is that of "doubling." 
First spin, bet $1 on an even/odds bet 
(odd, even, red, or black). If you lose, 
double your bet to $2. Ifyouloseagain, 
double to $4. Continue to double until 
you win (i.e., you break even on a 
losing sequence). As soon as you win, 
bet $1 again, and after every win, bet 
$1. Do not ever bet more than $1 unless 
you are recuperating losses by dou- 
bling. Do not ever bet anything but the 
even odds bets. Good luck! 



TYPE* OF KTS 

THE NUNBEIB 1 TO 34 SIGNIFY A STRAIGHT BET 
OH THAT NUMBER 
THESE PAI OfF »i» 



THE 2 : 1 IET3 

J7> 1-12 
IB) 13-2* 
3?) 23-34 



IRE i 

'.01 
41 > 
42) 



FIBST COLUMN 

SECOND COIUIW 
THIRD COLUMN 



THE EVEN K0NEY BETS ARE: 

43) 1-16 44) ODD 

44) 19-34' 47) RED 
451 EVE* 4») BLACK 



4?>0 HUB 50)00 MY OFF 35*1 
HOIEl AMI 00 BO HOT COUNT UNDER ANY 
BETS EXCEPT THEIR 0UH 

UMEH I ASK FOR EACH BET.IYPE THE WJMCR 
AND THE AMOUNT, SEPARATES BY A COMAS 
FOR EXANPLEiTO BET 1500 ON 8L*CK,TYP€ 48,500 
UttEV I ASK FOB A BET 

MINIM* BET IS fS.HAXIMUH IS 4SO0 



H0U NAM! BETST 2 
NUMBER 1 T 2,100 
NUMBER 2 T 44,100 
SPUMIK9 



20 BUCK 



YOU LOSE 100 B0LLARS ON BET 1 
YOU LOSE 14)0 DOLLARS OH BET 2 



TOTALS! HE 

100200 

ABAINT YES 

HOU KAHY BETSt 4 

NUNBER 1 T 19,20 

NUMBER 2 T 21,20 

HUHBER 3 t 40,100 

NUHBEX 4 T 4?,10 

SPINNING 



YOU 



ROULETTE 
CREATINE CQNPUT1H8 H0RRIST0UN, *IEU JERSEY 

ENTER CtMlRENT BATE (AS IN 'JANUART 23, IWB'l -T DECEMBER 2, t«" 
UELCOIIE TO THE ROBLETTE TABLE 

B0 YOU UINT INSTRUCTIONS? YES 

THIS IS THE BETTIN6 LAYOUT 
(•■RED) 



YOU LOSE 20 DOLLARS OH BET 1 
YOU LOSE 20 DOLLARS OH BET 2 
YOU LOSE 100 DOLLARS OH BET 3 
YOU UIK 350 DOLLARS ON BET 4 

TOTALSt HE YOU 

99990 1010 

AQAINT NO 
TO UHON SHALL I HAKE THE CHECKT A. CQNPUTER 



I* 
I 

7» B 
It 11 



2 
I* 



34 

6 

?• 

12* 



13 


14* 


13 


16* 


17 


18* 


\U 


20 


21* 


22 


23* 


24 


25* 


24 


27* 


28 


» 


30* 


31 


32* 


33 


34* 


35 


36* 



00 



CKECK NO- 22 



DECEHBER 2, 1?77 



P«Y TO THE ORDER OF A. COMPUTER * 1010 



THE HENDRY BANK OF U1861NIA 



THE COMPUTER 
X 



COflE BACK SOON! 
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FRJH1 TAJ(3ZJ;"RlJW.EnC" 

PftlMT TAI(!5*;*CREATIYE COftPUTINfl flORRISTQUN, KEU JERSEY 1 

PRIMItPRIHTiPRINT 

PRINT 'ENTER CURRENT DATE (AS IN JANUARY 23, 1978') -"; 
IHPJT II, Et 
REN-ROULETTE 
ftEfl-PAVID JOSLIN 

PRINT "UELCOHE TO THE ROULETTE TABLE- 
PRINT 

PRINT "10 YOU UAKT INSTRUCTIONS"; 
INPUT Tl 

IF LEFTt(Y« t n« a H- THEN 1350 
PRINT 

'THIS IS THE BEIT1N6 LAYOUT" 

1 (**RED)* 



■ 1* 
• 4 

" ?9 

■10 



2 

5* 



3* fc 

4 * 

9** 

I2* h 



*u 


14* 


13 * 


■u* 


1? 


18*" 


"19* 


20 


2U" 


"22 


23* 


24 ■ 


'25* 


26 


27*" 


•2a 


29 


30*" 


"31 


32* 


33 * 


■34* 


33 


34** 



00 



"THE NUI1BERS 1 TO 
"ON THAT RUBBER" 



U SIGNIFY A STRAIGHT BET' 



THESE PAT OFF 35ll> 



THE 2*1 BET! 
1 ST) 1-12 
1 35) 13-24 

1 39* 25- 3d 



AREi" 
40* FIRST CGLUrtN" 

41) SECOND COLUNH' 

42) THIRD COLUrtH" 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT "TYPES Of IET3 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

REfl-PROBRAR BEGINS HERE 

REN-TYPE OF BET(NUHKR) 000$ 

REN DON'T NEE* TO BIHENSION STRINGS 

DIN B<100>,C(100* f T(tOO),X<38> 

DIM A<5tJ 

FOR I-t TO J8i XU)»Oi NEXT li REff HAT X-ZER 

PMOOO 

D* 100O0*. 

PRINT «NOU NANT RETS"; 

INPUT T 

If T<l GR YOUTIY) THEN 143* 

FOR 1-1 TO 50: *U)*0i NEXT I: REM NAT A'ltR 

FOR C«1 TO T 

PRINT H HUNR£R R ;C? 



'THE EVEN HONEY RETS ARE:* 1 
" 43* 1-18 46* OBD" 

" 44* 19-34 47* RED" 
1 45* EVEN 48* BLACK" 

* 49*0 AN* 30)00 PAT OFF 3Si1" 

* HOTE: AND CO BO NOT COUNT UNDER ANT" 
BETS EXCEPT THEIR OWN" 

"UHEH I ASK FOR EACH BET,TYP£ THE NUH8ER" 
"AND THE AHOUNT, SEPARATED BY A COftHA" 
-FOR EXAflPLE;TO BET »3C0 ON BLACK, TTPE 48,300' 
"UHEN I ASH FOR A BET" 

'UMRIM BET IS *5,ttAXimiH IS 4500" 



IATO 

1700 

1710 

1720 

1730 

1740 

1730 

1740 

1770 

1780 

17f0 

1800 

1910 

1820 

1830 

1840 

1830 

I860 

1070 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1f50 

If 40 

If 70 

1980 

If 90 

2000 

2*10 

2020 

203O 

2140 

2450 

204O 

2070 

2*80 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2140 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2240 

2270 

2280 

2290 

2300 

2310* 

2320 

2330 

2340 

2330 

2340 

2370 

2380 

23f0 

2400 

2410 

2420 



new 

T<C)*X 
IF X<1 
IF Z<1 
IF Z<3 
IF 4<X>< 



HI 

OR 

UK 



X>30 Oft XOINT(X) THEN 1 
ZOINT(Z) THEN 1480 
2>500 THEN 1 
THEN 1780 



MADE THAT BET ONCE ALREADY, DUN-DUN* 



PRINT "YOU 
SOTO 1488 

*m»i 

NEXT C 

PRINT "SPINNING* 

PRINT 

PRINT 

S>IHT<100*RtfDU}> 

IF S*0 OR 3>36 THEN 1830 

X(8)*X<S**1 

IF S<37 THEN 1920 

IF S-J7 TUEH 19*0 

PRINT "00" 

80TQ 2020 

PRINT -0" 

SOTO 2020 

RESTORE 

FOR 1=1 TO 18 

RE AB R 

IF R"S THEN 2000 

NEXT I 

A4--BUCK" 

PRINT 8;At 

GOTO 2020 

A*--R£i- 

GOTO 1980 

PRINT 

FOR C*l TO Y 

If T(C)<3? THEN 

ON T(C)-34 GOTO 

ON T(C>-45 GOTO 

GOTO 271* 

STOP 

REH 1-12(37) 2l 

IF S <■ 12 THEN 

PRINT -TOU LOSE";B(C>rDOLLflRS ON BET "JC 

B'lfKCI 

P*P-BtC> 

SOTO 2180 

PRINT »YW UIN "jBlOOf'DOUARS ON RET ";C 

B*D-KC)*2 

P»P*l(C)-a 

60T0 2810 

REN 13-24(38* 2t 1 

IF S>12 AND S«5 THEN 2150 

BOTO 2110 

BEN 25-34(39) 2H 

IF S>24 AND S<37 THEN 2150 

BOTO 2110 

BEH FIRST CGLUK*C40> 2:1 

FOR 1*1 TO 34 STEP 3 

IF S-I THEN 2130 

NEXT I 

BOTO 2110 

REN SECOND C8UMNUI) :.':l 

FOR 1-2 TO 35 STEP 3 

IF S^ THEN 2150 

NEXT I 

SOTO 2110 

REN TKIRB CQLUHN(42> 2*1 

FOR I»3 TO 34 STEP 3 

IF $>I THEN 2150 

NEXT I 

GOTO 2110 

BEH 1-11(43) 111 

IF S<l? THEN 2430 

SOTO 2110 



2710 

2090,2190,2220,2230,2300,2350,2400,7470,2300 
2530,2540,2430 



2150 
LOSE";B(C)rDOLLASS 
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PRItfT "YOU NIN ";B<C]; J []QLLAKS OH BET'jC 

8*11-8 CO 

frr+KE) 

60TO 2810 

REH 19-34I44J 1:1 

IF 5<37 AID S>18 THE* 2430 

GDTO 2110 

REH EVEKM3) 111 

If S/2-IMIS/2) HI S<3? THEN 2130 

8010 2110 

REH 088(4*) 1:1 

IF S/2<>INT<8/2) AND S<37 THE* 2430 

6070 2110 

HEM 868(47} 111 

RESTORE 

FOR 1-1 10 18 

READ 8 

IF S»R THEN 2430 

NtXI 1 

80T0 2110 

REft SLACK (43) Ixl 

RESTORE 

FOR 1=1 TO 18 

READ It 

IF S-R THEM 2110 

NEXT I 

IF S>34 THEM 2110 

SOTO 2430 

),00<1-3a, 49,30)35(1 

THEN 2740 



AND 
AND 



37 
36 



THEN 
THEtt 



2780 

2780 



IM—1T0U, 
If IICK49 

IF HOM9 

If T(C)-50 

GOTO 2110 

IF TCCJ-5 THEN 2780 

GOTO 2110 

PRINT "YOU UIN ";B(C)*35; M O0LLARS OH BET ";C 

•*8-ftCO*3S 

P-P48IOOS 

NEXT C 

PRINT 

PRINT 

PRINT 

IF P>0 

PRIM 

GOTO 3190 

IF 8>0 THEN 



TOTALS tVTIEVTOtt* 



THEN 2880 

Q0PS1 YGU 



2920 



JUST SPENT TOW USI BOUMT 



2690 PRINT 


"YOU BROKE THE MOUSE 1* 


2T0O P-IOlOOO. 


2910 OOTO 2960 


2920 PRINT 


'AGAIN"; 


2930 INPUT 


Yf 


2940 IF LEFTHr*,1)""r THEN 1*30 


2990 DATA 1 


,3,3,7,9,12,14,1*, 18, 19,21 ,23,25, 27,30,32,34,34 


29*0 IF P<1 


THEN 3190 


2970 P8INT 


-TO UttOH SHALL I RAKE THE CHECK"; 


2980 INPUT 


81 


2990 PRINT 




3000 FOR I- 


1 TO 72i PRINT "-"It NEXT It REN PRINT 72 RASHES 


3010 PRINT 


IAR(30);"CHECK mo. *;lMI1t0*RNDtlH 


3020 PRINT 




3030 EDSUB 


3230 


3040 PRINT 


TA8<40);ftf 


3050 PRINT 




30*0 PRINT 


« 


3070 PRINT 


VAT TO THE DRIER Of ";Rt;" » "i 


3080 PRINT 


P 


3090 PRINT 




3100 PRINT 




3110 PRINT 


IAB(10>,MH£ (1EN0RY IfitfK Of VIRGINIA" 


3120 PRINT 




3130 PRINT 


TA8(40),"THE CQHPUTER" 


314* PRINT 


TAB<40>" — x ■ 


3150 PRINT 




3140 FOR I»1 TO 72( PRINT "-";j KEXT I 


3170 PRINT 


-CONE JACK SOON!" 


3180 GOTO 3210 


3190 PRINT 


"THANKS FOR YOUR HONEY" 


3200 PRINT 


"I'LL USE IT TO BUY A SOU* G0L8 ROULETTE UHEEL" 


3210 PRIM 




3220 60TQ 3420 


3230 REH 




3240 REN 


THIS ROUTINE RETURNS THE CURRENT DATE IN H* 


3250 REN 


IF YOU HAVE 5YSTEH FUNCTIONS TO HANDLE THIS 


3260 REH 


THET CAN IE USEI HERE. HOUEVER IN THIS 


3270 REH 


PAQ88AH, UE JUST INPUT THE BATE Al IRE SIAKE Ul 


3280 REA 


THE 6AHE. 


3290 REN 




33O0 REN 


THE 8ATE IS RETU8NE0 IN VARIABLE H$ 


3310 N*«R*P", *tE$ 


3320 RETURN 


3420 END 






'X 
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Russian Roulette 




THIS IS A GAflE OF »»»>»>ltU5SIA« ROULETTE, 



C*M1 


"WT" HEBE IS A REVOLVER. 




TYPE *1* TO SPIN CHAHBER AMP PULL TRIASES. 




TYPE 'V TO 6IVE UP. 




GOT 1 


In this game, you are given by the 


- CLICK - 


computer a revolver loaded with one 




bullet and five empty chambers. You 
spin the chamber and pull the trigger 


T 1 

- CLICK - 


by inputting a "V or, if you want to 


T 1 


quit, input a "2." You win if you play ten 


- CLICK - 


times and are still alive. 


T 1 


Tom Adametx wrote this program 


- CLICK - 


while a student at Curtis j|\ High 




School in Sudbury, Massachusetts. 


T 1 

- CLICK - 




T 1 

SAMS Mill YOU'RE KADI 




CBNBOLENCES URL BE SEHI TO TOUR RELATIVES. 


^ ■ 


...NEXT VICTIM... 




TYPE 't' TO SPIN CHARIER AND PULL TRIC6ER. 




TYPE 'V 10 GIVE IIP. 




SOT 2 




CHICKEN! MM 


t 


...NEXT VICTIM... 




TYPE '%' TO SPIN CHAMBER RMS PULL TR1BGER. 


- 


TYPE '2' TO SIVE UP. 


RUSSIA* ROULETTE 


SOT t 


CREATIVE CONFUTING WJRR1ST0IW, *■ JERSEY 


- CLICK - 


1 PRINT TAI128);"RUSSIAN ROULETTE" 


? 1 

- CLICK - 


2 PRIM TAI(13>;"CREATIVE CORPUTINC rtORRISlOUN, REM JERSEY" 




3 PRINTlPRINTlPRIMT 


T 1 


3 PRINT "THIS IS A BARE OF »»»»»RUS9IAM I0ULETTC." 


- CLICK - 


10 PRINTiPRIMT "MERE IS A REVOLVER. " 




20 PRINT "TTPE ')' TO SPIN CHAMBER AMR PULL TRIQGER." 


? 1 


2! PRINT TYPE '2' TO 8IVC UP." 


- CLICK - 


21 PRINT "BO-J 




23 R«0 


t 1 


30 INPUT I 


- CLICK - 


31 IP I<>2 THEN 33 




32 PRINT * CHICKENIMM" 


T 1 


31 SOTO 72 


- CLICK - 


33 N-N*l 




4* IF RNI(I)>.833333 THEN 70 


1 1 


43 IF HMO THEN 00 


- CLICK - 


30 PRINT "- CLICK -" 




60 PRINTt fllTO 30 


T 1 


70 PRINT • MRBIIIII YOU'RE BEARI" 


- CLICK - 


7\ PRINT -CONBOLEKCES HILL BE SENT TO YOUR RELATIVES." 




72 PRINTtPRINTtPRINT 


T 1 


73 PRINT '...NEXT VICTIM. .."iSQTQ 20 


- CLICK - 


80 PRINT "YOU MINIUM" 




03 PRINT "LEI 80NEONE ELSE BL0U HIS BRAINS OUT." 


T 1 


ft) ROTO tO 


B4N6IMII YOU'RE BEAD! 


« ENS 


CONDOLENCES MILL IE SENT TO TOUR RELATIVES. 
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The rules are not explained by the 
program, so read carefully this descrip- 
tion by Larry Siegel, the program 
author. 

SALVO is played on a 10x10 grid or 

board using an x.y coordinate system. 

The player has 4 ships: battleship (5 

squares), cruiser (3 squares), and two 

destroyers (2 squares each). The ships 

may be placed horizontally, vertically, 

or diagonally and must not overlap. 

The ships do not move during the 

game. 
As long as any square of a battleship 

still survives, the player is allowed three 
shots, for a cruiser 2 shots, and for each 
destroyer 1 shot. Thus, at the begin- 
ning of the game the player has 
3+2+1*1=7 shots. The player enters all 
of his shots and the computer tells what 
was hit. A shot is entered by its grid 
coordinates, x.y. The winner is the one 
who sinks all Of the opponent's ships. 

Important note: Your ships and the 
computer's ships are located on 2 
separate 10x10 boards. 

Author of the program is Lawrence 
Siegel of Shaker Heights, Ohio. 




9 10 



SALVO 

CREATIVE C0RPUTIRO 
ttORRISTOUH, HEU JERSEY 

ENTER COORDINATES FOR... 
BATTLESHIP 

Y 10,10 

Y 1,1 

tl.8 

TV 

Y 4,4 

CRUISER 
1 3,3 
t 2,6 

T 1,7 

BESTR0TE*<A> 

? 1,10 
Y 2,10 

IESTHOTER<B 
T 4,7 

DO YOU IWNT 10 START? YES 

DO YBU BRUT TO SEE BY SHOW TES 



TDK* I 

TBU HAVE 7 SB0IS. 

Y3,1 

Y3.2 

?S,3 

TM 
Y 3,8 

TM 

TV 

YOU HIT HY KSTROIM<0>, 

1 KA« 7 SHOTS. 

10 • 

10 10 



e 

t 
» 

10 



10 

? 
10 



Timn 1 

YOU HAVE 

? 4,1 
T4.3 
* 4,3 

4,7 

4,2 

M 

6,6 



7 SHOTS. 



T 
1 
J HAVE 7 SHOTS, 



10 

1 
3 
4 
5 
A 
t 



I HIT Y0U« BATTLESHIP 
1 HIT TOM BATTLESHIP 
I HIT YOU* BATTLESHIP 



— I HIT YOU* BATTLESHIP 



TURIt 3 

Till HAVE 7 SHOTS. 

Y 4,2 
T 4,4 
T4,» 
T4,l 
Y4,3 
T 4,3 

Y 4.7 

Y00 HIT HY DE8TR0YER<I>. 
I HAVE 4 SHOTS. 

1 1 
« 3 

2 1 

2 J 

3 1 
3 2 

TOM 4 

YOU HAVC 7 SHOTS. 

T 1,1 

Y 1,2 
?2,2 
T 2,1 
1 l f J 

Y 2,3 

YOu'sHOY THERE BEFORE OB YURH 3 

T 3,4 

I RAVE 4 SHOTS. 

1 3 

4 2 
3 3 
10 4 

1 7 
1 

I MIT TOOK CRUISER 



TURH 3 

YOU HAVE 7 SHOTS. 

T 1,1 

? 1.7 

t !,• 

t 2.3 \ 

Y 2,4 

* 2,7 V. 

YOU HIT HY K51R$TE*<*>' 

I HAVE 4 SHOTS. 

4 2 

5 2 
10 3 
4 1 

3 I 
t 3 

TURN * 

YOU HAVE 7 SHOTS. 

Y 1,4 

T M 

I 1,1 
t 2,8 

Y 2,t 

Y3,4 

Y 3,7 

TOT HIY HY K3TRBYE*<A> 
I HAVE 5 SHOTS. 

t 4 

4 3 

4 4 
2 * 

5 4 

TUW 7 

YOU HAVE 7 SHOTS. 

?i,3 

f B,5 

Y 8,7 
t 10,3 

Y 10,3 
T 10,7 

Y 1«,f 

YOU HIT HY CRUISER. 
YOt HIT HY CRUISER. 
I RAVE 3 SHDT3. 

1 4 

2 4 
1 4 
? 3 

10 3 

I HIY YOUR CRUISER 



TURH B 
TOtf H6VE 



7 SHOTS, 



1,1 
1,2 



? 8.4 

Y 1,10 
T 2,10 

Y 3,10 

Y 4,10 
I HAVE 

1 3 

1 4 
3 

2 5 
2 7 



5 SH6T5. 
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TUSH » 


TURN II 


YOU HAVE 7 SHITS. 


TSU HAVE 3 SHBTS. 


T 7,3 


? 3,? 


T 7,3 


T 6,tt 


T?,7 


? 7,* 


t »,3 


T 8,18 


t t r S 


» M 


T »,7 


YOU SHOT THESE IEFQRE 


t *»' 


T8.6 


I HAW 5 SHOTS. 


YBU NIT NY MTTLESMP. 


1 7 


YOU KIT MY BATTLESHIP. 


• 4 


I H4VE 3 SHOTS. 


3 S 


I » 


3 6 


2 » 


t 4 


t« 1 


I HIT TOBt CtUISER 






TUB* 12 


TWff 10 


TQU HAVE 3 SHOTS. 


TO! HAVE 3 SHOTS. 


? 3,9 


t t,I 


tM 


t »,2 


? «,t , 


t *,4 


? 8,? 


1 *,i 


T 10,10 


TV 

YOU HIT MY C*UIKR. 


Y8W HIT NT lATTLESHir 


YBU HIT (IT MTTIOHIP. 


1 HflVf 3 SHOTS. 


YOU HIT IT BATTLESHIP. 


19 2 


I HAVE SHOTS. 


1 1* 


TIM HIVE HON. 


2 • 




I HIT YOUB DESTROYEB<*> 





1000 
ItIO 

1120 
1030 
1MO 
1030 
1060 
1070 
1080 

tort 

1100 

mo 
1120 
1110 
1140 
1150 
1U0 
1170 
1160 
1190 
1200 
1210 
1220 
1230 
1240 
1230 
1240 
1270 
1210 
1290 
110* 
1310 
1320 
1330 
1340 
13 50 
1360 
1370 
1380 
1390 
1400 
1403 
1410 
1413 
1420 
1430 
1440 
1430 
1440 
1470 
I4S0 
14t0 
1300 
1310 
1320 
1 530 



KOfiftlSTOUN, NEU JERSET' 



PAINT TM(33>;"SALVO- 

PtlNT TAI(13>;"CREATI9E COUNTING 

PtINTiPRINTiPRINT 

REN 

DIB AnOJOnR(10,10>,C<7M(7»,E<12) f F<12> f 8<12) f HM2),K(tO.H 

Z8-0 

FOR l)-t TO 12 

ECt) a -1 

HEX! f 

FOR X-1 If It 

FOR Y-1 TO 10 

NEXT Y 

*f£XT X 

FOR X-1 TO 12 

F<X>«* 

am-o 

NEXT X 

FOX X»t TO 10 

FOR T-1 TO 10 

au,y>-o 

NEXT T 

NEXT X 

FOR K-4 TO 1 STEP -1 

(14-0 

8QSU1 2910 

IEF FNA<K>-<»-K)t3-2*INT<K/4H8eNM-1M 

Kf FN8<K)*K*INT(K/4)-18mX-n 

IF VtV2#V*f2»0 THEN 1240 

IF l*V»FNI(K»10 THErt 1240 

IF YtViFHKKXI THEN 1240 

IF X*V2*FNI<K)>10 THEN 1240 

IF XfV24FN0<XK1 THEN 1240 

U4-U6+1 

IF U6>23 TNEN I1W 

FOR Z-0 TO FHIfK) 

F(Z*FNA<K))»X*WAZ 

8(Z*FNA(IE))*Y*V*Z 

NEXT I 

M-FMHK) 

IF U8>U8+Fr1B(KJ 1HEH 1440 

FOR 12-- M TO UB+FNB{K) 

IF U8<2 TNEN 1430 

FOR Z3-1 TO tifi-1 

IF 8QR((F(Z3>~F<22>) A 2 4 (G(Z3)-G<Z? I|*2J < 3.39 THEN 1240 

NEXT U 

NEXT 12 

FOR Z»0 TO FNI(K) 

ACF<Z*W) f 8(Z*W>>-.**86mX-1>#<K-U3> 

NEXT Z 

KtXT !( 

PRINT "ENTER COORDINATES FOR..." 

PRINT "NATTLESHIP" 

FOR X-1 TO 3 

INPUT Y.Z 



1540 
1330 
1340 
1570 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1660 
1690 
1700 
1710 
1720 
1730 
1740 
1730 
1740 
1770 
17B0 
1790 
1100 
1110 
1120 
1830 
1640 
1830 
1860 
1870 
1890 
1890 
1900 
1910 
1920 
1930 
1940 
1930 
1940 
1970 

mo 

1990 
2000 
2110 
2020 
203O 
2*40 
2830 
206O 
207O 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2230 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 



HEKT X 

PRINT "CRUISER" 
FOR U\ TO 3 
INPUT Y f 2 

8<Y,Z>-2 
NEXT X 

PRINT "IESTROYER<A>* 
FOR X«1 TO 2 
INPUT Y,Z 
MY.2J"! 
NEXT X 

PRINT ■"DESTROYERS" 
FOR X-1 TO 2 
INPUT Y t l 
ltT,2>».S 
NEXT X 

PRINT -10 TOU UANT TO START"; 
INPUT J6 

IF JOO'MKRE «E YOUR SNIP3T* THEN 1890 
PRINT "MTTLE8HIP" 
FOR l*\ TO 5 
PRINT F<Z);6<2} 
NEXT Z 

PRINT -CRUISER- 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
ROTO 
C-0 

PRIRT "DO TOO UANT TO SEE NY SHOTS 
INPUT NO 
PRINT 

IF JIO-TE3- THEN 2420 
££t1*< »*«■»• ■ ■»*••« t**«GTAftT 

IF JIO"YES" THEN 1990 

C-C+t 

PtINT 

PRINT "TUIN";C 

A-8 

FIR N-.5 TO 3 STEP .3 

FOR X-1 TO TO 

FOP T-1 TO 10 

IF HKpYMH THEN 2070 

NEXT Y 

NEXT X 

GOTO 2O80 

AtA+INT<U4.5> 

NEXT U 

7 



F(7>;6(7) 
Ft8);8(8> 
"IESTROYER<A>" 
F<9>;8(9} 
re io) jacioi 
-|ESTR0TER<1>- 
F(11)j8(in 
F(12>;8(12) 
1710 



TO 



FOR U=1 
ECU 1*0 

LHU>«0 

F<U>-0 

8(W>-0 

NEXT U 

P3=0 

FQR X-1 TO 10 

FOR T*1 TO 10 

IF A<X,Y>HO THEN 22O0 

P3-P14I 

NEXT T 

NEXT X 

print "tou have-;a;"Shots." 

if p3>-a then 2260 

print "you have nofte shots than there are ilank squares/ 

OOTO 2890 

IF AOO TNEN 2290 

PRINI -I NAVE WIN." 

STOP 

FOR 8-1 TO A 

INPUT X.T 

IF XOINTU) TNEN 2370 

IF X>10 THEN 2370 

IF X<1 THEN 2370 

IF YOINTtT) THEN 2370 

IF YMO THEN 2370 

IF Y>«1 THEN 2390 

PRINT -ILLEGAL* ENTER AGAIN. * 

OOTO 230O 

IF A(X t T))10 THEN 2440 

C(B)-X 

IfltiY 

NEXT II 

SOTO 2460 

PRINT "YOU SHOT THERE BEFORE ON TtfRN";A<X,Y>-10 
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2*50 

2440 

2478 

2480 

2490 

2300 

2510 

2520 

2530 

2540 

2530 

2540 

2570 

2380 

2390 

2600 

2610 

2420 

2430 

2440 

2430 

2440 

24 70 

2410 

2490 

2700 

2710 

2720 

3730 

2740 

2730 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2B50 

2840 

2870 

2880 

28*0 

2tO0 

2910 

2 920 

2930 

2940 

2*30 

2940 

2?70 

2T80 

2990 

3000 

3010 

3020 

3030 

3M0 

3030 

3040 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3130 

3140 

3170 

3180 

3110 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

1310 

3320 

3330 

3340 

1330 



30 TO 23H 



1-1 T8 A 
AfC<l»,S<tf>>*3 THEN 2340 
A(C<U>,DCU>>*2 THE* 2360 
AtC<H>,MM))»1 THEN 23ft0 
A<CtllMUI>>».3 THEN 2600 

!>,NU))*1ttC 
IT 



THEH 2670 



;c 



2750 



2020 



MWiAf-antii. - 



F( 

IF 
IF 

IF 
IF 
A(C(I 

next 

BOTO 2420 

PRINT *TOU HIT HT IATHCSHIP.- 

SOTO 2310 

PHUT -TOU KIT m CRUISE*," 

SOTO 2310 

PBINT "TBU HIT NT RESTROYERatt.- 

GOTO 2310 

PRINT 'YM HIT HY MSTHOYEROK" 

60TO 2310 

A>0 

ir Ji«-TE8* 

print 
print -torn- 

4-0 

FOR »=.5 TO 3 SUP .3 

FOR X«1 TO 10 

FIR f*1 TO II 

IF fttftPHJ THEM 

NEXT T 

NEXT X 

I0TI 2760 

A«A+1HTCU».S) 

«XT I 

P3-0 

FOt X>1 TO 10 

FOR Y"l TO 10 

If A(X t Y)>10 THE* 

P3«P3*1 

lEXT Y 

NEXT X 

PRIHT "I 

IF P3>fi THEH 2880 

PRINT "I MK HONE SHOTS THAM BLANK SQUARES * 

8OT0 2270 

IF ftOO TIM 2960 

PRINT "YOU HAVE NGN." 

STOP 

X»»T(RMU>*1tM) 
T«IHT(RHIM)t10#|) 

V"INT<3*RNDU)-1) 

V2-HTt3»RHDm-1} 

RETURN 

FOR N-1 TO 12 

IF H1U)>0 1HEK 3800 

NEXT I 

11*0 

W5U8 2910 

RESTORE 

R2-0 

R3-R3+1 

IF R3>100 THEN 3010 

IF X>10 THfrt 3118 

IF X>l THEN 3120 

X»1*INTCRN1(1>*2,3> 

SOTO 3120 

X*10-INT(RM1<1)«.3> 

IF T>10 TttH 3140 

IF TM THEN 3270 

T«1*IHT<RHiO}*2.3> 

HTO 3278 

1"10-INT<RHH1>«2.5> 

GOTO 3278 

FIU)"X 

8(U)«T 

IF U>A THEN 3380 

IF R2-6 THEN 3030 

KM X1 f T1 

R2-tt2*1 

MTA 1,1,-1*1,1,-3,1,1,0,2,-1,1 

X*X*X1 

T»T*T1 

IF X>10 THEH 3210 

IF X<1 THCH 3210 

IF TMO THEH 3210 

IF T<t THEH 3210 

IF B(X,Y)>10 THEN 3210 

FOR 09"t TO U 

IF HQ9K>X THEH 3330 

IF 0(D?J-T THEH 3210 

NEXT B9 



3340 

3370 

3380 

3J98 

3400 

3410 

3420 

3430 

3440 

3430 

3*40 

3470 

3410 

34*0 

3500 

3510 

3320 

3330 

3340 

3330 

3360 

3370 

3380 

3390 

3600 

3410 

3620 

3430 

3640 

3630 

3660 

3670 

36B0 

3690 

3700 

3710 

3720 

3730 

3740 

3730 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3140 

3830 

3860 

3870 

3880 

3B90 

3100 

3110 

3*20 

3f30 

3140 

3130 

3160 

3*70 

3fB0 

3990 

40O0 

4010 

4020 

4030 

4040 

4030 

4860 

4070 

4880 

4070 

4100 

411 

4120 

4130 

4131 

4132 

4140 

4130 

4160 

4170 

4188 

4190 

4200 

4210 

4220 

4230 

4240 



U«N*1 

GOTO 3180 

IF K8<>"YE8" THCH 

FOR Z5-1 T8 A 

PRINT FU3>;0(23> 

NEXT Z3 

FOR IM TO A 

IF 8<F<U),G(im*3 

IF l<F(H),6(Un*2 

IF 8CF(K),8ttf))«1 

IF BEK<LJ) t G(U)>«.5 



3420 



THEN 3300 
THEN 3320 
THEM 3340 
THEN 3340 



B<FCI) r G<U>>>10#t 

NEXT I 

8OT0 1950 

PRINT -I HIT YOUR IATTLESHIP* 

SOTO 3370 

PRINT "I NIT TOUR CWHSER" 

GOTO 3370 

PRINT *l NIT YOUR KSTROTCR<J>* 

GOTO 3370 

PRINT "I HIT TOW KSTR0YE*«>" 

FOR 0-1 TO 12 

IF E(«IO-1 TNEH 3730 

iCRKlttC 

H(Q>-NFiU) f O(Wn 

N3«8 

FOR N2-1 TO 12 

IF H(H2)OH(Q) THEN 3450 

N3-N3*1 

NEXT H2 

IF N3OINT(H<0>*.3>+1*INTUNT(H(8)*,3>/3) TNEH 3470 

FOR N2-1 TO 12 

IF H(H2)OH(l) THEN 3710 

E(N2)*-I 

R(H2>»-1 

NEXT H2 

BOTO 3470 

IEXT 

PRIH1 *PROBR4* 

FOR 0«1 Tl 12 

print *E<';8;"> 
print p hc;q;') 

REXT I 

STOP 

RE M * * * • * » * * * * * •* * •****«• t*»US I H G E A BRA T 

FOR R-1 T8 10 

FOR 3*1 TO 10 

K<ft,S>«0 

REXT 1 

NEXT R 

FOR tf«! TO 

IF EIUK10 

FOR R-1 TO 

FOR 8*1 TO 

IF !<*, 3X10 THEH 

f<R,S>>-IO0O0O0O 

BOTO 4000 

FOR B«SW<1-R) TO 

FOR H=SG*(1-S> TO 

IF N*RtN*H-f THEN 

IF 8<R*N f S*NK>E<U> TNEH 3980 

K<R,3>»K(R,5>*E<in-S*IHT(H<U)».3) 



ABORT r 
■■jhiqi 



12 

THEH 

10 

10 



4020 



3930 



30HUO-R) 
1(10-11 

3990 



H 
N 

5 
R 



NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
FGft R-1 
F(R)-R 
8<R)-R 
NEXT P 
FDR B*1 
FOR 8-1 
W»l 
FOR R*1 



TQ A 



TO 
TO 



TO A 



IF R<FIH>,0<N)>>*K<FtQ9> r G<Q9>> THEN 4130 
09"* 
NEXT H 

IF R>A THEN 4140 
IF R-S TNEN 4210 

IF KIR, 8)<KtF<Q9>, 0(09}) THEN 4210 
FOR Ml TO 4 
IF F(HIOt TNEH 4190 
IF 0(H>-$ TNEN 4210 
NEXT H 
Fft?)"R 
6(09)-S 
HEH 8 
NEXT R 
00T0 3380 

E» 
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Sine 



T T 




Did you ever go to a computer show 
and see a bunch of CRT terminals just 
sitting there waiting forlornly for 
someone to give a demo on them. It 
was one of those moments whep I was 
at DEC that I decided there should be a 
little bit of background activity. And 
why not plot with words instead of the 
usual X's? Thus SINE WAVE was born 
and lives on in dozens of different 
versions. At least those CRTs don't 
look so lifeless anymore. 



10 PHIHT 


TAK30); n Sire WAVE" 


20 PRIMT 


TAR<t5>;*'CREATIVE COMPUTING HGRRISTWK, 


30 PRINT! 


PRIHTi PRHTi MMT: PRIRT 


40 AEAARKAHE PROfiRAH RY DAVID AHL 


50 1=0 




IK REM 


START LCHG LOOP 


110 POP 1 


•0 TO *0 STEP .25 


120 A"I*T(2**23»SIfl<T>) 


130 PRIM 


TAB<A>; 


Ml IF |i 


T THE* 160 


130 PRIM 


'CREATIVE* 


uo 9-1 


— 


uo eon) 


200 


180 PRIM 


"COMMITIM* 


in i*e 


* * 


200 HUT 


T 


m e*d 





HEU JERSEY' 



31 HC WAVE 
CREATIVE C0HPUTIM6 R0RRISTOUH, KEU JER3ET 



CREATIVE 

COHPUTJW 

CREATIVE 

COflPUTIHB 

creative 
coiputim 
creative 
computus 
creative 
computing 
creative 
computing 
creative 
confuting 
creative 

CDflPLITlAG 
CREATIVE 
CORPUTIRO 
CREATIVE 
COflPITlHG 

creative 
cihhjtini 
creative 

cohputihb 

creative 

eoipvt1hr 

creative 

C9MPUT1M 

creative 
cqnpuum 
creative 



CREATIVE 

ton puti »g 

CREATIVE 

MNirirriNfl 

CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
CtlPUTJHO 
CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 

CREATIVE 

conpurmo 

CREATIVE 

CWPVTIffl 
CREATIVE 
CDHPUTIHG 
CREATIVE 

cmpuTiw 

CREATIVE 
CBHPMIR6 
CREATIVE 
GhPlTIHt 

CREATIVE 
COHPJJTItG 

creative 
c0hputirg 
creative 
corputihg 
creative 
computing 
creative 

CN1PUTIW 

CREATIVE 

COMPUTING 

CREATIVE 

COffPUTMG 

CREATIVE 

CQHPUTItfQ 

creative 
cihpitmb 

creative 
cmnitiih 

creative 
computing 
creative 
computing 
creative 
cchputikg 
creative 
computing 
creative 

COflPUTIM 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 

COMMIT IMG 

CREATIVE 

COHPUTIW 

CREATIVE 

COMPUTING 

CREATIVE 

COMPUTING 

CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COWUTIH 
CREATIVE 
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Slalom 



This game simulates a slalom run 
down a course with from one to 25 
gates. The user picks the number ot 
gates and has some control over his 
speed down the course. 

If you're not a skier, here's your 
golden opportunity to try it with 
minimal risk. If you are a skier, heres 
something to do while your leg is in a 

' SLALOM was written by J. Panek 
while a student at Dartmouth College. 



SLALOtt 
CREATINE C0HPUTIM6 H0RBI3I0UH, KEU JEB9ET 



MU KANT GATES DOES THIS COURSE RAVE <t TO 23>? 12 

TVFE -IMS" FOR 1WTMJCTI0* 
TYPE "BAX" FOR APPIOXIflATE 1MXWUH SPEEDS 
WE "MM" FOR THE K8IflM«l OF THE RACE 
CUMII--T INS 

,#.«8LAL0Hi THIS 18 THE 1974 MUTTER OLYKPIC 6IMT SULOH. 
THE AflCRICM TEAfl'S Q«LT HOPE OF A SOLD flEBAL. 



YOU Ml 



0- 


-TTPE 


THIS 


IF 


TOU 


VARY TO SEE HOW LOH0 YOU'VE TAKEN 


h 


-TYPE 


THIS 


IF 


TOU UAIT 


TO SPECK UP A LOT 


i- 


-TYPE 


This 


IF 


YOU U4MT 


TO SPEEO UP A LITTLE 


3--TTPE THIS 


IF YOU UANT 


TO SPEED UP A TEENSY 


4--1TPC THIS 


if rati 


HART TO KEEP GOIHO THE SAME SPEED 


3- 


-TYPE 


THIS 


IF 


Y00 


UrW TO CHECK A TEEH8Y 


4- 


-TYPE 


THIS IF 


YOU DART TO CHECK A LITHE 


7* 


-Tin 


HIS 


If 


YOU 


WANT 


TO CHECK A LOT 


fl- 


-TYPE 


THIS 


IF 


TOU 


UANT 


TO CHEAT AND TRT TO SKIP A 6ATE 



THE PLACE TO USE THESE OPTIQIS IS UHEK THE COMPUTER ASK81 



OPTION? 





BOOl LUCK 


COflRAflU"? MAX 


BATE 


■AX 


1 . 


a.?.*. 


1 


14 


2 


11 


3 


H 


* 


29 


5 


IS 


A 


23 


7 


28 


8 


32 


» 


2? 


10 


20 


• 1 


2? 


12 


2P 



C0AHAND--T RON 

RATE YOURSELF AS A SKIER, (1-U0A8T, 3-K8T)? 1 

THE 8TARTER C0UHT8 MM»..3...4.,.3...2..#1...©0! 

YOU'RE OFF* 

HERE COHES 0A1E II 

t H*P.H. 
OPTION? 2 

13 H.P.H. 

HERE CMES OATE R2 

13 H.P.H. 
OPTION? 1 

22 H.P.H, 
YOU TOOK OVER HAX. SPEED AND WAOSEO A FLAG? 
YOU TIDK 2.5771 SEC0ND5 
DO TOU UAHT TO RUCE AGAIHT YES 
THE STARTER COURTS D0BH...3...4...3...2...1 ..-60! 



YOU'RE OfF! 

HERE COHES OATE II 

13 H.P.H. 
OPTION? 3 

14 H.P.H. 
CLOSE ORE! 

HERE CONES OATE 12 

14 H.P.H. 
OPTION? 2 

18 H.P.H. 
CLOSE ONE? 

HERE CONES OATE 13 

II H.K.H. 
OPTIOHT 3 

20 H.P.H. 

HERE COHES OATE 14 

20 H.P.H. 
OPTION? 4 

20 H.P.H. 

HERE CORES OATE « 

20 H.P.H, 
OPTION? 3 

II H.P.H. 
CLISE ONE? 

HERE CONES SATE 16 
t« H.P.H* 

OPTION? 1 
23 H.P.H. 

HERE COHES OATE 17 

23 H.P.H. 
OPTIOH? ! 

3t H.P.H* 
TOO TOOK OVER MX. SPEER AW SNA68E3 A FLABI 
TOU TOOK 23.2307 SEC OH II 
00 TOU SAtfT TO RACE AGAIN? HO 
THANKS "F0* THE RACE 
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10 HUNT TA9U3i;"5ULOIi H 

2* PRINT TAB<15>;"CREATIVE C0HPUTIW6 HORRISTOUH, HiU JERSEY" 
30 PRINT: PRINT: PRIM 

319 PRINT 'NOB RANT GATES DOES THIS COURSE HAVE (1 TO 25l*i 

320 INPUT V 
IF V>?3 THEN 340 
IF V<t THEN 390 
SOTO 1440 

PRINT "23 It THE UNIT- 
LET ¥*23 
SITS 1440 
PRINT -TRY AGAIN," 
6BT0 3t# 

PRINf "RATE YOMSELF AS A SKIER, (1-UORST, 3-IEST)"; 
INPUT A 

IF A<1 THEN 460 
IF A>3 THEN 440 
60T0 410 

PRINT 'THE SOUNDS ARE 1-3" 
SO T04IO 

PRINT 'THE STARTER COUNTS •0UH...3...4„,I„.2„.|„.8tl' 

REN 

LET T«0 

LET S*INT<RND<1)*<18-9>*9) 

PRINT 

PRINT "YOU'RE OFF! - 

FOR 3=! TO V 

REAB 

PRINT 

PRINT "HERE CONES SATE O'jBTRttO) 

PRINT S; H N.P.H, B 

LET 81*8 

PRINT "OPTION*; 

INPUT 01 

IF 01*0 THEN 970 
If 01>S THEN 1420 

IF OKI THEN 1420 

0O5UB 9?C 

IF %<f THEN 1390 

LET T=T»(0-S*1> 

IF 8>0 THEN 1130 
NEXT 

PRINT "YOU TOM"; (ItRMO)^ SECONDS- 
LET H*T 
LET H>H/V 

IF N<I.5-(A#0J> THEN 1450 
IF H<2.9-CA40.1> THEN 1680 
If H<*.4-(A0.01) THEN 1710 
PRINT "10 YOU UANT TO RACE 
INPUT 10 
REH 

IF B*="KO" THEN 1740 
IF ROUTES* THEN 4S0 
PRINT •PLEASE TYPE 'YE8' OR 'MO' 
60TO 740 
STOP 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT ■ 0--TYPE THIS IF YOU UANT 

PRINT - 1--TYPE THIS IF YOU UANT 

PRINT ' 2--TYPE THIS IF YOU UANT 

PRINT • 3— TYPE THIS IF YOU UANT 

PRINT " 4— TYPE THIS IF YOU UANT 

PRINT " S--TTPE THIS IF YOU UANT 

PRINT " 6— TYPE THIS IF YOU UANT 

PRINT " 7-YYPE THIS IF YOU UANT 

PRINT - fi-TYPE THIS IF YOU UAHT 

PRINT 
PRINT 
PRINT 

PRINT -OPTION?" 
PRINT 
PRINT ■ 
PRINT 
SDTQ 1470 

PRINT -YOU'VE TAKEN H ;<T+RMKm; H S£CDNDS H 

SOTO 580 

OH 01 GOTO 1130,1010, 1170,1080, 1190, 1100,1150, 121© 



AGAIN'; 



103O 

1040 

1070 

1080 

1090 

1100 

1M0 

1120 

1130 

1140 

1130 

1140 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1230 

1240 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1330 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1443 

1430 

1460 

1470 

1480 

1490 

1500 

1310 

1520 

1530 

1340 

1330 

1560 

1570 

1580 

1590 



RETURN 

PRINT "CLOSE ONE!* 

RETURN 

PRINT S;'N.P.N." 

60TO 1030 

LET S*S-IHT<RNDU)*<5-3>*3> 

PRINT Sj'H.P.H," 

GOTO 1030 

LET S»StINT<RN)m*MQ*3)t5> 

OOTO 1080 

LET S'S-INT(RNI<l>«(10-5)+5) 
8IT0 1110 

LET S=S+INT(RND11>*(4-U + 1) 
60TO 1110 

LET 8-8-INT(RND41>t<4-f>+|) 

GOTO 11 10 

PRINT *M*CHEAT" 

IF RNBUX.7 THEN 1260 

PRINT *YOU NASI IT!" 

LET MH-8 

RETURN 

PRINT "AN OFFICIAL WflOHT YOU!' 

PRINT "Y8U TO0N';(T*RNB(n>;-SECOHDS" 

OOTO 740 

IF RND<f)<<(8-i)tO.U*.2 THEN 1320 

PRINT -YOU TOOK OVER NAN, SPEED AN) HABE 

RETURN 

PRINT "TOO TOOK OVER HAX. SPEED AND •• 

IF RNSK.3 THEN 1370 

PRINT "UIPED OUTP 

PRINT "YOU TO0K*;<T*RHI(1)>;'S£COHD$" 

SOTO 740 

PRINT -SNA&eED A FLAO!' 

0010 1350 

PRINT "LET'S IE REALISTIC, OKT LET'S 00 

LET S=S1 

OOTO 330 

PRINT "UHATT' 

SOTO 380 

PRINT 

-TYPE ";CHRt(34);*INB*;CHRt{34);" 
■TYPE -iCHR4(34)J'NAX*;CNR4(34);" 
"TYPE *;CNRI(34>;"RUN';CHR0f34);'' 
"COBHANB--*; 
Al 



III 1 



RACK AH| TRY AMltf*.." 



PAINT 

PRINT 

PRINT 

print 

INPUT 

REH 

IF 

IF At' 
IF Aft 

PRINT 



FOR INSTRUCTIONS 1 * 

FDR APPROXIMATE MAXIHUH SPEEDS 1 

FOR THE BEGINNING OF THE RACE" 



■JW THEN 820 
■HAI" THEN 1530 
•RUN' TNEH 410 
CHRK34*;AO;CNRO<34>;" 



SOTO 1480 
PRINT -GATE HAX" 
PRINT " 8 N.P.H." 
PRINT"-— -——• 

FOR B-1T8V 
REAR 8 



IS AN ILLE8AL CfiHMMD— RETRY"; 



'"tSLALQFU THIS IS THE 1974 WINTER OLYMPIC GIANT SLALQPL TOU ME* 



THE ANERICAN TEAK'S OHLY HOPE OF A GOLD MEDAL/ 



910 

920 

930 

933 

940 

943 

950 

933 

937 

940 

970 

9B0 

990 

1000 

1010 

1020 

1030 

1040 



TO 

TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 



BEE HOU L0H6 YOU'VE TAKEN' 
6PEEB UP A LOT" 
SPEEI UP A LITTLE* 
SPEED UP A TEENSY" 
KEEP 60IN6 THE SANE SPEED- 
CHECK A TEENSY" 

A LITTLE" 

A LOT* 

AND TRY TO SHIP A GATE' 



CHECK 
CHECK 
CHEAT 



THE PLACE TO USE THESE OPTIONS IS WHEN THE COAPUTER ASKSi 1 



COOP LUCK. 



STOP 

LET $=8#INT<RHI<1)»(5-3)t31 

PRINT l;"N.P.M." 

IF 8>R THEN 1290 

IF S>B-1 THEN 1040 



1600 

mo 

1420 
1430 
1*40 
1450 
1640 
H70 
1680 
U90 
1700 
1710 
1720 
1730 
1740 
1730 
1740 
1770 
1780 
1790 
1000 
1910 
1820 
t 



■r •;■ 



PRINT 
NEXT R 
SOTO 1470 
LET T«T**3 
6010 470 

PRINT -YOU UON A SOLO NEPAL!" 
LET 8(1>*8(1>+I 
SOTO 1730 

PRINT -Y&U UON A SILVER MEDAL" 
LET 8<1)«8C1)+1 
SOTO 1730 

PRINT "YW UON A BRONZE KEDAL" 
LET R(l>>8(1>*1 
SOTO 740 

PRINT "THANKS FOR THE RACE" 
IF B11K1 THEN 1770 
PRINT -COLD HERALSt*;8(1) 
IF SI1K1 THEN 1790 
PRINT "SILVER NESALSi";S(U 
IF BdXI THEN 1830 
PRINT 'BRONZE NE8ALSl";R(1 > 

DATA 14,18,24,29,18,23,28,32,29,20,29,29,25,21 ,24,2?,20,21,20 
RATA 18,24,25,33,31,22 
EM 
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Slots 



The slot machine or one-arm bandit 
is a mechanical device that will absorb 
coins just about as fast as you can feed 
it. After inserting a coin, you pull a 
handle that sets three independent 
reels spinning. If the reels stop with 
certain symbols appearing in the pay 
line, you get a certain payoff. The 
original slot machine, called the Liber- 
ty Bell, was invented in 1 895 by Charles 
Fey in San Francisco. Fey refused to 
sell or lease the manufacturing rights, 
so H.S. Mills in Chicago built a similar, 
but much improved, machine called 
the Operators Bell. This has survived 
nearly unchanged /o-today. 

On the Operators Bell and other 
standard slot machines, there are 20 
symbols on each wheel but they are not 
distributed evenly among the objects 
(cherries, bar. apples, etc.). Of the 
8,000 possible combinations, the ex- 
pected payoff (to the player) is 7,049 or 
$89.1 1 for every $l00.00-put in, one of 
the lowest expected payoffs of all 
casino games. 

In the program here, the payoff is 
considerably more liberal; indeed it 
appears to favor the player by 11% — 
i.e.. an expected payoff of $1 1 1 for each 
$100 bet 

The program was originally written 
by Fred Mirabelle and Bob Harper. 



SLOTS 
CREATIVE CWPUTI« HOBRISTOWM, Wl JE1SEY 



YOU ARE I« THE Hi" CASlJfO.IH FRONT OF OWE OF OUR 

qBE-ARMCD SMim. »ET FRO* II TO 1160. 

TO FULL THE MM, "MM WE RETURN KEY AFTER HW1NS YOUR SET, 

1BUR IETT 3 



LEMON CHERRY SELL 

YOU LOST. 

YOUR STANDINGS ARE »-S 

ABAMT 1 

YOUR SETT 3 



BAR CMEWT ChCRRY 

DOUBLE It 

you worn 

YOUR STANDINGS ARE S IS 
AWINT Y 

YOUR SETT 10 



LEHON KU DELL 

YOU LOST. 

YOUR STANDINGS ARE * 

MAW V 

TOUR BEIT 23 



SELL BELL SM 
BOMLEM 

YOU UON! 

YOUR STAMDH65 ME ■ 73 

4GAINT N 

COLLECT YQUR WINNINGS FftOH THE HJH CASHIER. 
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10 PRINT TAI(30);"5LOT$* 

20 print tah15);"creative cbhputino 
30 print* printi print 



flORRISTOUN, NEU JERSEY" 

2?, t??3 



REft PRODUCED BY FRED NIRWLLE AND BOF HARPER OH JAN. 
110 REN IT SIMULATES THE SLOT NACHINE. 

120 PRINT '701/ ARE IN THE HIN CASINO, IN FRONT Of OK OF OUR" 
130 PRINT "0NE-ARREI IAN0IT8. SET FROM II TO 0100." 

UO PRINT 'TO POLL THE ARM, PUNCH THE RETURN KEY AFTER HAKING YOUR SET, 
130 LET P-0 

UO PAlHTi PRIRT "YOUR 1CT-J 
170 INPUT N 
100 IF H>10C THEN 840 
190 IF n<1 THEN 000 
100 MltfT(lt) 
210 GQSUS 1270 
230 PRINT 

230 LET K-INT<**RKDU>*1) 
240 LET Y-IRTU*RND<1)*1> 
230 LET Z«WUoRNI<mi> 
260 PRINT 
270 IF X-1 THEN 91* 



280 


IF X"2 THEN 930 


290 


IF X*3 THEN 950 


300 


IF X-4 THEN 970 


310 IF %t THEN 9?0 


320 IF X-4 THER 1010 


330 IF Y-1 THEN 1030 


340 IF Y-2 THEN 1050 


330 


IF Y*3 THEN 1070 


340 


IF Y-4 THEN 1090 


370 


IF Y*3 THEN 1110 


300 


[F Y»t THEN 1130 


390 


IF Z-1 THEN 1131 


400 


IF Z-2 TNEN 1170 


410 


IF Z-3 THEN 1190 


420 


IF 2-4 TNEN 1210 


430 IF Z«3 THEN 1230 


440 IF 2-6 THEN 1250 


430 


IF *"Y THEN AOO 


440 IF X-Z THEN 630 


470 IF Y"Z THEN 650 


4B0 PRINT 


490 HUH "TOtf LOST. 



500 
310 
320 

530 
340 
330 

560 

570 

300 

590 

600 

610 

620 

630 

640 

630 

660 

*70 

680 

690 

700 

710 

720 

730 

740 

730 

760 

770 

700 

790 



IF 
IF 



PLEASE LEAVE YOUR M*t ON THE TERMINAL.* 



EVEN.' 



820 



•40 
■30 



LET P*P-fl 

PRINT "YOUR STANDINGS ARE I'P 
PRINT "AGAIN"! 
INPUT A* 

IF A*-*Y* THEN 160 
PRINT 

IF P<0 THEN 470 
IF P-0 THEN 690 
IF P>0 THEN 710 
1350 
Y-Z THEN 730 
Y»1 THEN t20 
OITO 1341 
IF Zol THEN 020 
OOTQ 470 

IF Z"1 TNEN 020 
OOTQ 1341 
PRINT "PAY UP! 
OOTO 1350 
PRIRT-NEY, YOU BROKE 

GOTO 1330 

PRINT "COLLECT YOUR UUMMM FRON THE HAH CASHIER, 

OOTD 1350 

IF Z-1 THEN 730 

PRIHTt PR1MT ■•*TQP DOLLAR**' 

PRINT "YOO UONI" 

P-<<(10*fl>*H>*P) 

0010 310 

PRINTi PRINT "•••JACKPOT*"" 

PRINT -TOU UDN!" 

P»«(100*H»+H>*P) 

OOTO 310 

PRINT: PRINT ''DOUBLE BAR*" 

PfilNVYOU SOW" 

P*U<3*H>*M)*P> 

OOTO 510 

PR1NT"H0UBE LIRITS ARE 0100* 
070 OTTO UO 

880 PNIHT"HINIHUfl IET IS 01" 
970 GOTO 160 
900 GOTO 220 

910 PRINT -lAR";t OBSUI 1310 
920 GOTO 330 

930 PRUT -lELL'Jt 0Q8UI 1310 
940 OOTO 330 

950 PRIRT *OR**eC»;: OOSUI 1310 
960 OOTO 330 

970 PRIRT "LEJ!IN a ;i SOSUB 1310 
980 OOTO 330 

990 PRIRT "PLUR";t GOSUP 1310 
100O SOTC 330 

1410 PRINT "CHERRY";! 80500 1310 
1020 0010 330 

1030 PRIRT " SAffl flOSUI 1310 
1040 OOTO 390 

1030 PRINT ■ SELL";; SQ3US 1310 
1060 OOTO 390 

1070 PRINT * ORANGE- ; I 80SUI 1310 
1000 GOTO 390 

1090 PRINT " LCHI v ;t OOSUI 1310 
1100 OOTO 390 

1110 PRIRT " PLUR*;i 6Q9UI 1310 
1120 OOTO 391 

1130 PRIRT " CHERRY-;; OOSUS 1310 
1140 GOTO 390 
1130 PRINT* SAR* 
1160 GOTO 430 
1170 PRINT" SELL* 
1160 OOTO 430 
1190 PRINT" ORANGE" 
1200 SOTO 450 
1210 PRINT" LEHON" 
1220 GOTO 430 
1230 PRINT" PLUH" 
1240 60T0 450 
1250 PRINT" CHERRY" 
1260 OOTO 430 
1270 FOR 04-* TS II 
1210 PRINT HNH171I 
1290 NEXT 04 
13O0 RETURN 
1310 FOR Tfl-1 TO S 
1320 PRINT CNIK7); 
1330 NEXT TB 

1340 RETURR 

1341 PRINT! PRINT "R0USLEI1" 

1342 PRINT"YOU WW!" 

1343 P-(((2«N>4N)4P) 

1344 OOTO 51* 
1330 STOP 
99?9 END 
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SPLAT simuiaies a parachute jump 
in which you try to open your 
parachute at the last possible moment 
without going splat! You may select 
your own terminal velocity or let the 
computer do it for you. You may also 
select the acceleration due to gravity 
or, again, let the computer do it in 
which case you might wind up on any 
one of eight planets (out to Neptune), 
the moon, or the sun. 

The computer then tells you the 
height you're jumping from and asks 
for the seconds of free fall. It then 
divides your free fall time Into eight 
intervals and gives you progress 
reports on your way down. The com- 
puter also keeps track of all prior jumps 
in the array A and lets you know how 
you compared with previous success- 
ful jumps. If you want to recall informa- 
tion from previous runs, then you 
should store array A in a disk or tape 
file and read it in before each run. 

John Yegge created this program 
while at the Oak Ridge Associated 
Universities, 



SPLAT 
CREATIVE CeilPOTlrtO MORRISTOUfl, BE« JERSEY 



UELCOHE TO 'SPLAT' — THE GAHE THAT SIMULATES A PARACHUTE 

jump, m ro oper your chute at the lasi possible 

rtQttE*! UITHOUT GOING SPLAT, 



SELECT YOUR CUM TERHIHAL VELOCITY (YES OR NO)? HO 
OK. TEltftlML VELOCITY = 45 rtl/HR 

UAH! TO SELECT ACCELERATION DUE TO GRAVITY (YES Oft NOJ? 
FINE. YOU'RE OH THE SUH. ACCELERAU0N=896F T/SEC/SEC 



ALTITUDE 
TERrt. VELOCITY 
ACCELERATION 
SET THE MftEt FOR 
HOU MANY SECONDS? 
HERE ¥£ GO, 



MU 



FT 

* 66 FT/SEC *-5I 
■ 996 FT/SEC/SEC ■»-« 
TOUR FKEEfALU 



TJflE (SEC) 



MST fO PALL (FT) 



TERIUflftL VELOCITY REACHED AT T PUS .073159? SECONDS 

1 8616.08 

2 854*. 73 

3 8483,3V 

4 S4J7.04 

5 8350.69 

6 6284,34 
? 8218 

8 8151.65 

GHIITE OPEH 

MkZin\*l NOT BAD FOR TOUR 1ST SUCCESSFUL JUNPIM 
DQ YQU UACI TO PUT AGAIH? YES 



SELECT TOUR CUH TERHINAL VELOCITY CYES OR WO)* YES 
UHAT TERHIHAL VELOCITY (HI/HRJ? 200 

UANT TO SELECT ACCELERATION DUE TO 8RAVITY iYES OR frQ)? YES 
MHAT ACCELERATION (f T/SEC/5EO? 32 



ALTITUDE 


= 1278 FT 


TERfl. VELOCITY » 293.333 FT/SEC *-« 


ACCELERATION ■ 32 FT/SEC/SEC +-5X 


SET THE TIMER 


FOR YOUR FREEFALL. 


HOU HANY SECONDS? It 


HERE UE 00. 




TIKE (SEC) 


DIST TO FALL (FT) 


■ HEI=III= 


Bt = ta«* ■■***"*-« 





1278 


1,373 


1247.23 


2.7S 


11H.-N 


4,125 


1001.21 


5.5 


78$, 934 


6.B75 


50? J 46 


8,23 


170.051 


TERMINAL VELOCITY PEACHED AT T PUS 8,75938 SECONDS 



B. 86435 SPLAT 

REQUIESCAT IH PACE. 

I'LL BIVE YOU ANOTHER CHANCE, 

&q TOO WANT TO PLAY AGAIN* YE8 



SELECT YOUR DUN TERMML UEL0C1TT (YES OR HKH? YES 
MAT JEftrtlNAL VELOCITY (HI/HftP 200 

UAMT TO SELECT ACCELERATION DUE TO GRAVITY (YES Oft KOI* YES 
UHAT ACCELERATION (FT/SEC/SECJ? 32 



SET 

rtOU 



ALTITUSE 
TERM, VELOCITY 
ACCELERATI0H 
THE TMER FOR 
HANY SECQN0S* 



= 9440 FT 

= 293.333 FT/SIC *-M 

* 32 FT/SEC/SEC +-52 

TOUR FREEFALL. 

7.3 



HERE vt eo. 



TIME ISECI 



DISI TO FALL (FT) 



9440 

,»S7S 9426,04 

1.875 *384,17 

2.8125 9314.3V 

3,75 9216.6? 

4.6875 9091.08 

5.625 8937.36 

6.5625 8756.12 

7.5 8514.77 

CHUTE OPEN 

ftRAZtnetii HOT 

US YOU UANT TO 

PLEASE? NOPE 

YES OR HO PLEASE? 

SSSSSSSSSS. 



BAD I- Oft YOUR 2ND 
PLAT AGAIN* NO 



at 



SUCCESSFUL JOHP'M 
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THAT SIWLATES A PARACHUTE 1 
H THE LASI POSSIBLE" 



PRINT TAB(33);"SPLAT* 

PFT1NT TABU5);"CREATIV£ COrtPUTIHG HORRISIOUN, HEW JERSEY 

PR1HT:PRINI;PR1HT 

OLA A(42> - - 

PRINT 'UELCQHE TO 'SPLAT' -• THE UAHE 

PRINT "JUMP. TRY TO OPEN TOUR CHUTE 

PRINT -AOrtEHT UITHOUT 60IN6 SPLAT*" 

PRINT:PRINT:D1=O;Y=O:A=O;H=O:H=Ot0l=INT< 9001 4fiMK1)4 1000) 

PJEIHT " SELECT YOUR OUH TERrtlHAL VELOCITY (YES OR NarjtlHPIIT 

If AM--NO* GOTO 126 

If AUO M YES" FHEN PRINT "YES OR HO-;:INPUT Al*:GOrO 120 

PRINT "UHAT TERMINAL VELOCITY (fll/HRJ"; UNPUT VI 

V1=V1t<52SO/34OOUV=V1^<VMRHR<m/20)MiV1tRNDMM/2O»:GQrO 

V1=INTUO0O*RHBUI> 

PRINT -OK. TERHIRAL VELOCITY *"V1 *HI/Hft H 

VI =V1* (5280/3600 >:V=VI t< ( VI tl*ND<1 >)/20)-( (VI •RN&nH/20> 
PRINT "WANT TO SELECT ACCELERATION 1UE TO GRAVITY <Y£S OR HO)"; 

INPUT Bit 

IF 81*'"H0 P IHEH 150 

IF B1IO"Y£S" THEN PRINT "YES OR Nfl*;iIHPUT BUtGOTO 140 

PRINT "UHAT ACCELERATION (FT/SEC/S£C)*;:INfUf A2 

A«A2+(<A2*RND(1))/2Q)-{IA2*RNDM))/20>l60TO 205 

ON INTO *(1O*RH»<tn)G0TO151, 152, 133, 154, 155, 156, 157, 158,159, 160 



Alt 



135 



rtERCURY. ACCELERATION* 12. 2n/SEC/SEC":60T0161 
OK VENUS. ACCELE*ATI0N=28,3 FT/SEC/SEC"t00T0162 
EARTH. ACCELERATIONS. 16 FT/S£C/SEC"i80TO 163 
THE NOON, ACCELERATIONS. 15FT/SEC/SEC"j00TO 14* 
QN NARS, ACCELERATIONS. 5fT/SEC/S£C M :80T0 165 
JUPITER, ACeELERATlOH-SS^FT/BEC/MCjfiOTO 166 



PRIHT'FINE. YOU'RE ON 

PRIHT'ALRIBHT. YOU'RE 

PRWT "THEN YOU'RE ON 

PRINTTINE, YOU'RE ON 

PRIKT"ALRI6HT. YOU'RE 

PRINT"TH£N YOU'RE ON 

PRINT-FINE, YOU'RE ON SATURN. ACCELERATIONS. 6FI/3EC/S£C-:60TU 167 

PRINT'ALRIOHT. TOU'RE ON URANU5, ACC£L£RAUON-33.8FT/S£C/S£C rt :GO(0 168 

PRINT-THEN YOU'RE ON NEPTUNE. ACCELERATIONS*. 6f T/8EC/S£C*:SOT0 169 

PRINT"FINE, YOU'RE ON THE SUN. ACCELERATI0N-e?6FT/SEC/S£C-:BOT0 170 

A2=T2.2:GOTO 145 

A2=28.3:60TO 145 

A2=32,16:G0TQ 145 

A2=5.15:60T0 145 

A2-12.5C00T0 145 

A2=85.2iGOT0 143 

A2=37.6:G0TQ 145 

A2=33.$ :6OT0 145 

A2-39,6:60r0 145 

A2*896i60T0 145 

ALTITUDE ="D1'FT" 

TERN, VELOCITY «*Vf 'FT/SEC +-5X* 
ACCELERATION = - AJ # FT/ SEC/SEC *-3X" 

THE TIMER FOR YOUR FREEFALL." 
HANY S£CONDS";:INPUT T 
U£ GO.** 



'SET 

K HOU 
-HERE 



IlrfE <SEC?VDIST TQ FALL (FT)* 



<T/8) 



403 

410 

420 

430 

440 

300 

310 

550 

555 

560 

370 

560 

600 

610 

620 

630 

635 

636 

637 

638 

63? 

650 

660 

670 

680 

6*0 

6*5 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

FOR 1=0 TO T STEP 

IF I>V/A GOTO 400 

D=D1-(<A/2>*r2> 

IF BOO OOTO 1000 

PRINT I,D 

NEXT I 

OOTO 500 

PRINT "TERN1WAL VELOCITY REACHED AT T PLUS"V/A"SECl)N9S* 

FOR I«I YO I SICP CI/S> 

D=Bt-UV*2/<2*An*(V*{l-1V/A>))J 

IF D<«0 OOTO 1010 

PRINT 1,8 

NEXT I 

PRINT "CHUTE UPEN' 

ti-OifU«0 

FOR J=0 TO 42 

IF AU)-0 OOTO 620 

K=K*1 

IF B>=AU) GOTO 600 

Kt-KUl 

NEXT J 

60TO 540 

A(J)*D 

IF J>2 THE* 650 

PRINT "AHrtZIRGIH 

IF J*0 THEN PRINT 

IF J=1 THEN PRINT 

IF J=2 THEN PRINT 

PRINT "SUCCESSFUL 

IF 

n 




700 
701 
702 
703 
710 
7tl 
712 
720 
721 
730 
731 
740 
741 
742 
750 
751 
752 



302 
803 
804 

80S 



-UOU< THAT'S SOHE JUNPIN0. OF 
'BEFORE YOURS, GHLY"K-tfrUPEH£D 



THE"K"5UCCES3FUL JUftPS" 
fKEIR CHUTES LOUEfl THAN* 



JUrtPS PRECEDED 
YOU DID BEFORE 



YOURS 
IHElft 



AND ONLY* 
CHUTES" 



F 

II I 

P 

M ■ 
f 



:GU10 2000 



NOT BAN FOR TOUR 

"151 

"2ND 

"3RD 

JUrtPP 

K-KK«.1*K 60T8 700 

K-KK=.25*K OOTO 710 

K-KK».5*»: GOTO 720 

K-K1<i.75lK 6OT0 730 

K-KK«.**H GOTO 740 



IF 

IF 
IF 
GOTO 750 



soy 

1000 

1005 

1010 

1020 

1*50 

2000 

2001 

2002 

2003 

2005 

2006 

2007 

L'04fi 



PRINT 
PRINT 

PRINT "YOU DIN.' 
80T0 2000 

PRINT 'PRETTY 6008* " K"SUCC£SSFUL 
PRINT K-KI* OF THEN GOT LOUER THAN 
PRINT 'OPENED.- :G0TO 2000 

PRINT 'NOT DAD. THERE HAVE 8££N - K" SUCCESSFUL JUrtPS BEFORE TOURS." 
PRIHrYOU UERE 8EATEN OUT BY-K-K1*0F rHEH.^eOTO 2O0O 
PRINT ^CONSERVATIVE AREN'T YOUT TOO RANKED 0NLY'K-K1"I» THE" 
PRINT ^''SUCCESSFUL JUP1P5 BEfORE YOURS. ":60TO 2O00 
PRINT "HUrtPH' DON'T YOU HAVE ANY SPORTING BLOOD? THERE ttERE" 
PRINT UNSUCCESSFUL JUrtPS BEFORE TOURS AND YOU CANE IN"K1 "JUrtPS" 
PRINT "BETTER THAN IHE UORST. SHAPE UP'H":6OT0 2000 
PRINT "HEY! YOU PULLED THE RIP C3R8 AUCH TOO SOON. "^'SUCCESSFUL" 
PRINT "JUrtPS BEFORE YOURS AND YOU CANE IN NUH&£ft"K-K1"! GET U1TH II 
GOTO 20OO 

PRINT "RE8U1ESCAT IN PACE.-iGOTO 1950 
PRINT 'rtAY THE ANGEL OF HEAVEN LEAD YOU 
PRINT 'REST IN P£AC£":GOTO 1*50 
PRINT -SON-OF-A-OUN'ieOTO 1930 
PRINT *fl*m:it"!60T0 1950 
PRINT 'A KICK IN THE PANTS IS A 
PRINT 'HHftrt, SHOULD HAVE PICKED 
PRINT -HUTTER. HUHER. NUTTER. ";GOT0 
PRINT -PUSHING UP DAISIES. ":G0T01?50 
PRINT "EAST CONE, EAST GO.":6UT0 1?50 
PRINT SOS^^DUAJ^SPLAf 



INTO PARADISE-iGOTO 1950 



POOS! IF YOU'RE HEADED 
A SNORTER riNE.":6OT0 
1?50 



RiGHT-:GOT0 ! 
1*50 



OH INTI1*M0tRND(U))60T0 900,801 »802 f 803.B04 t S05 t t 

PRINT lU/A)*(<»l-<V'2/l2*A)n/ l V), "SPLAT" 

GOTO 1005 

PRINT ■ '1 LL OIVC YOU ANOTHER CHANCE. ":60T0 20OO 

PRINT *D0 YOU UANT TO PLAT AfiAlN";:l«PUT 1% 

IF 2**'YES* GOTO 118 

IF 2*-*H0' BOYO 2003 

PRINT "YES OR *0':6MO 2000 

PRINT "PLEASE"! :INPUT tf'.lf Z*="YES" THEN 118 

IF ZK>'NQ" THEN PRINT "YES OR NO ";:GOT0 2005 

PRINT "SSSSSSSSSS.":GOTO 2046 

END 



)A f 807 f 80e t 80* 
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Stars 



In this game, the computer selects a 
random number from 1 to 100 (or any 
value you set in Statement 1 50) . You try 
to guess the number and the computer 
gives you clues to tell you how close 
you're getting. One star (') means 
you're far away from the number seven 

stars { *) means you're really 

close. You get 7 guesses. 

On the surface this game is very 
similar to GUESS; however, theguess- 
i ng strategy is quite different. See if you 
can come up with one or more ap- 
proaches to finding the mystery 
number. 

Bob Albrecht of People's Computer 
Company created this game. 



(Mt f I AN THINKING OF A RUH8ER, STMT 8UESSIR6. 

YOUR BUESST 50 
••* 

YOUR 8UE9ST 75 

M 

YOUR OBESST 25 

YOUR BUESST 35 
•t»»» 

YOUR 6UE33T 30 

YDUR 0BE33* 31 

YOU 80T It I* 6 MESSES Ml LET'S PLAY MOW... 



c* 



STARS 
CREATIVE C0HPUTIH8 HORRISTOUM, HEU JERSEY 



10 YOU HART INSTRUCTIONS? YE8 
I AH TIIMIH OF A WHOLE RUBBER FRQR 1 TO 100 
TRt TO 8UE35 AT NUMBER. AFTER TOO 6UESS, I 
MILL TYPE 0« OR "ORE STARS <•). THE WIRE 
STARS I TYPE, THE CLOSER YOU ARE TO NT HUMIER. 
OIE STAR (•» REARS FAR AUAT, SEVER STARS <•*••»»•! 
NEANS REALLY CLOSE! YOU SE! 7 GUESSES. 



01, ! AM THINKING Of * NUMBER, START 6UESSIHQ. 

YOUR BUESST SO 
*•• 

YOUR 8UE3S* 25 

YOU GOT IT IN 2 BUE3SESMI LET'S PLAY AGAIN... 



OK, 1 AH THINKINB OF A RUBIER, START 8UE3S1M8, 

YOUR OUESST 50 
»** 

YWI 8UE8S? 75 

•t 

YOUR OUESST 25 

TOUR BUESST 13 
«M 

YDUR G0ES57 3S 
tllNI 

YOUR 6UESS? 38 

YOUR BUESST 33 
tllHtl 

30RRY, THAT'S 7 0UE33E8, NUMBER VAS 32 



10 PRINT TAB(34>',"STAR5" 

» PRIRT T*B(I5);-CREATI« COMPUTING MORRISTOUH, MEU JERSEY" 

30 PRINTiPRIHTiPRINT 

100 REM ••• STARS - PEOPLE'S COMPUTER CENTER, RENLO PARK, 

REH *•• A IS LIMIT ON RUHBER. B IS RUBBER OF OUESSES 

A»1«0tH»7 

IRPUT -00 YOU UABT INSTRUCTIONS";** 

IF LEFTI<AI,U--1I- THER 210 

REM *•• INSTRUCTIONS ON HOU TO 

PRIRT 

PRINT 

PRINT 

PRIRT 

PRINT 

PRINT 

REH •«• 

PRINT 

PRINT 

X-IMT<*«RMB{I>*1) 

PRIRT "OR, I AM THINKING QF A NUMBER, 

REM ••• 0UESSIH8 BE61HS, HUMAN BETS H 



140 

130 

170 

1T0 

200 

210 

220 

230 

2*0 

250 

2*0 

270 

2B0 

2*0 

300 

310 

320 

330 

340 

330 

3*0 

370 
380 

3*0 

400 

410 

420 

430 

440 

450 

4*0 

470 

480 

4*0 

500 

510 

520 

330 

340 

550 

560 

380 

390 

600 

610 

620 

630 

640 

650 

6*0 



PLAT 

"I AM THINKING OF A UMOLE RUBBER FROM 1 TO";* 
-TRT 10 GUESS NY NUMBER. AFTER YOU SUES:!, I" 
"UILL TYPE ONE OR MORE STARS (•!. TNE HORE" 
■STAR5 I TYPE, THE CLOSER YOU 
•ONE STAR («) MEANS FAR AUAY, 
'MEANS REALLY CLOSE! YOU BET 
COMPUTER THINKS OF I NUMBER 



are to my number." 
seven stars <•«»»«•>' 

:r;"GUESSES." 



START GUESSING. 

GUESSES 



FOR K-1 TO M 

PRIMT 

PRINT "YOUR SUESS"; 

INPUT 8 

IF 6-1 THEN 600 

D-A8SI8-X) 

IF 0>>64 THEN 310 

IF 8>"32 THER 50O 

IF l>«14 THEN 4*0 

If l>-8 THEN 480 

IF 0>«4 THEM 470 

IF B>*2 THEN 460 

-•-; 

■t"; 

.... 

■«■; 
■••; 

••■; 

"•■: 



PRINT 

PRINT 

PRIRT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

NEXT N 

REM *«« BID ROT GUESS IN M 8UESSE5 

PRINT 

PRINT -SORRr, THAT-S";H;-eUESSES, NUMBER UF',1 

GOTO 280 

REH ••• UE HAVE A DINNER 

FOR N«1 TO 50 

PRINT "«■; 

NEXT I 

PRINT *!!'!■ 

PRINT "YOU COT IT IN";K;"6UES3ESH I LET'S PLAY ASAIN...' 

GOTO 280 
END 
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Stock Market 



Thia program ^ploys' too atock 
fflaikflL You wlU te gtvaa $lO>QOOfinO 
roay buy Of aati atocka* Stock prfc*a 
irrcJ trertJi aie generate randomly; 
therefore, thtt moOl *»* not r*pr«- 
*ant fc*actfy «"3t happens on ttoi 
dkc hurt 3*1 (Dsptmding upon your 
po*it o( vimw. you may fooJ thic k <^ulto 
i good representation?) 

Every trading day. a table of Blocks. 
Lhett w\<x&. anO number oT an^rea in 
pour portfolio is pcmwd Pol towing 
thia, tne initials of eaoh stock are 

panted followed by A question rrmrV. 

You indlcra your transaction in 
^mbef of sharra- apcortrvc number 
to buy. negative numbar to wl*. or to 

cJo HO trading 4 bro*cflgQ ft» 0O%is 

cnaroixl on nil irania^tinni (a 
twrflflintj T Not*; Evan rl tho- value of a 
stock crops to mo, ft may rtboond 
again then agam, i\ may ml 

Thte program was created by 0. 
Pewtf , L Biaufi. and C Loalfc of tho 
Huntington Compute Projact at 
5UNY r Stony Orcoa, N.Y. 



mwti 



M r«9 v*tT iK ttfiraHllM irtt-Wt i , M-;»rc Oil 



miB MQtfftl MH »**t tlKC JUtttfl. V13U Jill K Bl\X9 

•IM» »» »f Oil Oi *£U tflttl. TX I 'DC* ftiCtt *1J 
E* tftUtlU MftMH-f «* f*Mf»K HH Hlffl IW3 *1 

■tPtjllif UA;=lT W *if*l«f 0* IK «0+iHf. * r*)ic 

p aduuu mat, mtw meet, «» i*e >H«ii of oiaus 

H TH* MaifftlJft Hkt IF ftUTO* l&UOJi"! 1*15, T« 
UtMhl m tM* >TKK HU II riliritl vlli I OitOUAJ 

htir^ ■*** tw iBtuaff ^ tiv4*CTiM. it iw * tt«r 
irn «***. to tut a miu ■ -I -h», **C4E im is m 
mrtlft tf ihrttlt * * i^ttu ret ir u lull ii oinmi 

at HL.L n\U**?m«. "Ill HM If I HOW'S WLUl QlGTI 
II J|ft If Wif NIHM 10 t I0SIII1E «Ut Mil. fJU 

euLt ■it.m « w*i*r. ■* uitat* rot *u i*t unit. 
<iott» ii «1 * ''in' «• ;»< imi£[ >i« »» *i u<tT 

H liYSl 



» i>:* EDTIU 
It!. l*liinJ( RllBliB J** 
Rfft CMii M IKII^ «t* 
LlOllUtlCUi ttAIJ* 1 -Wt UJ 
0WIICM ****** I id. Ml 


IP 




wtu ioii irici ttouu* mimVi hs.*s 






ihu noct aisni *n t o 

IDTilL (H« lltcrt UC < IK4t 

inn <s«i4 **c " iroti 






Mtti ii rut 
lart it 

KM Jl 
Ullll 


TttlteClMN iv 






HNNMM 


mi or Wt KMIK 






IM 


fi.tt tt 

«,3 H 

MM* 1» 

iit*rt • 
ti.i * 


VJUK 

ttt.t 

• 


ici met CMMI 
a.n 

-4 


mi riK irtt< ckm*h hitMfi ii«.«3 


Ktl OMNr 


f ■»-* . 


«t«i btw< *itrn aii * >«* 

HTM C*tM *ttlT1 W * 3tlt.« 
1IML MKTI IIC t «M.W 




-■ ■ f \ 


It 11U IIU r» ctviuwe tioiw i r iVTiri DM 1 

MAI If TJLti fMtt4(TI1» It 

(Hit 6 
tl/f-H 
*|[f C 

cut t 




MMI4MM 


it* « hvi rmi»f 






S1KI 

m 

IK 
III 


::'./:■ 10 
m*is to 

«.« 


vnuc 

4 


KT rtltf OoNRH 

-1.1 

-7 

-J.I 


«tv i^ii note nm*ti? wRtttt H.« 


KI CM^I 


-<*4 


1PTAL TIGtB tftffV Jtt 1 MM*? 

IDTIi CI5I ftUtri All 1 Jia?-7I 

ttriL mm w » *W.?i 







■ !S4 



30 PfilHIl PRlNTi P*»*I .,„„ „„,,_ 

US 51". wtfS'fiSS'SU. INK M m. STOCKS, 

114 LEI «"l«T<l«ll<«>/UIMM»-»>"*» 

115 IEI tJO 
114 LEI MO 

11? IEI mo 
118 IEI MO 
11» IEI E1-0 

ill aFsrsti ^ mm <««-»« •• -*■»■ «•■• 

123 INPUT 29 

124 PRINT 
123 PRINT 

lit SiK'p X°«* iun w !:««"»;"• ,™ SiSfSIa- 

it? PRINT "110.000 6KB KAY BUY OB SELL STOCKS. THE STOCK P««»»^ 

n»1 -IE KIERMCI RAKIONLY Ml THEREFORE THIS NOBEL ■*«««' 
Im Hill ■REPBESEHl EXACTLY UHAT HAPPENS OH THE EXCHANGE. » "BIC* 
34~ HIM •!! SSIhSSoCH. THEII PRICES, AND THE NUNBER Of SHARES 

" J! .°,L Si; PMTFOUO « LI BE MUM. FQLIQUIW THIS, THE" 
M • NITIALS OF EACH STOCK WILL BE PRINTED HITH A QUESTION" 

MHI -IX" HEU OU XHIICATE A TRANSACTION. TO BUT * STOCK" 
5! "»!"•«!" TO SELL A STOCK TYPE -«-. «™ ™ »J£. 
111 PRINT -NUHBER OF SHARES, * BROKERAGE FEE OF II UILL IE CHARGED 
Ii7 Kill -at ALL TRANSACTIONS. HOTE THAT IF A STOCK'S VALUE DROPS" 
\A H I -TO ZERO IT HAY REIDUHB TO A POSITIVE VALUE AGAIN. YOU" 
4 PUIT -HAVE I 10 I EST. USE INTEGERS FOR ALL TOOK INPUTS." 

!« print "(note! to Set a -feel' for the harket run fob at least- 

Hi PRINT -10 BAYS)" 

M? PRINT ' GOOD LUCK1 " 

260 REH GENERATION OF STOCK TABLE; INPUT REQUESTS 

210 SEN INITIAL STOCK VALUES 

220 LET 5(0 = 100 

230 LET S(2)-83 

240 LET 91SI-130 

250 LEI S14)*140 

2*3 REN INITIAL 18 - ■ DAYS FOB FIRST TREND SLOPE (A) 

246 LET T8*IRTI4.99»RNR<X>*1> 

267 REH RANDONIZE SIGN OF FIRST TREND SLOPE IA) 

248 IF RNGIXO.5 THEN 270 

26? LET A»-A 

270 REH RAND0HI2E INITIAL VALUES 

280 fiOSUI 830 

285 REH INITIAL PORTFOLIO CONTENTS 

2?0 FOR 1-1 TO 3 

300 LET PUl'O 

303 LET 1(11-0 

310 NEXT I 

320 PUNT 

330 PRINT 

333 BEN INITIALIZE CASH ASSETSlC 

335 LET C-10000 

\\B REH P8INT INITIAL PORTFOLIO 

3 5 PRINT "lOCKV ".■"*"IALS-,-PRICE/S««E 

331 PRINT "INT. BALLISTIC HISSILESV M'.SiO 
352 PRINT -BED CROSS Of AHERICA"," KA",St21 

334 PRINT -LICHTEHSTEIN, IUHRAP I JOKE"," "ft*"* 

336 PRINT -AHEBICAN BANKRUPT CO."," JW'.8C41 
33B PRINT 'CENSURED BOOKS STORE" ,* CBS",Sl3) 

Ml "en"Iy8E AWERAOE.ZS; TEHP. VALUE.Z4; NET CHANQE.Z6 

363 LET Z4-I5 

364 LET 23-0 
343 LET T"8 

370 FOR 1-1 TO 3 
373 LET 23"23*S(I> 
360 LET T-T*S(I)*P<1) 

390 NEXT I 

391 LET Z5«INTOOQ*(25/S)*.3>/IOO 

392 LET 26-INT(a3-24»«I04+.5)/100 

393 REH TOTAL ASSETS:! 

394 LET D"T»C 

394 PBlir-NEH YORK STOCK EXCHANGE AVERAGE; "15 

Ml "inV'nEU YORK 8I0CK EXCHAH6E AVERAGE, "23" NET CHAHOE, -24 



399 PRINT 

400 LET T«INT(IOO*T*.3>/100 

401 PRINT -TOTAL STOCK ASSETS ARE * ,T 
403 LET C>INT(100»C*.3I/100 

405 PRINT "TOTAL CASH ASSETS ARE 4 ;G 

407 LET B»INT<100«D*.3>/100 

408 PRINT -TOTAL ASIETB ARE * t» 
410 PRINT 

412 PRINI = Vo1oVyiS- TO CONTINUE (YES-TYPE I, HO-TIPE 0)-; 

413 INPUT 09 

414 IF Q?<l THEN 990 

416 REH INPUT TRANSACTIONS 

420 PBINT "UKAT IS YOUR TRANSACTION IM* 

430 PBINT "III"! 

440 INPUT Z(I> 

4S0 PBIHI "RCA"; 

460 INPUT 2(2) 

470 PRINT "LBJ"; 

480 INPUT 2<3» 

490 PRINT "ABC"; 

300 INPUT 214) 

510 PRINT "CBS"; 

320 INPUT 2(5» 

523 PRINT 

530 REH TOTAL DAY'S PURCHASES IN »:P5 

540 LEI P5-0 

550 REH TOTAL BAT'S SALES IN »lS3 

360 LET 93-0 

570 FOR IM TO 3 

373 LET ZU)-INTlZ<I)t.3> 

580 If ZUK-0 THEN 610 

590 LET P3»P5*Z(I)»S<1> 

600 GOTO 020 

410 LET S5*S5-Z(I)»S(I> 

612 If -Z(IX-P(I) THEH 420 

414 PRINT "YOU HAVE OVERSOLD A STOCK; TRY AGAIN." 

416 BOTQ 420 

620 NEXT I 

422 REN TOTAL VALUE OF TBAHSACTIQRSlTS 

425 LET T3"P3*S5 

630 BEN IIOKERAQE FEEiB5 

640 LET B5-INT(.01*T3*10O».3I/1O0 

630 REH CASH ASSETS-OLI CASH ASSETS-TOTAL PURCHASES 

652 REH -BROKERAGE FEE8*T0IAL SALESiCS 

634 LET C3-C-P3-I5»S5 

634 IF C3>-0 THEH 674 

438 PBINT -tOl) HAVE USED l"-C5" HIKE THAN YOU HAVE." 

660 OOTO 420 

674 LET C-C3 

673 BCH CALCULATE HEU PORTFOLIO 

610 FOR 1*1 TO 5 

490 LET PU)*PU1*Z<I> 

700 NEXT I 

71* REN CALCULATE NEU STOCK VALUES 

72* GOSUI 830 

730 BEN PRINT PORTFOLIO 

731 REH IELL RINSING- DIFFERENT ON MANY COMPUTERS 

752 FOR 1-1 TO 20 

753 PRINT CNRK135); 

754 HEX! I 

735 PRINT 

736 PRINT "••»•••»••• END OF DAY'S TRABING' 

757 PRINT 

758 PRINT 

739 IF X?<! THEN 769 

769 PRINT "STOCK", "PRICE/SHARE", "HOLDINGS" RVALUE*. "NET PRICE CHANCE" 

770 PRINT -IBH-, SCI), HI), S(I)"P(I>, C1I) 

771 PRINT -RCA", $(!), P'2), S(2)»P(2), C(2I 

772 PRINT "LIJ", S(3), P(3I, 8(3)»Pt3), C(31 

773 PRINT "ABC, S(4), P<4), SC4HPH), C(4) 

774 PRINT -CBS", 8(3), P(3), S(5XP(5), C(5) 
773 LEI X9<T 

780 PRINT 
790 PRINT 
810 GOTO 360 

829 REH NEU STOCK VALUES - SUBROUTINE 

830 REN RANDOHIT PRODUCE NEU STOCK VALUES BASED ON PREVIOUS 

831 REH DAY'S VALUES 

832 REH H1.N2 ARE RANIOB RUNIERS Of DAIS UHICH RESPECTIVELY 

833 REM DETERHIHC UHEN STOCK II UILL INCREASE 10 PTS. AMD STOCK 

834 REN 12 UILL IECREASE 10 PTS. 

640 REH IF HI DATS HIVE PASSED, PICK AN II, SET El, DETERMINE NEU Nl 

841 IF Nl>0 THEH 8S0 

843 LET I1>lHT(4.99*RHD(X)tl) 

846 LET K1-INT(4.99»RNDIX)*1) 

830 REH If'h2 DAYS HAVE PASSED, PICK AH 12, SET E2, IETERHINE HEU N2 

831 IF N2>0 THEN 860 

855 LEI I2=INH4.99»RNDIX)«1) 
836 LET N2 B INT(4.99»8BD(X)*I) 
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LET (2*1 


fitrt DERUCI ONE MY FftON HI AND «2 


LET N1*N1-1 


LET N2*IW-I 


REN LOO? THftQUSH ALL STOCKS 


FOR I»1 Tfl 5 


LET XI-RWE(X) 


IF X1>.25 THEM 920 


LET XI*. 25 


80T0 935 


IF *l>.30 THEN 925 


LET XI ".3* 


flQTO 935 


IF Xt>,75 THCH 930 


LET X1».75 


SOTO 933 


LET xi>o,o 


REN 116 CUANM CON3TANT:U3 (SET 10 Z 


LET U3-0 


IF EU1 THEN 943 


IF lNICI1t.5K>IHT(I*.5> THEN *45 


REJt AD1 JO PTS. TO THIS STOCK; RESET 


LET 113-10 


LET Et»0 


IF E2<1 THEN 955 


If INTil2t.3)OINT(I+.3) THEN 955 


REM SUBTRACT 10 PTS. FROfl THIS STOCK; 



ZE80 1MTMU.U 



El 



9*9 
953 
954 
955 
956 
957 
940 
944 
945 
9W 
967 
970 
972 
973 
97* 



985 
984 
990 
992 
9?3 
9?4 

997 
998 
919 



LEI tfJ>UJ-10 

LET E2»0 

REN C(I) IS CtfAJtOE IN STOCK VALUE 

LET C<I}«INT(A*SU>>tXWINT(3-*tftNIKX>*.3)+U3 

let ccn*tNmoo*tmo>/ioo 

LET 5U)=S-;iMCU) 

IF 3U)>0 THEN 967 

LET C(I)«0 

LET S(I>-0 

SOTO 970 

LET S(I)"INT(100*8U)*,5)/100 

NEXT I 

REN AFTER T8 IAYS RANBONLT CHANGE TRENS SIGN AM SLOPE 

LET T««T8-1 

IF T8<1 THEN 905 

RETURN 

REN RANDOHLY CHANGE TREND S1SN AND SLOPE (A), Aft* 9URRTI0N 

REN OF TREND (TO) 

LET TBMHT<4.99**N0m*1> 

LET A>INT((NNI(X)/t0>*10Ot.S>/100 

LET S4>RHR(X) 

IF S4<«.5 THEN 997 

LET A-A 

RETURN 

PRINT 'HOPE YOU HAD FUNIC 

EH9 



RESET £2 
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Brief History 



Many versions of Star Trek have been kicking around 
various college campuses since the late sixties. I recall 
playing one at Carnegie- Mel Ion Univ. in 1967 or 68. and a 
very different one at Berkeley. However, these were a far 
cry from the one written by Mike Mayfield of Centerline 
Engineering and/or Custom Data. This was written for an 
HP2000C and completed in October 1972. It became the 
"standard" Star Trek in February 1973 when it was put in 
the HP contributed program library and onto a number of 

HP Data Center machines. 

In the summer of 1973, I converted the HPversion4o 
BASIC-PLUS for DEC's RSTS-1 1 compiler and added a few 
bits and pieces while I was at it Mary Cole at DEC 
contributed enormously to this task too. Later that year I 
published it under the name SPACWR (Space War - in 
retrospect, an incorrect name) in my book 101 Basic 
Computer Games. It is difficult today to find an interactive 
computer installation that does not have one of these 
versions of Star Trek available. 



Quadrant Nomenclature 



Recently, certain critics have professed confusion as to 
the origin of the "quadrant" nomenclature used on all 
standard CG (Cartesian Galactic) maps. Naturally, for 
anyone with the remotest knowledge of history, no 
explanation is necessary; however, the following synopsis 

should suffice for the critics: 

As every schoolboy knows, most of the intelligent 
civilizations in the Milky Way had originated galactic 
designations of their own choosing well before the Third 
Magellanic Conference at which the so-called 2 Agree- 
ment" was reached. In that historic document, the partici- 
pant cultures agreed, in all two-dimensional representations 
of the galaxy, to specify 64 major subdivisions, ordered as 
an 8 x 8 matrix. This was partially in deference to the Earth 
culture (which had done much in the initial organization of 
the Federation), whose century-old galactic maps had 
always shown 16 major regions named after celestial 
landmarks of the Earth sky. Each of these regions was 
divided into four "quadrants." designated by ancient 
Roman Numerals" (the origin of which has been lost). 
To this day, the official logs of starships originating on 
near-Earth starbases still refer to the major galactic areas as 

"quadrants." 

The relation between the Historical and Standard 
nomenclatures is shown in the simplified CG map below. 



M 



1 

2 

3 
4 

5 



7 
8 




ANTARES 
II III IV 

R1GEL 

II III IV 

PROCYON 
II III IV 

VEGA 

II III IV 

CANOPUS 
tl Ml IV 

ALTAIR 
II III IV 

SAGITTARIUS 
II III IV 



6 



8 



POLLUX 
II III 



IV 



SIRIUS 
I II III IV 

DENEB 
I II III IV 

CAPELLA 
I II III IV 

BETELGEUSE 
I II III IV 

ALDEBARAN 
I II III IV 

REGULUS 
1 II 111 I 

ARCTURUS 
| II III IV 

SPICA 
I II III IV 



•Designates trademark of Paramount Pictures Corpora- 
tion. Used by permission of Paramount Pictures Corpo- 
ration. 
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Super Star Trek'Rules and Notes 

by Robert Leedom and David Ahl 

1. OBJECTIVE; You are Captain of the starship "Enter- 
prise'^ with a mission to seek and destroy a fleet of Klin- 
gont warships (usually about 17) which are menacing the 
United Federation of Planets. t You have a specified 
number of stardates in which to compile your mission. 
You also have two or three Federation Starbasest for re- 
supplying your ship. 

2. You will be assigned a starting position somewhere in 
the galaxy. The galaxy is divided into an 8 x 8 quadrant 
grid- The astronomical name of a quadrant is called out 
upon entry into a new region. (See "Quadrant Nomencla- 
ture/'! Each quadrant is further divided into an 8 x 8 sec- 
tion grid* 

3. On a section diagram, the following symbols are used: 



<* > 

ttt 



Enterprise 
Klingon 



> ! < Starbase 
* Star 



4. You have eight commands available to you* (A detailed 
description of each command is given in the program in- 
structions.) 

NAV Navigate the Starship by setting course and 

warp engine speed. 
SRS Short-range sensor scan (one quadrant) 
LRS Long-range sensor scan (9 quadrants) 
PHA Phasert control (energy gun) 
TOR Photon torpedo control 
SHE Shield control (protects against phaser fire) 
DAM Damage and state -of- re pair report 
COM Call library computer 

5. Library computer options are as follows (more com- 
plete descriptions are in program instructions): 

Cumulative galactic record 

1 Status report 

2 Photon torpedo course data 

3 Starbase navigation data 

4 Direction/distance calculator 

5 Quadrant nomenclature map 

6. Certain reports on the ship's status are made by officers 
of the Enterprise who appeared on the original TV Show 
— SpocM Scott/' Uhura,t Chekov,!" etc, 

7. Klingons are non-stationary within their quadrants. If 
you try to maneuver on them, they will move and fire on 
you. 



9. Your engines will automatically shut down if you should 
attempt to leave the galaxy, or if you should try to maneu- 
ver through a star, a Starbase, or — heaven help you — a 
Klingon warship. 

10. In a pinch, or if you should miscalculate slightly, some 
shield control energy will be automatically diverted to 
warp engine control (if your shields are operational I ). 

11. While you're docked at a Starbase, a team of techni- 
cians can repair your ship (if you're willing for them to 
spend the time required— and the repairmen a/ways un- 
derestimate-. .)- 

12. If, to save maneuvering time toward the end of the 
game, you should cold-bloodedly destroy a Starbase, you 
get a nasty note from Starfleet Command. If you destroy 
your tast Starbase, you lose the game! (For those who 
think this is too harsh a penalty, delete lines 5360-5390, 
and you'll just get a "you dumdum !"-type message on all 
future status reports.) 

13. End game logic has been "cleaned up" in several 
spots, and it is possible to get a new command after suc- 
cessfully completing your mission (or, after resigning 
your old one)* 

14. For those of you with certain types of CRT/keyboards 
setups (e,g. Westinghouse 1600), a "bell" character is in- 
serted at appropriate spots to cause the following items to 
flash on and off on the screen: 

• The Phrase '"RED*" (as in Condition: Red) 

• The character representing your present quadrant in 
the cumulative galactic record printout. 

15- This version of Star Trek was created for a Data Gen- 
eral Nova 800 system with 32K or core. So that it would fit, 
the instructions are separated from the main program via 
a CHAIN. For conversion to DEC BASIC-PLUS, Statement 
160 (Randomize) should be moved after the return from 
the chained instructions, say to Statement 245* For Altair 
BASIC. Randomize and the chain instructions should be 
eliminated. 



8* Firing and damage notes; 



A. 



B. 



C. 



D. 



Phaser fire diminishes with increased distance be- 
tween combatants. 

If a Klingon zaps you hard enough {relative toyour 
shield strength) he will generally cause damage to 



some part of your ship with an appropriate 



Dam- 



age Control" report resulting. 
If you don't zap a Klingon hard enough (relative to 
his shield strength) you won't damage him at all 
Your sensors will tell the story. 
Damage control will let you know when out-of- 
commission devices have been completely re- 
paired. 



i Designates trademark of Paramount Pictures Corpora 
tion. Used by permission of Paramount Pictures Corpc 
ration* 
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Program Listing - Instructions 



20 

21 

22 

23 

30 

31 

3± 

35 

36 

40 

44 
45 
46 
50 
90 
123 
110 
120 
138 
7" 
146 
)52 
160 
170 
D" 
180 
I9S 
273 
£&0 
_n 



RBI 

FOR I B 1 TO 

PRINT TAB( 

PRINT 

PRINT 

PHIHT 

PRIWT 

PRINT 

PRINT 

rem i= 

INPUT "DO 

PRINT 

PRINT "TUHH THE TTY 

IF INPC t >= 13 THEN 46 

POKE 122?/2iP0KE 

PRINT" 



STARTREK" MAR 



INSTRUCTIONS FOR "SUPER STARTREK~ hhh S, 1976 
TABC|0>;"* * 

35c »*£ ,. super sta* tkbc . . J 

7ABU0)/""* * 

TSfiJlSlV"**^^ 

l TO 8tPRlWT:NDCT 1 -■-.■«- 

NEED INSTRUCTIONS CY/WMC 



YOU 



;$|IF KS*"N" THEN BB« 



ON-LINE AND HIT AMY KEY EXCEPT RETURN" 



1237-3J NULL 
INSTRUCTIONS FOR 



I 

SUPER STAR TRB* 



PRINT 
PR1 N T" 1 * 
PRIWT" 
PR[NT"2- 

PRINT" 
PR1MT"3* 
PRINT" 
PRINT" 



WHEW YOU SEE SCOTLAND ?\ PRINTED. ENTER WE 
MMHANM CNAV* SRS/LRS* RKA, TOR ; HJ"**£™ 
IF YOU SHOULD TYPE IN AN 1LLE3AL COMMAND, 



OF THE LEGAL" 
OR XXX>*" 
YOU'LL GET A SH OR 



LIST OF THE LEGAL COMMANDS PRINTED OUT- 
SOME COMMANDS REQUIRE YOU TO ENTER DATA < FOR 
-WAV COMHAMD COMES BACK UITH 'COURSE <\-9> 
1YPE IN ILLEGAL DATA (LIKE NEGATIVE 



EX AM PL &/ 
?*•> I 
NUMBERS) # THAT 



THE" 
F YOU" 
CWMfttf 



PRINT" 

PRINT 

PRINT" 

PRJMT"AND EACH 



WILL BE ABORTED* 



940 

9 SO 

960 

970 

93 

990 

LL" 

1000 

1010 

1020 

1030 

1040 

1052 

SE" 

1060 

1270 

1080 

1090 

1100 

11 10 

1120 

1130 

1 140 

1150 

1990 

2000 

2010 

2020 

2030 

2040 



PRINT" DAMAGED- 

SHOVES COMPUTER MEMORY OF 



SIX OPTIONS* 



* ■* 



PRINT" 
PRINT" 



WLS OPTION 



THE RESULTS OF A 



PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 

PRINT" 
PRINT" 
PRINT" 
PRIWT" 

PRINT" 

PRINT" 

PRIWT" 

PRINT" 

PRINT" 

PRINT" 

POKE 1229 



RANGE SENSOR SCANS" 



(ER OF KLINGDN5 
I1J THE GAME*" 
DATA" 
AMD DISTANCE 



PREVIOUS SHORT /WD LONG 
OPTION 1 ■ STATUS REPORT" 

THIS OPTICW SHOTS THE NUM 

AND STARBASES REMAINING 
OPT! OK 2 - PHOTON TORPEDO 

tfHICH GIVES DIRECTIONS 

TO ALL KLINGOWS IN YOUR QUADRANT" 
ftPTIOH 3 - STARBASE WAV DATA" 

THIS OPTION GIVES DIRECTION AND 
STARBASE WITHIN YOUR OWlJMNT" 
OPTlS 4 = DI RECTI ON /DI STANCE CALCULATOR 
THIS OPTION ALLO'JS YOU TO 
DIHECTI ON/DISTANCE Ctf.CW.AWWS 
OPTION 5 - GALACTIC /REGION *•««/ HAP - TyT ™ 
THIS OPTION PRINTS THE NArtES OF TOE SIXTEEN 
GALACTIC REGIONS REFERRED TO IK THE GAME- 
B 8 -P.OlCt 1237/ ItNULL 



STARDATE5/ 



FEOH TOE ENTERPR1 



DISTANCE TO ANY 



ENTER COORDINATES FOR' 



\\K 



I1AJ OR 



PRINT;PRINT:prikt 

print "turn cassette player 

IF INPO>=l3 THEN 2020 

PRINT 

PRINT "TURN CAS5ETTE PLAY 

PRINT "TYPE 'RUM* UHEM 



ou 



AND HIT ANY KEf EXCEPT RETURN" 



OFF AND " 
COMPUTER PRINTS 



OM' 



THE GALAXY IS DIVIDED INTO AN Q 
OUADRANT IS FURTHER DIVIDED 



290 

300 

310 

320 

330 

340 

360 

370 

IN" 

380 

365 

390 

423 

410 

420 

430 

440 

450 

460 

47 

4BZ* 

49C 

500 

S13 

320 

530 

540 

550 

555 

560 

570 

532 

590 
ii 

600 
605 
610 
620 
640 
65 £ 
660 
670 



PRIWT 
PRINT" 



X B QUADRttNT GRID*" 

INTO AN 6 X 6 SECTOR GRID 



POINT SOMEWHERE IN THE' 



YOU UILL BE ASSIGNED A STARTING . ---■■-„ ^ c wrWTW 

PRINT"PLANETS*" 

PRINT 

PRINT" YOU HAVE THE FOLLOWING 

'OF THE STARSHIP ENTERPRISE! 1 



Program Listing - The Game 



COWANDS AVAILABLE TO YOU AS CARTA 



PRINT' 

PRIWT 

PR1HT"\NAV\ COMMAND = UARP 

COURSE IS IN A CIRCULAR NUMERICAL 
VECTOR ARRANGEMENT AS SHOWN 
INTEGER AND REAL VALUES 
USED- (THUS COURSE 1*5 
tfAY BETWEEN 1 AND 2 



PRINT- 
PRINT" 
PRINT" 
PRItiT" 
PRINT" 
PRINT" 
PRI N T" 
PRINT" 
PRINT" 
PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

PRINT"\SRS\ 

PRINT" 

PRINT 

PRI N T" 

PRIWT" 

PRI NT" 

PRINT" 

PRINT" , 

PRIWT 

PRINT" 

PRINT ' 

PRINT"\LRSS 

PRINT" 

PRINT" 

PRINT" 



ENGINE CONTROL — M 



HAY BE 
IS HALF- 



VALUES 
ITSELF 



MAY APPROACH 9-0i 
IS ECUIVALEMT TO 



WHICH 
NO" 



5 «-#■- — 

. It 



COURSE" 



OWE WARP FACTOR IS THE 
ONE aUADTANT- THEREFORE* 
FRCW QUADRANT 6*5 TO 5/5/ 
USE COURSE 3/ WARP FACTOR 



SIZE OF 



TO GET" 
YOU WOULD" 
I*" 



COMMAND = SHORT 
SHOWS YOU A SCAN 



RANGE SBJSOR SCAN" 

OF YOUR PRESENT QUADRANT* 



SYMBCLOGY ON YOUR SENSOR 
<*> = YOUR STARSHIP"* 
+K* » KL1NG0N BATTLE CRUISER" 
>|< = FEDERATION STARBA5E 

¥ = STAR" 



SCREEN IS AS FOLLOWS 
5 POSITION" 



* « 



C REFUEL /REPAIR/RE-ARH HERE I J 



C0NDEH5ED 'STATUS REPORT' UILL ALSO BE PRESENTED. 



5HOTI5 

OF TJIE ENTERPRISE 

TOE SCAN IS CODED 



SI DE" 



COMMAND = LONG RANGE SENSOR SCAN" 

CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH 

CWHlCH IS IN THE HI DOLE OF THE SCAN> 
IN THE FORM \***\* WERE Til UNITS DIG 



: t 



40 
50 
60 

70 
53 
90 

102 

110 

120 

130 

140 

150 

160 
170 

i&e 

190 

200 

205 

210 

215 

220 

221 

222 

223 

224 

225 

226 

227 

260 

270 

330 

370 

440 

470 

47 5 

430 

49 

53 C 

54G 



RBI 
REM 
REM 

REM 
RE4 
RBI 
REM 
REM 
PEI1 

ns< 

REM 
REN 

RBI 

REM 
REM 
REM 
REH 
REM 
REM 

RBI 
RBI 



SUPER 



***** 

* + ** 
*** 
*** 
*** 
*** 
#** 

**Jl 

at** 
##* 
ft** 
*•¥ 
*<* 
**# 



STAHTP-EK - :1AY 16/1*73 - REQUIRES 24K H EMORY 

**** STAR TTD< **** **** 

SIMULATION OF A MISSION OF THE STARSHIP ENTERFRI SEi 

AS SEEM OH WE 5TAR TREK TV SHOW. „_„™ 

ORIGIONAL PROGRAM BY MIKE MAY FIELD* MODIFIED VERSION 
PUBLISHED IN DEC'S "1G1 BASIC GAMES"/ BY DAVE AKL* 
MODIFICATIONS TO THE LATTER (PLUS DEBUGGING) BY BOB 
LEEDOli - APRIL & DECEMBER 1374/ 
5JITH A LITTLE HELP FRW1 HIS FRIENDS • • • 
COMMENTS/ EPITHETS* AMP SUGGESTIONS SOLICITED ~ 

SBiC TO* R- C- LEEDttl 

UE3TIWGH0US8 DEFENSE 
DOX 746# M*S* 338 
BALTIMORE* MD 21203 



L ELECTRONICS SYSTEMS CNTE* 



CONVERTED TO MICROSOFT 8 SC BASIC 3/16/78 BY JttlM BORDERS 
LIMEMIHBERS FIAOM VERSE W STREKT OF »^» 2/75 PRESERVED AS 
MUCH AS POSSIBLE WILE USING MULTIPLE StATEHENTS ™" M * 
SOME LINES AHELmGEF. THAW 72 CHARACTERS* WIS JAS DOHE 
Of USING "?" INSTEAD OF "PRINT" WHIM B1TERING LI^LS 



tPRlHTl PRINT: PRINT: PPJ NTs PRINT* PRIWT 

„„ t / /" 

^--*» ' — / /-->" 

• ^.-.... — — -•"! PRINT 



10> 
l« 



6SS 

690 

700 

705 

706 

710 

720 

730 

740 

7S0 

760 

770 

780 

79 
■i 

so; 
8ii 



IS THE NUMBER OF STARS* THE TBJS DIGIT IS 
STARBASES* AND THE HUNDRESDS DIGIT IS THE 
KLlNGOMS** 1 



TliE NIWBER 
NUMBER OF" 



E^^IFLE - 207 « 



2 iCLINGONS* NO STARBASES* ^ 7 STARS- 



PRIWT" 

PRINT" 

PRINT" 

PRINT 

PRINT" 

PRIWT 

PPINT"\PHA\ COMMAND" PHASER CONTROL-' 

PPINT" ALLOWS YOU TO DESTROY THE KLINGOI BATTLE CRUISERS BY 

PRINT" ZAPPING TOQ1 WW SUITABLY LARGE UNITS OF EflERGY TD 

PRIWT" DEPLETE THEIR SHIELD POWER- < R EMBER* KLINGOWS HAVE' 

PRINT" PHASERS TOOl*" 

PRI NT 

PR1NT"\T0R\ COMMAND = PHOTON TORPEDO 



OF" 



PRINT" 

PRINT" 
PRINT" 



TQ3PED0 COURSE IS THE 



CONTROL" 
SAME AS USED 



IN WARP ENGINE COWTFO- 



I F YOU 
CANNOT 



DESTROYED AWD 1 



HIT THE KLINGON VESSEL/ HE 15 

FIRE BACK AT YO'b- IF YOU MISS* YOU ARE SUBJECT 



TO 



820 PRINT" 



HIS PHASER FIRE- IN EITHER CASE* 



YOU ARE ALSO SUBJECT TO 



025 PRINT" 
8 30 PRINT 
835 PRINT" 
640 PRIWT" 
050 PRINT 
860 PRINT"\SHE\ 
570 PRINT" 
080 PRINT" 



rriE PHASER 



FIRE OF ALL OTOER KLIWGOWS IN WE QUADRANT. 1 



THE 
COMPUTE 



LIBRARY- COMPUTER <\CCMV COJtftAWD) HAS AN OPTION 
TORPEDO TRAJECTORY FOR YOU < OPTI ON 2> " 



TO 



COMMAND = SHIELD CONTROL" 
DEFINES THE NWBER OF ENERGY UNITS TO BE ASSIGNED 
EtJERGY IS TAKEN FROM TOTAL SHIP'S ENERGY 



TC 



SHIELDS^ 



THE" 
NOTE 



690 PRI NT" 

GY" 

900 

910 

920 

VE" 

930 PRINT" 



TOAT THE STATUS DISPLAY 



TOTAL ENERGY INCLUDES SHIELD ENER 



PRINT"\DAM\ COMMAND" DAIWAGE CONTROL REPORT" 
PRINT" GIVES THE STATE OF REPAIR OF ALL DEVICES- 



WHERE A HEGATI 



STATE 



OF REPAIR' SHOWS THAT THE DEVICE IS TEMPORARILY" 



678 
710 
&10 
815 
&2tf 
852 
660 
870 
930 
1040 

1 too 

1150 

1160 

1200 

1230 

1240 

1SS3 

126Z 

$ 

1270 

P" 

12B3 

1300 

1310 

1320 

1390 

1430 

1460 

1470 

1490 

15O0 

1540 

1560 

1580 

159.8 



PRINT: PRINT: PRItfTi PRINT: PRI NT 

PRINT" 

PRINT" *" 

PRINT" 

PRINT" 

PrJJt" W* USS ENTERPRISE — BCC-l7Sl 

PRI NTl PRI NT: PRI NT: PRI NT: PRI NT 
CLEAR 630 

DIM <K0/C>/C<9*2>*t;<3*3>/«C3)/Z<6*G*/DCG> 
T=IWTCRNDCl>*20+20)*100:T0=Ti79=2S+INTlRNDC I** 
P=l8=P0-P:S9=200:S=O<E9^2:K9=OtXS=:"":X05=" Ii 
DBF FNDCI»*SaR<CK<Ijl>-SI>i2*<XtI^£>-S2M2> 
DEF FNRCR>*iWT(MiD(R>*7*9B*I-tel> 
REM INITIALISE EWTERPP-IEE'S POSITIW 
01=RJRC 1>:G2=FJJR< I J :Sl=rNR< 1 > i S2» PMRC P 
FORI=lTO9:Ctt*l)»0:C<I/2>-0:NKTI 

C<3*l)--l:C<2*n— UCt 4/11 .-1:C< 4,2) = - liCC 5/2) = - 1*C< 6,2 J-- 
C<i*2) = ltC<2/2)=UC<6/l)=UC<7,l>-l--Ct8*l)^l:Ct0*2>«L:C<9/ 

fori»it<kjd<i> = c:ne>:ti 

AlS«"rJAVSRSLRSPHAT0P5HEDAMCa«XX" 

REM SETUP WAT BCHI STS IN GALAXY - * - 

RB'. K3= * KLINGOCvS D3- * STARBASES S3" 9 STARS 

FORI- iTO3iFORJ=lTO8:K3=3:£U/J>*0:RI=n*Dt I* 

lFnL>.9BTOENK3=3:K9-K9*3iGOTO9S0 

ina><95THE£W3=2iK9=K9^2iGOTO980 

I FRl>-80THE^K3=liK9-K9 + l 

E3-0:I FRMD<1>>-96THENB3= JSB9-B9+L 
G<l/j)-K3*188+B3«lB+FNn<l)tNEXTJt*lB£TIitPK9>T9TOEWT9 

IFE9<>OTKBJ1230 
IFGCQ1/O2><200THENG(Gl*C2^GCCl*Q2*^l2OtK9 = K9*l 

B9=liGCCl*C2) = 3(Ql/C2>*10:01=rwn< l>:02=FNnci) 

K7=K9iI FB9<>1THEIJKS-"S":^0S=" ARE^* 1 

PR1NT"Y0UR ORDERS ARE AS FOLLOWS 



D03tf:E=3OO0=E2=E 



1 
2> 



K9+L 



PRINT" 
PRXUT" 



DESTROY TOE";K9;"KLINGa^ 
THE GALAXY BEFORE THEY CAtf 

on stardate";to+T9;" this 



'JARSKIPS WHICH HAVE INVADED" 
ATTACK FEDERATION HEADQUARTERS" 
GIVES Y0U M JT9J - "DAYS- 7HER£";X£ 



PRINT" "/B9; t 'STARBASE";XS;" IN THE GALAXY FOR RESUPPLYING YOUR SHI 

PRI«T1PRINT"HLT ANY KEY EXCEPT RETURN WHEN READY TO ACCEPT COMMAND* 
l«RNDd)tlF IMP* l>*!3 THEM 1300 

RB1 HERE ANY TIME NEV CUADRANT ENTERED 
Z4=QltZ5«Q2:K3=e:B3=CjS3=O:C5=0:D4=.5*nND<l>:EtGl*Cg)»G<Gl/O£) 

I F01< ]OnQl>8ORQ2<!O7.C2>STMSN1600 

GOSUB 903S:PRINT:IF T0<>T THEK 1490 

PRIWT"YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED** 

PR1NT"IN THE GALACTIC QUADRANT/ " "J G2SJ "* . "1 GOTO 1500 

PRINT"NOy EfJTERING "JG25J" OUADRANT * - -" 
PRINTiK3=IN7Ca(QI*Q2>*-01><B3 H INT<G(ei*O2)*-l) w 10*lt3 

S3-GCOl*G2)"130*K3-l0*B3:lFlf3=0THEHlS90 

PRINT"COMBAT AREA CONDITION RED"i I FS>2O0THEN1 59fl 

PRINT" SHIELDS DAJJGER0U5LY LOW*' 

FOni-lT'O3:KCl*l>-0:KCI*2>«0:NEXTI 



159 



FORI a 1T03:K(I *3> = 0:NEXTI : Q5=Zi+Z$+E5+ZS+ZS+Z5+ZS+LEFTSC Z S* 17 > 
REM POSITION ENTERPRISE 1W QUADRANT* THEN PLACE "K3" KLIWGCWS> 
REM 

AS* 1 



POSITION ENTERPRISE IW QUADRANT* THEN PLACE "K3" 
"B3" STARBASES* & "S3" STARS ELSEWHERE. 
•<*>"i21»Slt22-S2:GOSUB8670iIFX3<lTHEN1820 



i590:AS="+K*"; 
RltK(I*2) = R2: 



Z1=R1:Z2=R2 
KU*3)«S9*<0.5+RND< l)):NEXTi 



3240 
2250 
2260 
3290 

S3 m 
2310 
2330 
2353 
2368 

238 

239 
2420 
2430 
2/170 
2490 
2500 
2510 
2530 
25S0 
2560 
2570 
2580 
2590 
2610 
2660 

27 00 
£7 70 
2790 

28 00 
2313 
2340 
2650 
2910 
2930 
£9 60 
3000 
3030 
3660 
3070 
3110 
31 AZ 
3170 
3240 
3320 
3350 
336C 
3370 
3430 
3450 
3470 

3490 
3506 
3SS0 
3593 
3620 
3670 
3710 
3750 
3790 

38 10 
3820 
3830 
3340 
38 50 

38 6G 
3870 
3900 
3910 

39 33 
3940 
3980 
3990 
4000 
4030 
4040 
4060 
4120 
4180 
4210 
4230 
4250 
4260 
4265 
4270 
4280 
4330 
4350 
4360 
4370 
4400 
4410 
4450 



F0RI=lTOK3:G0SUH 
GOSUB8670tKU<, 1>< 
IFB3MTHEN1910 

GOSUB3 590tAS="* !<"tZI*RltB4"Rl tZ2* R2: B5- R2: G0SUB8 670 
FORI= lTOS3iQOSirB8590iA3-" + »;£1»R1 :Z&»R2:GOSUB8670:NEXT1 
QOSUB6430 

ITS+E>1GTHEWIF£>!0ORD(7) = 07HEN2060 

PRINT: PHI HT"** FATAL ERROR ** YOU'VE JUST STRANDED YOUR SHIP IW 
PRINT"SPACE"iPRlNT"YOU HAVE INSUFFICIENT MANEUVERING ENERGY* "J 
PRIWT" AND SHIELD CONTROL": PR1 NT"I S PRESENTLY INCAPABLE OF CROSS"J 
PRIHT"-GIRCUITIWG TO EWG1NE ROCd ! I ": G0T06223 
IflPUT"COMMAMD M JAS 

FORI" IT09:I FLEFTSCAS* 3)<>KI DSC Al S* 3*1 -2* 3) THEW2162 
OWIQOTO2300* 198 0*4000*4260*4700* 5530* 5690*7 290*6270 
PRIWT'ENTER OWE OF THE FOLLOyiNG; " 

CTO SET COURSE)* 1 

(FOR SHORT RANGE SENSOR SCAN)" 

CFOR LOTG RANGE 5ENS0R SCAN)" 

(TO FIRE PHASERS)" 

(TO FIRE PHOTON TORPEDOES)" 

(TO RAISE OR LOVER SHIELDS)" 

(FOR DAMAGE CONTROL REPORTS) 11 

CTO CALL OH LIBRARY-COMPUTER)" 

CTO RESIGN YOUR COMMAND) ": PRIWT:G0T01993 
BEGINS HERE 
iCl:lFCl«9THEIiCl=l 



WEXTI: 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PPIWT" 
PRIWT" 
PRIWT" 
PRIWT" 



NAV 

SR5 
LBS 
PHA 
TOR 
SHE 
DAM 
COM 

REM COURSE CONTROL 

iwpur'counsE C0-9)' 



'INCORRECT COURSE DATA* SIR! 



t :30T0199j: 



•> M 1 tIMPUTOIUFDC l)<0ANDyj>.£THEN2470 



THE ENGINES WON'T TAKE"* 



SPEED 3 VARP a.2":GOTO!990 



AVAILABLE" 

;/Arp";vi>*"i 



IFC1>=1AWDCI<9THEN2350 
PRINT" LT* SULU REPORTS* 

xs="S"si fdc ixsTHEHxss'-g^ 1 

PRiNT"tfARP FACTOR <0-";x$*' 

I Ftf 1>0ANDW1<»8THEN249 

IFVt=0THEN]990 

PRINT" CHIEF ENGINEER SCOTT REPORTS 

PRINT" VARP "J VI J" ! ' ,r iG0T0L993 

PRlNT"WARP ENGINES ARE DAMAGED. MAXIU4 

N-iNT<tfl*8+-5) :IFE-W>=0THEN2590 

PRINT"EWGIMEERING REPORTS "INSUFFICIENT ENERGY 

PRINT" FOR MANEUVERING AT 

I F£<N-EORD<7)*0THF-N199fl 

PlUNT"DEfLECTOR CONTROL ROCtt ACKWOVLEGES"; S; "l*M TS OF ENERGY" 
PRINT" PRESENTLY DEPLOYED TO SHIELDS." 

GOTO1990 

REM KLIMG0N5 MOVE/FIRE CW MOVING STARSHIP • * • 

FOPI = lTOK3iIFK(I*3>"0THEW2700 

A$^" "»Zt=KCI* l):Z2*KU*2>:GOSUB8670:GOSUBS590 

KCl* l) = Zl*KU*2)=Z2tAS="+K+":GaSUB8670 

HEXTI:GOSUS6000jDl=0:D6=VliIF f Jl« 1THEND6- 3 

FORI *1TC6;1FDC1>>=0THEW 2880 

DCI)-DCI)+D6:IFD(I)>-.1ANDD<I)<0THENDCI) = -* L;GOTO£880 

IFDCIXSTHEN2883 

I FD!<>1THENDI= 1 j PRI NT"DAUAGE CCWTROL REPORT: "J 

PRlNTTAS<S);:Rl = IiGOSUBS790tPFINTG25;" REPAIR COMPLETED-" 

WKTI :I FRWDC 1)>.27HEN3070 

R1=FNRC |) HFRNDC (>>■ . 6THEN3000 

DCR1) = DCR1)-(RNDC 1)*S+IS :PRIWT"DAMAGE CONTROL REPORT* "/ 

GOSUB8790:PRJNTG2S;" DArtAGED":FRINT:GOTO3070 

DCR1)«DCR1)+RNDC 1)*3* 1 1 PRI NT'DAMAOE CONTROL REPORT I "J 

G0SUBQ79etPRlNTG23;" STATE OF REPAIR IMPROVED": PRINT 

REtf BEGIN MOVING STARSHIP 

AS=" "»Z1=INTCS1) :Z2=IWTCS2> :GOSUB$670 

::i=ccci> n+CGeem* i*-c<Cl* i)>*<ci-ihtccd> ;x-suy-se 

X2«C(CL*2)+<CCCl + l*S)-G<Gl*2J)*CCl-lNTCCI)) r 04=01 :C5=Q2 

F0RI-lT0WsSl-Sl+Xl*S2=S2*X2*IFSl<l0R5l»»90RS2< 1 ORS2>=9THEN3503 

SB=IWT(Sl>*24+lNTCS2>*3-2*UFMIDS<CS*S8*2) = " "THEN 33 60 

Sl = IWTCSl-XDiS2-INT(S2-X2)jPRINT"WARP ENGINES SHUT DOWN AT "; 

PRIWT"SECT0R";SJJ">"JS2;"DUE TO BAD ttAVAGATI OW":GOTO3370 

WEJ;TI;SI=IUTCSl)iS2=tNT(S2) 

A$»"<*>":Zl=lNTCSPi£2=INTC52> :G0SUB367C:G0SUB39 ) 0: TO- I 

IFV1< miENTO"*l*INTC 10*tfl) 

T=T+T8 tl FT>T0+T9TOEfJ6220 

RBI SEE IF DOCKED* THEN GET C OHM AMD 

GOTO1980 

REM EXCEEDED QUADRANT LIMITS 

X=8*Ql«-X*N*Xl:Y=8*G2*Yi-W*X2:Gl = INT<X/8) : C2=INTCY/8) : Sl=INTCX-Cl+8) 

S2=lHTCY-CS*8>iIFSl-STHEJQ!=Ql-HSl=B 

I FS2=©THENC&=Q2- it S2-S 

XS»0:I FQK !THEttX5= it Ql- It £1-1 

1FGI>B7HE«X5= 1:01=8: S 1=8 

I FS2* 1 THENX5* It 02= 1) S2= 1 

I F02>8THENX5= It 02=8: S2=8 

IR;5=0THEN3&60 

PRlNT"LT* UHURA REPORTS MESSAGE FROM STARFLEET COMHAHDs" 

PRINT" 'PERMISSION TO ATTEMPT CROSSING OF GALACTIC PERIMETER" 

PRINT" IS HEREBY *DENIED»* SHUT DOW YOUR ENGINES*'" 

PRINT"CHIEF ENGINEER SCOTT REPORTS 'WARP ENGINES SHUT DOWN" 

PRINT" AT SECT0R";51J"/";S2i"0F QUADRANT"; Q.I.I"j "JG2; "*' " 

IFT>T0+T9THEW6220 

ira*QI+G2=8*G4+O5THEN3370 

T-T*l:GOSUB3910tGOTOl320 

REM MANEUVER ENERGY S/R *+ 

E=£-N-10*IFE>«0THEWRETURN 

PRINT"SHIELD COWTROL SUPPLIES ENERGY TO COMPLETE THE MANEUVER- 

S-S+Ei E*0s I FS*=07H ENS* 

RETURW 

REM LONG RAWGE SENSOR SCAN CODE 

IFD(3><0THEHPRIWT I, LOWG RANGE SEWSORS ARE INOPERABLE": GOTO1990 



. •* 



:l 



i*i* 



G£ 



PR1WT"L0NG RANGE SCATl FOR QUADRANT* 

01 S»"--- -"------"iPRlMTOlS 

F0RI = QI-1T0Q3*1:CK D = - 1 1.MC 2)»-2:NC 3>=-3t F0RJ=G2- 1T0S2*I 
IFI>CANDK9AWDiJ>0AtJDJ<9THENN(J*G2+2)-G<I^J):2(WJ)=GCI>J) 
NEXTJ: F0RL=1T03IPR1NT": "; :I TOCLX0THEWPRIN7"*** "UGOTO4230 
PRIWTRIGKTSCSTR$<MCL)*1300)/3)I" "; 
KEXTl*tPRINT M :"tPRINT01StHEXTI:G0T01993 
REM PHASER CONTROL CODE BEGINS HERE 
IFDC4)<aTHE*JPRINT"PHASERS I NOPERATI VE": GOTO1990 

IFK3>0THEN4330 

PRir4T"SCIEIJCE OFFICER SPCCK REPORTS 'SENSORS SHOU WO ENEMY SHIPS' 

PPI NT » IN TO1S QUADRAWT'"tGOTO1990 

IFDC8)^0THENPRlNT"COt1PUTER FAILURE HAMPERS ACCURACY" 

PRINT"PHASERS LOCKED OCJ TARGET; "J 

PRINT"EWERGY AVAILABLE ="JEJ"UWITS" 

INPUT"NUiBER OF LKI TS TO FIRE";Xt I FX<=01HEN 1990 

1 FE-X<07HEN4360 

E=E-XilFD<7)<0THENX=X*RNDC I) 

HI=INTCX/K3);FORt=lTa3:IFK(I*3X=0THm4670 



^1480 

4500 

70 

4530 

4550 

O 

4S60 

4580 

4^50 

4670 

^690 

4700 

4730 

4760 

4780 

4790 

48 £0 

'6 50 

48 60 

49 13 

4920 

«60 

5000 

5050 

5063 

51 10 

5150 

5180 

S198 

5210 

5260 

990 

5230 

5330 

5360 

5370 

5380 

5390 

5420 

5410 

5430 

5476 

5490 

5520 

553C 

5560 

SS80 

5593 

5623 
< •» 

5610 
5630 
5660 
56S0 
5690 
5700 
5720 

57 6C 
5730 
5310 
5820 
5C4G 

58 60 
5370 
£892 
5910 

59 20 
59 53 
5980 
599 C 
606 S 
6012 
6040 
6060 
608 
6090 
61 OZ 
6120 
6140 
6170 
6200 
6210 
6220 
6240 
6253 
6272 
6230 
6298 
631 3 
6328 
6330 
6360 
6370 
633 
6400 
6420 
6430 
6450 
6490 
6540 
658G 
6628 
6650 
6660 
6720 

67 30 
6770 
6S20 

68 30 

68 50 

69 00 
6960 
7020 
7070 
7 120 
7180 
7240 
7260 
7280 



H-INTC<Hl/FNDC0))*(RNDU) + 2)) iIf>H». JS*KCI, 

PRINT"5ENS0RS SHOW WO DAMAGE TO ENEMY AT 



3)lHEW453e 
'JKCI* L) J"* ' 



iK(I^2> tGQTQ/4<t 



KCIj3)sKCI*3)-H1?G]NTH;' v UN1T HIT ON KLINGON AT SECTOR'" 
PRINTK<I#2) tIFKU*3>< = 07HENPRINT"*** KLJMGOH DESTROYED 



K<I* l>#*V* r # 
*+*"»GOTOASS 



PRINT" CSENSORS SH W'JKl U 3) ; "UNI TS REMAINING) "tGOTO4670 

K35K3-L:K9=K9-l:ZI = K(Ii I)tZ2=K<I> 2> :AS=" ":GOSUB8670 

K<ls 3) = 0tG<Ql'O2) = G<Ql^Q2)*100TZCQl^ Q2)*GtCl'Q2) : I FK9< = 0TOEM6370 

WCCTIiGOSUB6000tGOTO1990 

REM PHOTON TORPEDO CODE BEGINS HERE 

IFP< = 0THEWPRINT"ALL PHOTCW TORPEDOES EKPENDED"*GOTO 1990 

1 FDC 5)<0THEWPPJNT"PHOTON TUBES ARE NOT OPERATI ONAL"t GOTOI990 

INPUT"mOTON TORPEDO COURSE < 1-9) ";CI 1 1 FC1=9THEMC1* I 

IFCI>=IAHDCI<9THEK48 50 

PRINT"EWSIGN CHEKOV REPORTS* 'INCORRECT COURSE DATA* SIR*'" 

GOTO1990 

Xl=CCCl# 1)*CCCC1*1* D-CCC1* |))*<CI-INTCC1>)JE>*E-2:P*P-1 

X2=CCCl*2)+CCCCl + l*2)-CCCl*2))*CCl-INT<Cl)):X»SltY-S2 

PRIWT"TORPEDO TRACK I " 

X»X^1:Y-Y^X2;X3=IWTCX**5) :Y3-INTCY+ *5) 

IFX3^ 10RX3>80RY3-<10RY3>8 THEN 5490 

PRINT" "JXaj'V'IYSjASa 11 "*Zl=X*Z2=YiGOSUB88 30 

I FI3< >07HE;J4920 

AS-"*K+":Zl-X:Z2-YiGO5UB8330tIFZ>3 i R-lENS210 

PPIMT"*** KLIWGON DESTROYED #**"t!C3«X3- I : K9«K9" 1 1 1 FK9<=0THEN637B 

F0RI=lT03*ire3=KCI/ 1 ) AWDY3=KC 1/ 2) THEN5190 

NE?:TI:I = 3 

KCI*3>-0:GDTO5430 

AS=" * n 3Z)sXtZ2sYtGQSUB86 30tl ¥Z3m STHEW5280 

priwt"star at";x3j"*"jy3j "adsorbed torpedo ewergy .":3osuq6020tgotol 

A3«">!<":E1 = X:22=Y!GOSUB8Q30*IF23=0THE:M760 
print"*** 5tarbase destroyed ***"; b3=b3- i : b9=b9- i 
i fb9 >3 0p-k9 > t- t0- x? th en 54s0 
print"that does it* captain! 1 you are 
pr1nt"and se:vte;jced to 99 5tardates at 

GOTO 6270 

PR1NT"STARFLEET COCIHAND REVI ElflNG YOUR RECORD TO CONSIDER" 

PRlNT"COUPT UART1 AL!"t D0=0 

£1-XiZ2-YiAS=" "tGOSUE8670 

G<O1*C2)=K3*1£3+S3«10^S3:2CQ1>G2) = G<CI/G2) ;GOSUB6000:GOTO1990 

PRINT" TORPEDO HI SSED": GOSUB6S00:GOTOI990 

RB-f SHIELD CONTROL 

1FDC7X01HENPR£NT 4 '5HIELD CONTROL I WOPERABLE 1 *: GOTO1990 

PRINT"ENER3Y AVAILABLE = "J E*SJ 1 1 MPUT M N»IBER OF UNI T5 TO SHIELDS 

I FX<0ORS=XTHEtJPRI«T"<SHI ELDS lK^CHAWGED>"tGOTOI990 

1 FX<-E+STHEH5630 

PRINT"SHIELD CONTROL REPORTS 'THIS IS WOT Tit £ FEDERATION 



HEREBY RELIEVED OF GCMHAND' 
HARD LABOR ON CYGNUS 1211" 



TREASURY* 



G0TO199I 



PRINT"<SHi ELDS UNCHANG ED>"tG0T0199 2 
Es=E+S-:t:S=X(PniNT"DEFLECTOH COWTROL ROOlt REPORT* " 
PRIWT" 'SHIELDS NO'J AT"; I WTC S> ; "UWI TS PER YOUR COMMAND. 
REM DAMAGE CONTROL 
1 FCC 6)»0THEN59 10 

PRtNT lv DA>]AGE CONTROL REPORT WOT AVAILABLE": 1 FDB-'BIH EN 1990 
D3=0:FORI=lTO8rIFD<I)<0THEMD33D3+. I 
WE^TI ilFD3=0TOEWl990 
PnINT:D3=03*D4:IFD3>=L1HaJD3=*9 

PRlNT"TECHWICIAti£ STANDING BY TO EFFECT REPAIRS TO YOUR SHI?;" 
PRINT"ESTIMATED TIKE TO r!EPAl R: "; - 01< 1NTC 1 03*03) t "STARDATES" 
INPUT"V1LL YOU AUTHORIZE THE REPAIR ORDER <Y/N)";AS 
IFASo'^'THE^ 199« 
FORI= lTO8tIFDCIX0TilBJD(I> = 
N£XTI:T=T+D3».I 

Pill NT* PRINT" DEVICE STATE OF REPAI R": FORE? I- 1 T08 

GO5UB8 79g:PRlWTGfiS;LEFTt<S^25-LENCG£S));EWT<DCRL)*100>*-31 
WDCTR1 lPrJNTtlFD0<>flTHEN5720 
GOTO 1990 

REM KLINGOCJS SHMTUH3 
I nC3< = 0THEWRETURN 

IFDG<>0TH£WPRIWT"STARBASE SHIELDS PROTECT THE EWTERPRI SE": RETURN 
Fl«I>3)<»a7HHJ6200 

3) /FWDC l>)*C2+rWDC I) >>x S»S-KsKCI# 33-XCI 
PRIW1HJ"UNIT HIT W ENTERPRISE FRtti SECTOR"/ KCW I) J 
IFS<30THEN6240 

PRIWT" < SHIELDS DOW TO"J S: "UNI T5>": I FH< 20TOEN62S0 

I FRtlDC 1J >.6DRH/S<»-B2THEN6000 

R1 = FNRC 1) iDCR!)-DCRl>-H/S--5*RNDC l)iGOSUE8790 
PR1NT"DAHAGE CONTROL REPORTS '";G2£J" DPilAGED BY THE HIT 1 
HEK-T1: RETURN 
RBI END OF GAME 
PRIWT"IT IS STARDATE"JTiGOTO 6270 

:PRINT"THE EWTERPRt SE ttAS BEE?* DESTROYED. 
'UILL BE CONGUERED"tGOTO 622Z 

THERE WERE";JC9;"KLiNG0N BATTi-E CRUISERS LEFT AT" 

THE EMD OF YOUR MISSION-" 

PRIWT-sX F89=8THEW6360 

THE FEDERATION IS IN HEED OF A NEW STARSHIP COHMAWDER" 

FOR A SIKELAR HI SSI Oil -- IF THERE IS A VOLUNTEER*" 

HVA STEP FORWARD AND D»TEB " AYE' "J AS: I FA$="AYE"THEW 10 



F0RI=lT03iI 
K=IWT<CK<I-* 



3) /< 3*RND<G> J 



WE FEDERATION 



PRIWT! 
PRIWT' 
PRINT' 
PRIWT' 
PRIWT! 
PRIWT* 
PRIWT 1 
INPUT l 'LET 

EWD 

PRINT"CO»GRULATIOU* CAPTAIN! THE LAST KLIWGON BATTLE CRUISER* 

PRINT'MIENACIWG THE FEDERATION HAS BEEN DESTROYED- '*: PRINT 

PRINT"YOUR EFFICIENCY RATING I S H * 102^* CH7/CT-T0) ) ■ 2i GOTO6290 

REX1 SHORT RAWGE SENSOR SCAN A STARTUP SUBROUTINE 

FDnt=SI-lT0Sl*l:F0RJ=£2- 1T0S2*! 

IFIMTCI*.5><10RIMTCI+*SJ>80RINTCJ+.5>< 10R1MT< J*- 5) >8THEIJ6540 

A$=">!<"t 21=1 tZ2=J:G0SUBS833: IF£3= ITTIEW658 

NEXTJ:NEXT1;D0=0:GOTO6650 

D0=ltCSa"DOCXED":E=E0!P=P« 

PR1NT"SHIELDS DROPPED FOR DOCKtWG PURPOSES" 

IF3C3^0THENC£ts ,, *RED*":GOTO6720 

CS="GREEW";IFE<EC**lTCENCi="YELLOir' 

IFDC2)>=0THE«6770 

PRINT;PrJNT"*** SHORT RAWGE SEWSORS ARE OUT ***"! PRINTS RETURN 

01 S= --—--— ™«— ""spRIMTOISl FORI- IT08 

F0RO=CI-l)*24+lTOCI-i>*24*22STEP3: PRIWT" "fMI D*(Q£#*f* 3);*NE:<TJ 
0NIG0T068S3* 6900* 69 60> 70 20^7070*7 120* 7180* 7 240 



S=0tGQTO672fe 



PRIWT" STARDATE 

PRIWT" COMDITIOW 

PRINT" OUADRAWT 

PRINT" SECTOR 

TRIWT" PHOTON TORPEDOES 

PRINT" TOTAL ENERGY 

PRINT" SHIELDS 

PRINT" KLINGOKS RB*1AIWlNG 

NEXTi:PRlNT01$:RETURW 

REM LIBRARY COMPUTER CODE 



7IWTC T*10>*-1:GOTO7260 
"J CSiGOTOTfi^ 
'; Q 1 ; "/ "I Q2! G 0T07 260 
, JSU"*"JS2:GOTO7260 
, JIWTCP);G0T0726« 
';INTCE+S> :GOTO7260 
l ;iWTCS>:GOTO7 260 
'JINTCK9) 
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7890 IFD<8X0THENPRINr'CC«PUTER 01 SABLED"! GOTO1990 A „-„ tQO « 

INPUT-COMPUTER ACTIVE AND AVAITIHG CCWMAND"* As I FA< 0THEN 199? 
PRINT*H8M:ONA+lGOTO75a0* 7900* 60TB*S 500*8 1 50* 7400 

PRINT"FUNCTlONS AVAILABLE FR04 LI BRARY-COMPUTER: 

PRINT" * CUWLLATIVE GALACTIC RECORD" 

PRINT" I - STATUS REPORT" 

PRINT** S = PHOTON TORPEDO DATA" 

PRINT" 3 - STARBASE NAV DATA" 

PRINT" * = pi RECTI OT/DI STANCE CALCULATOR" 

PRINT" S = GALAXY 'REGICW NAME* KAF"i PRINT: GOTO73S0 

REM SETUP TO CHANGE CUM GAL RECORD TO GALAXY MAP _„„„ 

H8*0*a5-ltPRlNT" ™& GALAXY-IGOTO7S50 

REM CUM GALACTIC RECORD „■*,*„**- 

INPUT"DO YOU WANT A HARDC0PY7 IS THE TTY Ctf (Y/H>";AS 
IFAS«'*Y"THEWP0KEI229#2:P0KE1£37>3>NULLI 

PlttHTtPMNT*' "* 

PRIMT"COMPUTER RECORD OF GALAXY FOR QUADRANT"! 01 J **j ; 02 

PRINT J „ ol , 

PRINT" i»9****_* m 
01$=" — *•- ----- --^-- — ™ - *---- 

PRlMTOI*:rOni«ITO6iPWHTIItIFM8»0TKEH774fl 

F0RJ=1T08* PRINT" "I * 1 F£< I ' J*-0THENPB1NT ,, «*"* IGOTO7720 

PRINTRlGHT£CSTn$C2U*J> + l000>*3>; 

WEXTJ:G0T07B5C 

Z4-I:ZS=ltGOSUB9030lJO-INT( 1 5-* 5*LEN<G2$> * * PRINTTABC <J0>*G2*< 

£5-5:G0SUB 903a:J0=IMTC39--S*LENCGS^))lPRINTTAB(J0);G2S; 

PRINT;PRINTOI£tW£XTIiPRIMT:POKEI229*3:POJ(El237W:NULL0iGOTOI99 

REM STATUS REPORT 

PRINT " STATUS REPORTt ":X*= ""i I FK9> 1 THENXS- 5 

PRINT"KLlNGO«";X$J" LEFT* "JK9 

MUST BE CCHPLETED IWJ . 1*INT< C T0+T9-T)* 1 



7320 

7350 

7 360 

7370 

7372 

7374 

737 6 

7378 

7380 

7390 

7400 

7530 

7542 

7542 

7S43 

75^4 

7546 

7550 

7 560 

7570 

7630 

7700 

7720 

7740 

7800 

76 50 

7890 

790© 

79 40 

79 60 



Sample Run - Instructions 

* * 

.# * * SUPER STAR TREK * + 



DO YOU WEED INSTRUCTIONS CY/H>? Y 



TURN THE TTY ON-LINE AND HIT 
INSTRUCTIONS FOR * SUPER 



rtNY KEY EXCEPT RETURN 
STAR TREK' 



1- WHEN YOU SEE \COWHAWD ?V PRINTED* EMTER OWE OF WE LEGAL 

COMMANDS (NAV*5RS*LRS*PHA*T0R*SHE*DAH*CCi1* OR XXX > • 
£* IF YOU SHOULD TYPE IN AH ILLEGAL COMMAND, YOU'LL GET A SHORT 

LIST OF THELEEAL COMMANDS PRINTED OUT* 
3. SOKE COMMANDS REOUI RE YOU TO ENTER DATA (FOR EXAMPLE, THE 
"WAV 1 COMMAND COMES BACK VI TK 'COURSE < 1-9) ?'•> 
TYPE IN ILLEGAL DATA (LIKE NEGATIVE NUMBERS*. 
'JILL BE ABORTED 



THAT COMMAND 



AND 



THE 
EACH 



GALAXY IS DIVIDED INTO AN 5 
i_uADftANT 15 FURTHER DIVIDED 



X S QUADRANT 
INTO AN 3 X I 



GRID/ 
i- SECTOR 



GUI D- 



PRlNT"MISSION 



■ ' * 



S TARDA TES 



79 70 
7960 
XY" 
799 

■ : l;-: 

5080 

0060 

6070 

3080 

009 

5100 

6110 

5120 

G150 

8160 

0170 

8200 

6220 

6350 

6260 

3270 

8230 

a £90 

8310 

6330 

835£ 

8360 

641? 

6420 

8430 

8453 

84 69 

8430 

6500 

3510 

8523 

85SG 

8590 

3600 

6660 

6670 

8675 

3630 

6690 

8700 

6760 

8790 

6792 

8794 

879 6 

8798 

8800 

8302 

8604 

8606 

6620 

8630 

8890 

3900 

9010 

9020 

9030 

9035 

9040 

90S0 

9060 

9070 

9080 

9090 

91*00 

91I0 

9120 

9138 

9140 

9150 

9160 

9170 

9160 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9E60 



X3tt"£ IP xl FB9<2THENX$= ,I "(IFB9<1THEN8010 
PRIWT"7KE FEDERATION IS MAINTAINING"; 



&3; M STAHBASE F 



" IK THE GALA 



ON YOUR ON IN" 

STARBASES LEFTJ*': G OTO5690 

CALCULATOR 



5S< 



';S2 

CI- A 



:GGTC8 4< 



G0T05690 

PWHT"YOUR STUPIDITY HAS LEFT YOU 

PRINT" THE GALAXY -- YOU HAVE NO 

RE'S TORPEDO* BASE NAV* D/D 

IFM3<»0mm4270 

X £«"*': I FH3>1TKEWXS="S" 

PRINT°FnOM ENTERPRISE TO KLIMGOM BATTLE CRUSER"JXS 

H8=0iFORI=lTO3iIFK(I*3)«0THEN8480 

V1=-KCI* psX«Ktl«2> 

CI=Sl(A*52:GOTO6220 

PHI NT"PI RECTI OM/DI STANCE CALCULATOR:" 

PRlNrTOU ARE AT CUADHAtfT "; Ql/ W # n t&& " SECTOR 

PRINT'FLEASE ENTER": I NPUT" INITIAL COORDINATES <X*Y> 

INPUT" FINAL COORDINATES CX*Y>";V1*X 
X*X-A:A=Cl-UUt FXOTHEN8 35& 

IFA<0THEtf8410 

1FX>0THEM8280 

IFA-0THENCl=5lGOTOe293 

Cl= I 

i faes<a)<-ab£c:otkeh833g 

pri«t"di recti on ="j c !■■*<■■< < abs<a>-abs<x> > +aesc a) * /absc a) * 

pmwt"oi recti on »";c1*cabsca) /absoo) :goto3460 

IFA>01>1ENC1 = 3:GOTO8a20 

IFX<>0TKEtJCl = 5»GOTO6290 

Cl«7 

I FABSt A> >«ABStX> THEW8 45D 

PRINT"DI RECTI ON =»;C1^<<<ABS<X>-ABSCA>>+ABSCX))^ABSCX>>:GOTO8^60 

PRIWT"DI RECTI ON = "JC 1+CABStX* /ABS<A>* 

PRINT"DI STANCE = "; SGR<Xt£+At 2> 1 1 FHS= 1 THEW1990 

NEXTIIGOTO1990 

IFB3<>0THENPRlWTVF?lGM ENTERPRISE TO STARBASE: ": VI=84:X=E5tG0TC6 1 20 

PPIMT"MR. SPOCK REPOrTS^ * SENSORS SHOW MO STARBASES IN T*U S"J 

PRINT" QUADRAHT** I ':GOTO1990 

REM FI»C EMPTY PLACE IN QUADRANT C FOR THINGS) 

R1-FNP< I) lRB-FWF< 1>:A$«" "iZ!= Rl tZ2=R2iGOSUB6830: 1 FZ3=0THEW8590 

RETURN 

REM INSERT EH STRING ARRAY FOR QUADRANT 

S3=i:*TCZ2-.5>*3*lNTCZi-*5>*24+l 

IF LB«AS><>3THDJ PHI NT" ERROR": STOP 

I FS6= 1 TH ENQS* AS+RI GH«( Q5# L89 > ; RETUW 

IFS8=I93WEKQ5-L£FTS<GS* 189 3 +A*: RETURN 

0$=LEFT4CG^S6-1)+A$+RIGHTSCCS* J90-S8) (RETURN 

REH PRINTS DEVICE NAME 

ONRl BOT0S792* 6 79 4> 8796* 8798* 8800> 0602* 6804*8306 

G2S^"WARP ENGINES": RETURN 

G2S-"5H0RT RANGE SENSOnS"*RETURN 

G2S«"LCWG RANGE SE3JS0RS": RETURN 

G2£»"PHA$ER CONTROL"»RETURT^ 

G2S=-"PH0T0N TUBES"lRETURN 

62So"DAMAGE CONTROL"! RETURW 

G2*^"SHIELD CONTROL": RETUW 

G2S= "LIBRARY-COMPUTER"! RETURN 

REM STRING COMPARISON IN QUADRAUT ARRAY 

ZL-lNT<Zl + *5>tZ2-INTCZ2*.5>lS8=CZ2-l)*3VtZ3-l>*24^1:' 7 3«0 

I FMl D$< G$* SS# 33 < >AST11EWRETURN 

Z 3-1: RETURN 

REM QUADRANT NAME IN G2£ FRCM Z4*Z5 C*Q!# OS) 

REH CALL WITH G5=l TO GET REGION NAME OMLY 

I FZ5<-4 < mEtJONZ4GOT09 040*9 050/ 9060*9070* 9 080* 909 0*9 100*9 110 

GOTO9120 

GSS»"ANTARE5"iGOTO9Sl0 

G£S="RIGEL":GOTO9 210 

G£S» u PROCYON M tGOTO9210 

G2i="MEGA":GOTO9210 

G2S="CANOPUS"*GOTO9210 

G2$= H ALTAIR**:GOTO9210 

G2S="SAG1TTARIUS":GOTO9210 

G2£= "POLLUX": G0T09 210 

0NZ4G0T09 130*9 140*9 150*9 160 19 0*9 200 

G2S»"SI RI US" i G 0T09 21 

G2St»"DENEB":GOTO92I0 

G£S- H CAPELLA"tGOTO9210 

G2£»"BETa*GEUSE":GOTO9 210 

G£S»i "ALDEBARAW"! GOTO9 210 

G2S="REGU*US":GOTO9210 

G2I=»ARCTURUS":GOTO9 210 

G2S»"SPICA" 

I FG5<>I™enOWZ5G0TC9 230*9 2^0*9250* 9 260*9 230/ 9 240* 9 250*9 260 

RETURN 

G2S=G25+*' ^"iRETURN 
G2S-02S+" Ii M lPETUTM 
G2S=Q2S*** Ilt ll iftSTURH 

G2$-G2S^ M IV'IRETURN 



YOU UELL BE ASSIGNED A STARTING POINT 5CMEUHERE IN TOE 
GALAXY TO BEGIN A TOUR OF DUTY AS COMHAtJDER OF THE STARSKIP 
\EWTERPRISE\** YOUR MISSION: TO SEEK AND DESTROY THE FLEET OF 
KLINGCW WARHHtPS yHlCH ARE MENACING THE UNITED FEDERATI CW OF 
FLA»ET$> 

YOU HAVE THE FOLLO'JIMG CffllMAMDS AVAILABLE TO YOU AS CAPTAIN 
OF THE STARSH1P ENTERPRISE* 

NWAUS COMMAND = UARP ENGINE CWTROL — 

COURSE IS IN A CIRCULAR NUMERICAL 1 3 2 

VECTOR ARRANGES EftT AS 5HOW4 * * ■ 

INTEGER AND RJAL VALUES HAY BE 

USED. CTKUS COURSE 1-5 IS HALF- 5 ---* 1 

>/AY DETVEETJ 1 AND 2 *** 



VALUES MAY APPROACH 9*0* "JHtCK 
ITSli^F IS EQUIVALENT TO WO 

ONE WARP FACTOR IS THE S1Z.E OF 
ONE GUADTANT. THEREFORE* TO GET 
FROM OUADRANT 6*5 TO 5*5* YOU WOULD 
USE COURSE 3* UARP FACTOR 1* 



COURSE 



\SRS\ COMMAND = SJIORT 
SHOWS YOU A SCAN 



RANGE SEfJSOR SCAN 

OF YOUR PRESENT GUADRANT* 



HERE!) 



SYMBOLOGY ON YOUR SENSOR SCREEN IS AS FOLLOUS* 
<*> = YOUR STARSHIP'S POSITION 
+1C+ = KLIMGON BATTLE CRUISER 
>l< - FEDERATION STARBASE i REFUEL/REPA1 R /RE- ARM 

># = STAR 
A COWDEJNSED 'STATUS REPORT' WILL ALSO BE PRESENTED- 



\LRS\ COMMAiJD ■ LONG RAUGE SENSOR SCAN 

SH0V8 CONDITIONS IM SPACE FOR ONE QUADRANT ON EACH SIDE 
OF THE EtJTERPRISE C1JH1CH IS IN THE MIDDLE OF THE SCAtt) 
THE SCAN IS CODED IN THE FORM \*¥*\* WHERE TH WOI TS DIGIT 
IS THE HLCfBER OF STARS* THE TENS DIGIT IS THE NW&ER OF 
STARBASES* AND THE HWDRESDS DIGIT IS THE NUMBER OF 
KLINGONS* 

EXAMPLE - 207 ■ Z JtLINGONS* WO STARBASES* fi 7 STARS- 

\WA\ COMMAND = PHASER CONTROL- 
ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRUISERS BY 
ZAPPING THEM UITH SUI TAECY LARGE Wl TS OF ENERGY TO 
DEPLETE THEIR SHIELD POWER* CRE3BER* KLINGCttS.HAVE 
PHASERS TOO!) 

\TOR\ COMMAND = PHOTON TORPEDO CONTRCL 

TORPEDO COURSE IS THE SAME AS USED IM WAJV ENGINE CONTROL 
IF YOU HIT THE KLINGON VESSEL, HE IS DESTROYED AND 
CANNOT FIRE BACK AT YOU. IF YOU MISS* YOU ARE SUBJECT TO 
HIS PHASER FIRE* IM EITHER CASE* YOU ARE ALSO SUBJECT TO 
THE PHASER FIRE OF ALL OTHER KLIHG0W5 IN TOE CUADRANT- 



THE LIBRARY-COMPUTER <\COM\ COMMAND) HAS AM OPTI W 
Ctt-IPUTE TORPEDO TRAJECTORY FOR YOU < OPTI ON 2) 



TO 



\SHXR COMHAMD" SHIELD CONTROL 

DEFINES THE NUMBER OF ENERGY UNITS TO BE ASSIGNED TO fN E 
SHIELDS. ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY. NOTE 
THAT WE STATUS DISPLAY TOTAL ENERGY INCLUDES SHIELD ENERGY 



\DAM\ COMMAND = DAftMAGE COCJTRCL REPORT 

GIVES THE STATE OF REPAIR OF ALL DEVICES* 
- * STATE OF REPAIR' SHOWS THAT THE DEVICE I 
DAMAGED. 



WHERE A NEGATIVE 
S TEMPORARILY 



IV ALL 



\GOHV COMMAND- 1^1 BRARY-CCMPUTER 

THE LIBRARY-COMPUTER CONTAINS SIX OPTIONS: 
OPTIOM Z = CUilU-ATIVE GALACTIC RECORD 

THIS OPTION SHOVES COMPUTER KfitOBY OF THE RESULTS 

PREVIOUS SHORT AND LONG RANGE SENSOR SCANS 
OPTI ON 1 = STATUS REPORT 

THIS OPTION SHOVS THE NLMBER OF KLINGCWS* STARDATES* 

AND STARBASES REMAINING IN THE GAME- 
OPTION 2 ■ PHOTON TOni'EDO DATA 

WHICH GIVES DIRECTIONS AND DISTANCE FROM THE ENTERPRISE 

TO ALL KLIN&QNS IN YOUR QUADRANT 
OPTI W 3 » 5TAREASE WAV DATA 

THIS OPTION GIVES DIRECTION AND DISTANCE TO AMY 

STARBASE WITHIN YOUR OUADRANT 
OPTION H = DI RECTI ON/DISTANCE CALCULATOR 

THIS OPTION ALLOVS YOU TO ENTER COORDINATES FOR 

DIRECTI CBJ/D1STAMCE CALCO.ATI 0^3S 
OPTION S - GALACTIC /REGION KAtfE/ MAP 

THIS OPTION PRINTS THE NAMES OF THE SIXTEEN MAJOR 

GALACTIC REGIONS REFERRED TO IN THE GAME* 
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Sample Run - Game 

■'-■-- ----- -~" / / 

, ■ < / /„, 

THE U5S ENTERPRISE --- NCC-1701 



YOUR ORDERS ARE AS FOLLOWS* 

DESTROY THE 8 KLINGON WARSHIPS UHICH HAVE INVADED 
THE GALAXY BEFORE THEY CAM ATTACK FEDERATJ OM HEADQUARTERS 
ON STARDATE 3025 THIS GIVES YOU 25 DAYS* THERE ARE 
3 STARBA5E5 IN THE GALAXY FOR RESUPFLYIMG YOUR SHIP 

HIT AMY KEY EKCEPT RETURN ilHEN REAOT TO ACCEPT COMMAND 

YOUR HI SSI ON BEGINS VITH YOUR STARSHIP LOCATED 
IN THE GALACTIC GUADRANT* 'BETELGEUSE 1". 



<;*? 



STAR DATE 

CONDITION 

GUADRAWT 

SECTOR 

PHOTCW TORPEDOES 

TOTAL ENERGY 

SHIELDS 

KLINGOMS RQ1A1NING 



30C0 

GREEN 

4*5 

6 * 2 

10 

3000 


S 



COMMAND? LRS 

LONG RANGE SCAM FOR QUADRANT 4 # S 



: 004 ; 325 


: 306' i 


• 3B3 : 033 


! 108 t 


: 361 t 004 


: 002 : 



COMMAND? NAV*— *5HE 

ENERGY AVAILABLE = 3000 NUMBER OF UNITS TO SHIELDS? 2000 

DEFLECTOR CONTROL ROM REPORT: 

"SHIELDS NOW AT 2006 UNITS PER YOUR COMMAND* 1 
COMMAND? NAV 
COURSE <0-9)? 1.16667 
HARP FACTOR C0-&) ? I 



NOtf ENTERING BETQ-GEUSE II QUADRANT 
COMBAT AREA COWOI Tt ON RED 

* 

* 



<*> 






STARDATE 

CONDI TICH 

QUADRANT 

SECTOR 

PHOtW TORPEDOES 

TOTAL ENERGY 

SHIELDS 

klinggms remaining 



30CI 
*RED* 

h j 6 

10 

293 2 
2B00 
6 



comma;; o? cow 

COMPUTER ACTIVE AMD AUAITIUG COMMAND? 2 

FROM ENTERPRISE TO KLINGON BATTLE CRUSEB 

DI RECTI ON - 8 -75 

DISTANCE a 4*12311 

COMMAND? TOR 

HTOTON TORPEDO COURSE (t-9>? 8-73 

TORPEDO TRACK: 

4 * 3 

5 # 4 
5 * 5 
5*6 

*#* KLINGON DESTROYED *** 

COMMAND? LRS 

LONG RANGE SCAN FOR OUADRANT tx * 6 



1 


00S 


1 


006 


B 


80S 


* 


M 


003 


■ 


238 


1 


008 


1 


1 


0D4 


1 


002 


I 


003 


■ 

m 



COMMAND? WAV 
COURSE t#-9> ? 5 
HARP FACTOR <0-G>? 4 

.:::■ ENTERING VEGA II QUADRANT * * * 



< + > 



* 



STARDATE 




3002 


CONDITION 




GREEN 


QUADRANT 




4*2 


SECTOR 




4 * & 


PHOTON TO 


3PEDOSS 


9 


TOTAL ENERGY 


29 38 


SHIELDS 




2000 


KL1NG0NS 


REVALUING 


7 



COMMAND? LRS 

LONG RANGE SCAM FOR CUfiDRANT 4 * 2 



: 


005 


■ 


!03 




006 


1 


t 


IZB 


t 


G06 


% 


006 


■ 


■ 


00S 


■ 


037 


M 


005 


£ 



COMMAND? WAV 
COURSE C0-9>? 5 
tfAAP FACTO?. (fl-8>? 1 



NOW ENTERING VEGA i QUADRANT * 
COMBAT AREA CONDITION RED 



<*» 



*IC« 



S TARDA TE 

CONDITION 

QUADRANT 

SECTOR 

PHOTON TORPEDOES 

TOTAL ENERGY 

SHIELDS 

HLIHGQNS REMAINING 



3063 
*RED* 
4 * 1 
4*2 
9 

29 20 
23G e 

7 



COMUAND? P\ih 

FHA5ER5 LOC1CED ON TARGET; ENERGY AVAILABLE = 9 20 UNITS 

NUMBER OF UNITS TO FIRE? 100 

201 UNIT HIT ON SCLIN30N AT SECTOR 5 * I 
C SENSORS SH07 28-4463 UNITS REMAINING) 

41 UNIT HIT 0« EMTBRPnl SZ FRCtl SECTOR 5 * 1 
< SKI ELDS DOUN TO 19 59 UMITS> 
COMMAND? PHA 

WASERS LOCKED ON TARGET; ENERGY AVAILABLE = 820 UNITS 
NUMBER OF UNITS TO FIRE? 14 

26 UNIT HIT ON JOslNGON AT SECTOR 5 * 1 
«* KLIN60N DESTROYED *** 
COMMAND? LRS 
LONG RANGE SCAN FOR QUADRANT 4 * 1 



. 


*** 


1 


205 


: 


103 


I 


1 


#** 


t 


302 


■ 


006 


: 


• 

m 


*** 


p 


003 


- 


307 


: 



COMMAND? NAV 

COURSE <0-9>? 2 

HARP FACTOR (0-8>? 1-414 

NOW ENTERING PROCYOH II OUADRANT . # 

COMBAT AREA CONDITION RED 



5 TARDA TE 

CONDITION 

GUADRANT 

SECTOR 

PHOTON TORPEDOES 

TOTAL E«ER0V 

SHIELDS 

KLXNGONS REMAINING 



3004 
*RED* 
3 * 2 
1 j S 
9 

2744 
19 59 
6 



COMMAND? COM 

COMPUTER ACTIVE AND AMI TING COMMAND? 2 

FROM" ENTERPRISE TO KLIWGOK BATTLE CRUSER 

DIRECTION ■ 5*75 

DI STANCE * 5 

COMMAND? LRS 

LONG RANGE SCAN FOR &UADRANT 3 * 2 



; 007 : £06 : 007 


: 


: 005 : 103 : 006 


* 


; 002 - 006 1 006 


I 



COMMAND? TOTt 

FHOTON TORPEDO COURSE tl-9>7 5*75 

TORPEDO TRACK: 

2 * 4 

3 * 3 

3 a 2 

4 # 1 

**¥ KLINGDN DESTROYED *** 

COMMAND? COIi 

COMPUTER ACTIVE AND AUAIT1NG COMMAND? 

COMPUTER RECORD OF GALAXY FOR CUADRANT 3 # 2 

12 3 4 5 6 7 



i 

2 

3 

4 

5 

6 

7 



COMMAND? NAV 
COURSE <0-9) 1 7 
HARP FACTOR < 0-0) ? 4 

KOy ENTERING SAGITTARIUS II QUADFJ=lNT 



*** 


w**« 


V** 


#x* 


k- ■■ 


#«* 


*** 


4** 


007 


006 


007 


Mm* 


*** 


#** 


*** 


**** 


005 


^03 


006 


004 


CC5 


eS6 


005 


*** 


0O2 


006 


006 


803 


003 


e-zo 


030 


^+* 


00S 


507 


30 5 


0C1 


0£>4 


002 


003 


*** 


*** 


4**# 


*** 


^*t+ 


♦** 


**4 


*** 


*£* 


*** 


*** 


«*« 


*^* 


***> 


*** 


+** 


^^V 


++ + 


+ *• + 


*** 


*** 


*** 


*** 


*** 


*** 



<*> 



* 



STAR DATE 

CONDI TIGN 

QUADRANT 

SECTOR 

PHOTON TORPEDOES 

TOTAL ENERGY 

$HI£LO£ 

1CLIHGCH5 RHIAI^ING 



3205 
GREBJ 
7 * £ 
1 * S 

e 

2700 
1959 
S 
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Later in the run . . * 



COMMAND? LRS 

LONG RANGE SCAN FOR QUADRANT 7 / 2 

i 003 t G&4 1 004 * 

j 003 t 003 t 001 * 

i 017 : 007 * 002 : 

COMMAND? NAV 

course ca-9>? 1 

WARP FACTOR C0-8)? 3 

NOW ENTERING ARCTURUS I QUADRANT * • • 

«.„.—*«--- ™ #> STARDATE 3006 

CONDITION GREEN 

* QUADRANT 7 * 5 

% SECTOR 1 * 5 

* PHOTON TORPEDOES 8 

* TOTAL ENERGY 2666 

* SHIELDS 19 W 

KLINGONS RD1AIK1NG 5 

COWHAND? LPS 

LONG RANGE SCAW FOR QUADRANT 7 * 5 

t 001 t 001 t 005 ; 

* 003 * 007 : 000 : 

t 0O6 : 007 : 005 t 

COUMAND? NAV 

COURSE (0-9>? 1 

VARP FACTOR (&-&)? 2 

NOV ENTERING ARCTURUS III QUADRANT * • * 

<*> STARDATE 3097 

* CONDITION GREEN 

* QUADRANT 7/7 

* SECTOR I * 5 

PHOTON TORPEDOES 8 

TOTAL ENERGY 2640 

SHIELDS 1*59 

* KLINGONS REMAINING S 

COMMAND? LRS 

LONG RANGE SCAN FOR QUADRANT 7 / 7 

t 005 ! &0S : 001 : 

i 006 t 00S : 302 t 

t 005 : 0GS t 003 : 

COMMAND? COM 

COMPUTER ACTIVE AND AWAITING COMMAND? 

COMPUTER RECORD OF GALAXY FOR QUADRANT 7*7 

12 3 4 5 6 7 8 

1 *«* *** *** *** *** *** *** *** 

2 037 336 007 *** *** *** *** ***_ 

3 005 003 M6 00* 005 006 005 *** 

4 002 006 006 003 003 008 008 *** 

5 008 007 005 Bfcl 004 002 003 ***_ 

6 003 004 B04 001 001 035 332 ° 34 

7 203 303 001 003 007 006 005 002 
3 017 007 002 008 087 025 008 003 

COMMAND? COM 

COMPUTER ACTIVE AND AWAITING COMMAND? I 

STATUS REPORT? 

KLINGONS LEFT: 5 

MISSION MUST BE COMFLETED IN 18 STARDATES 

THE FEDERATION IS MAINTAINING *3 STAREASES IN THE GALAXY 

DEVICE STATE OF REPAIR 

WARP ENGINES 

SiORT RANGE SENSORS 

LONG RANGE SEWSOHS 

PHASER CONTROL 

PHOTON TUBES 

DAMAGE CONTRO- 

SJ1ELD CONTRO- ^ 

LI BRARY-COMPUTER 

COMMAND? COM 

COMPUTER ACTIVE AND AWAITING COMMAND? 4 

DIRECTION/DISTANCE CALCULATOR: 

YOU ARE AT QUADRANT 7*7 SECTOR 1 / 5 

rt-EASE ENTER 

INITIAL COORDINATES <X/Y> ? 7*7 

FINAL COORDINATES CX/Y> ? 4*3 
DIRECTION » 2*66667 
DISTANCE ■ 3.T622S 
COMMAND? NAV 
COURSE <3-9>? 2*66667 
WARP FACTOR <0-S>? 3-16228 



NOtf ENTERING SIRIUS I QUADRANT 
COMBAT AREA CONDITION REP^ 

* 



STARDATE 


3012*6 


CONDITION 


*RED* 


QUADRANT 


I / 5 


SECTOR 


5 / Z 


PHOTON TORPEDOES 


5 


TOTAL ENERGY 


1741 


SHIELDS 


89 1 



KLINGONS REMAINING 2 



COMMAND? TOR 

FHOTW TORPEDO COURSE U-9>? 1 

TORPEDO TRACK! 

5/3 
+++ KLIWGW DESTROYED *** 
COt-ftiAND? MAV 
COURSE t 0-9)7 5 

S^?SSn^mm LIBRARY-GOlPUTER REPAIR COMPETED* 
NOW ENTERING AH TARES IV MJADPAtfT * » - 
COMBAT AREA CONDITION RED 



+K+ 



* 



<*? 



STARDATE 


3013*6 


dcwditick 


*RED* 


QUADRANT 


1 / 4 


SECTOR 


5/2 


PHOTON TORPEDOES 


4 


TOTAL ENEMY 


17S1 


SHIELDS 


891 



>l< 



KLINGONS REGAINING 1 



COMMAND? CCH 

COMPUTER ACTIVE AND AWAITING COMMAND? 3 



FROM ENTERPRISE TO STARBA5E: 

DIRECTION * 8*4 
DISTANCE =* 5.83095 
COMMAND? NAV 
COURSE C0-9) ? 8*4 
WARP FACTOR <0-0)? *5S3S9 5 
154 UNIT HIT ON ENTERPRISE FRCM SECTOR 3/3 

<SHIELDS DOWN TO 737 WI TS> 

QWiAGE CONTROL REPORTS 'LONG RANGE SENSORS DAMAGED BY THE H * T 
DAMAGE CONTROL REPORT! LWG RANGE SENSORS REPAIR COMPLETED* 
•JAR* ENSI NES SHUT DOWN AT SECTOR 7 / 6 DUE TO DAD MAVAGATI ON 
SHIELDS DROPPED FOR DOCKING PURPOSES 






<*> 



* 


STARDATE 


3014*1 




CONDITIO* 


DOCKED 


* 


QUADRANT 


1 / 4 




SECTOR 


7/6 




PHOTON TORPEDOED 


10 




TOTAL ENERGY 


3000 




SHIELDS 






>l< 



KLINGONS RH1AIMIWG 1 



COMMAND? DM-J 

DEVI CE 

■HTP ENGINES 

&IGRT RAI^E SENSORS 

LONG RANGE SENSORS 

PHASER CONTROL 

FilOTON TUSES 

DAMAGE CONTROL 

SUELD CONTROL 

LI HWCT-GCMHITER 



STATE OF REPAI P 



£6 



43 

i 18 



COMMAND? COM 

COMPUTER ACTIVE AND AWAITING COMMAND? 5 



1 

£ 

3 

4 

5 

6 

7 

G 



I 2 3 


THE 
4 


GALAXY 

5 6 7 


8 


AN TARES 






SI HI US 




RIGEL 






DENSE 




PROCYCN 






CAPELLA 




VEGA 






DETELGEUSE 




CAN OPUS 






AL DEBAR AN 




ALTAI R 






REGULUS 




SAGITTARIUS 






ARCTURUS 




POLLUX 






SP1CA 





COMMAND? FHA 

I1IASERS LOCKED ON TARGET; ENERGY AVAILABLE a 3000 UNI T5 

NUMBER OF UNITS TO FIRE? £939 

1415 UNIT HIT ON KL1NG0N AT SECTOR 3/3 
*** KLINGON DESTROYED *** 

COMGRU-ATI ON/ CAPTAIN! THE LAST KLIUQON BATTLE CRUISER 
MENACING THE FEDERATI OCJ HAS.BEEW DESTROYED* 

YOUR EFFICIENCY RATING IS 321*911 



THE FEDERATION IS IN NEED OF A HEV STARSH1P COMMANDER 
FOR A SIMILAR MISSION " IF THERE IS A VOLUNTEER/ 
LET HItt STEP FORWARD AND EttTER 'AYE*? NAY 
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Synonym 



A synonym of a word is another word 
(in ihe English language) which has the 
same, or very nearly the same, mean- 
ing. This program tests your 
knowledge of synonyms of a few 
common words. 

The computer chooses a word and 
asks you for a synonym. The computer 
then tells you whether you're right or 
wrong. If you can't think of a synonym, 
type "HELP*' which causes a synonym 
to be printed. 

You may put in words of your choice 
in the data statements (510-600)- The 
number following DATA in Statement 
500 is the total number of data 
statements. In each data statement, the 
first number Is the number of words In 
that statement. 

Can you think of a way to make this 
into a more general kind of CAI 
program for any subject? 

Walt Koetke of Lexington High 
School, Massachusetts created this 
program. 



SYNONYH 
CREATIVE COHPUIIKG R0RRIST0UN, KM JERSE* 



A SYN0HTH Of A UORD HEARS ANOTHER UORD 111 THE ENGLISH 

LANGUAGE WHICH HAS THE SAKE OR VERT NEARLY THE SAHE HEAHIN6* 

1 CHOOSE A UORI — YOU TYPE A SYNONYH. 

IF TOU CAN'T THINK Of A SYHOHYH, TYPE THE UORI 'HELP' 

AND I URL TELL TOU A SYNONYM. 



WHAT IS A SYHOHYH Of RED? HELP 
**»• A SYNONYH OF RED 19 RUBY. 



WAT IS A SYHQNYfl Of RCIt SCARLET 



RIGHT 



UHAT IS A SYHOHYH OF HODEL? FORK 
TRY AGAIN. 

UHAT IS A SYNONYH OF HODELT HELP 
«»t A SYNQRYH OF HODEL IS PATTER*. 



UHAT IS A 5YN0HYH OF flOKLT PROTOTYPE 



1CQDI 



UHAT IS A SYHONY* Of SHALL? LITTLE 



GOOD' 



UHAT IS A STNOHYfl OF SIHILAR? LIKE 
CORRECT 



UHAT IS A SYNONYH OF FIRST? START 
CORRECT 



UHAT IS A SYNONYH Of PIT? CAVE 

TRY A01IN, 

UHAT IS A SYNONYH Of PIT? CAVERN 

TPT AGAIN. 

IHAT IS A SYNONYH OF PIT? HOLE 



RIGHT 



UHAT 15 A SYNONYH OF HOUSE' DUELLING 



UHAT IS A SYNONYH OF RUSH* SHOVE 



Qien 



UHAT IS A SYHQNW OF STOP? HALT 



CHECK 

UHAT IS A SYNONYH OF PAIN* HURT 
CHECK 

STWONTfl DRILL COMPLETED. 



2 PRINT TABCJ3);"SYN044YH 
4 PRINT !AR(13»;"CREATIVI 
4 PRINT: PRINT: PRINT 



COMPUTING HOftRJSTOUR, SEtl JEKSCY 1 



10 

21 

JO 

7ft 

?B 

100 

110 

130 

HO 

I4S 

150 

(If 

170 

174 

174 

ISO 

IfO 

200 

210 

2:0 

230 

232 

23S 

237 

240 

250 

2*0 

270 

280 

290 

300 

320 

340 

J4D 

37Q 

420 

500 

5ft 

520 

330 

540 

530 

340 

545 

570 

580 

510 

400 

605 

99? 



BIN R*(3>,UI(10),L<JO>,R<30) 
R|{1)-"RIGHT"| Rt<2l*"C0RRECT": 
R|{S) -'CHECK' 

C=0 
PRINT "A 

PRINT R 
PRINT " 
PRINT " 
PRINT " 
PRINT - 
RESTORE 



5YN0NYN OF A UORD 
LANGUA6E UHICH HAS 

HEARING," 
1 CHOOSE A UORD « 
IF YOU CAN'T THINK 
AND 1 URL TELL YOU 
: C=C+1; READ H 



8*(3**"F1HE*( R*MI*-00«H 



HEAKS ANOTHER UC8S IH TkE ENGLISH" 
THE SANE OR VIM NEARLY THE SAHE"; 



TOU 
OF 1 



TYRE A SYNONYH." 
I SYNONYH, TYPE THE 
IYNQHYN."i PRINT 



UQRO 'HELP' 



IF OR THEN 420 

4l-INT(AND(t)«4l) 

IF R<m*1 THEN 170 

RfKIMI 

FOR 1-1 TO R1 

READ H2 

FOR JM TO «2 

READ VDCJI 

NEXT J 

REIT I 

FOR J=1 TO R2t L<J>»Ji NEXT J 

L(0)*Hi 8-1 1 PRINT 

HG)«L(L<0)M UOMBHt PRINT 

PRINT * UHAT IS A SYNONYH OF ";Ut(G);i INPUT At 

IF AS«"HELP" THEN 340 

FOR K*t TO H2 

IF 6-X THEN 290 

IF AfiU*tK> THEN 320 

NEXT K 

PRINT " TRY AGAIN.V SOTO 240 

PRINT R*t8NN1lt5+1>t MYO 150 

81"INT<RN0(1)*L(0)f1) 

PRINT "MM A SYNONYH Of ";IH(B*; 1 * IS *;U$<UGU};".*t PRIK1 

L(8t)»L<L(0m L(O)-L(0)Hi 6QT0 2« 

PRINT! PRINT "STNQNYR DRILL COHPLElL*.": SOTO 9?V 



DATA 

DATA 

DATA 

DATA 

DAT 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

END 



10 

s» 

5,*SINRAR 
3, "MODEL", 



FIRSTVSTART 



"begi^ming 
,-aike" 

PATTERN" 



"ONSET", "INITIAL 1 



h SAAEVLIKE\-RESEHDLING" 
■PROTOTYPE" , "STANDARD" »*'CRITERION k 



A 3, "SHALL", "INSIGNIFICANT", "LITTLE*, "THrrVHINUIE" 
4»"SI0PVHALTVSTAYV*ARE5T", "CHECK", "ST ANDST1LL" 
4, "HOUSE" ,"DUELLIW" /RESIDENCE", H IOHICILE","L0D0IHO" 
"HABITATION' 1 

7 r "PITVH0LEVHOLLOU%"UELL\"WLFVCHASH" l "ARYSS" 
7,-POSH", "SHOUE",-THRUST", "PROD", "POKE", -BUTT" B "PRESS" 
4, "RED" p "ROUGE", "SCARLET", -CRIHSOH",*FLAKE", "ROOT" 
?,-PAIN","SUFFERlNG\*HURT\"HiSERY" t M iISTREflSVACHE" 
"DISCQPFORT - 
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In this program, you are firing a 
weapon from a spaceship in 3- 
dimensional space. Your ship, the 
Starship Enterprise, is located at the 
origin (0,0,0) of a set of x.y.z coor- 
dinates. You will be told the ap- 
proximate location of the target in 3- 
dimensional rectangular coordinates, 
the approximate angular deviation 
from the x and z axes In both radians 
and degrees, and the approximate 

distance to the target. 

Given this information, you then 
proceed to shoot at the target. A shot 
within 20 kilometers of the target 
destroys it. After each shot, you are 
given information as to the position of 
the explosion of your shot and a 
somewhat improved estimate of the 
location of the target. Fortunately, this 
is just practice and the target doesn't 
shoot back. After you have attained 
proficiency, you ought to be able to 
destroy a target in 3 or 4 shots. 
However, attaining proficiency might 
take a while! 

The author is H. David Crockett of 

Fort Worth. Texas. 



ESTIMATED DISTANCE' 440H 
INPUT ANGLE DEVIATION FRON X, DEVIAIION FRON 



2, DISTANCE? 250,170,44000 



RADIANS FROH X AXI5 ■ 4.34331 "OH 2 AXIS ■ 2.94705 
SNOT I* FRONT OF TARGET 3631.37 KILOMETERS, 
SHOT TO LEFT OF TAIIOET 19131.1 KILOMETERS. 
SHOT 8EL0U TARGET 4061.74 KILOMETERS. 
APPROX POSITION OF EXPLOSION! X-3920.24 T— 10770.3 
DISTANCE FROH TAROET ' 20400.3 



2—14997.2 



ESTIMATED DISTANCE* 46499 
IBPUT A«5LE DEVIATION FROH X, DEVIATION 



FROM 2. DISTANCE* 260,153,66499 



RADIANS FROR X AXIS « 4.33784 FROR 2 AXIS ■ 2.70523 
SNOT III FRONT OF TARGET 2470.88 KILOHETERS. 
SHOT TO LEFT OF TAR6ET 2224.05 KILOMETERS. 
SHOT DEL0U TARGET 1352.15 KILOMETERS. 
APPR0X POSITION OF EXPLOSIONi X-4880.74 
DISTANCE FRQfl TARGET " 3729.64 



T "-27*77. 3 2-60268.3 



ESTIMATED DISTANCE' 46499.2 
INPUT AH6LE DEVIATION FROR X, DEVIATION FROM 2, DISTANCE' 

2 

RADIAI5 FROM X AXIS « 4.45937 FMH 2 AXIS " 2.41798 
SNOT BEHIND TARGET 1034.7 KILOMETERS. 
SHOT TO RIGHT OF TARGET 2213.73 KILOMETERS. 
SHOT AIOVE TAR6ET 1325.75 KILOHETERS. 
APPROX POSITION OF EXPLOSIONi X—8606.33 
BIS1AHCE FROM TARGET ■ 2789.1' 



253,150,64499 



1—32117.1 2—37589.7 



TARGET 
CREATIVE COIPUTIHG NQRRISTOUH, KEU JERSEY 



TOO ARE THE WEAPONS OFFICER ON THE STARSHIP ENTERPRISE 

AND THIS IS A TEST TO SEE HOU ACCURATE A SNOT YOU 

ARE IN A THREE-DIHENSIONAl RANGE. YOU "ILL IE TOLD 

THE RABIAH OFFSET FOP THE X AND 2 AXES, THE LOCATION 

OF THE TARGET IN THREE DIHEH5I0HAL RECTANGULAR '.?.:: HNATE5, 

TNE APPROXIMATE RUBBER OF DEGREES FRON 

AXES. AND THE APPR0X1RATE DISTANCE 

YGU UILL THEN PROCEEED TO SHOOT AT THE . '■:: ,- :! u TIL H I: 

EESTRQYEDI 



THE X AND 2 
TO THE TAROET. 
THE TARGET UNTIL IT 



BIDS LUCK' 



ESTIflATED DISTANCE' 64499.2 



INPUT AHGLE 
2 



DEVIATION FROM X, 



DEVIATION FROM 2, DISTANCE? 256,145,4649? 



RADIANS FROH X AXIS ■ 4.46803 FROH 2 AXIS * 2.33072 
SHOT BEHIND TARGET 1676.61 KILOMETERS. 
SNOT TO RIGHT OF TARGET 7108.41 KILOHETERS. 
SHOT ABOVE TARGET 4442.84 KILOMETERS. 

APPROX POSITION OF EXPLOSIOM: X— 9228.24 9—37009.7 

DISTANCE FROM IARGE1 = 8549.64 



2—54472.4 



E8TINATED DISTANCE- 46499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION 



FROM 2, DISTANCE? 236,147,6649' 



RADIANS FRON X AXIS = 4.44803 FROH 2 AXIS * 2.54362 
SNOT BEHIND TARGET 1211.02 KILOMETERS. 
SHOT TO RIGHT OF TARGET 5241. IB KILOKETERS. 
SHOT ABOVE TARGET 3145.04 KILOKETERS. 
APPROX POSITION OF EXPLOSION: X-B742.45 

DISTANCE FRON TARGET ■ 4231.19 



T— 33142,3 2—55770.4 



RADIAMS FRON X AXIS « 4.44501 FROH 2 AXIS = 2.43935 

TARGET SIGHTEBl APPROX COORDINATES X-7551.43 Y-29901.3 2-38913.4 

ESTIMATED DISTANCE* 44490 
IHPUT AK81E DEVIATION FRON X, BEVIATION FROH 2, DISTANCE? 230,110,44000 

RADIANS FROH X AXIS * 4.01424 FROH 2 AXIS * 1.91983 
SHOT BEHIND TARGE1 32314.7 KILOMETERS. 
SHOI TO RIGHT OF TARGET 17408 KILOKETERS. 
SHOT ABOVE TARGET 36342.5 KILOHETERS. 

APPROX POSITION OF EXPLOSIONi X— 39044.4 Y-47309.4 2-22572.9 
DISTANCE FRON TARGET - 51721 



ESTIHATED DISTANCE- 66499.2 
IHPUT AHGLE DEVIATION FROH X, DEVIATION FRON 

RADIANS FROH X AXIS = 4.46803 FROH I AXIS * 
SHOI REHIHD TARGET 974.203 KILOHETERS. 
SHOT TO RIGHT OF TARGET 4291.42 KILOHETERS. 
SHOT ABOVE TAROET 2321.43 KILOHETERS. 
APPROX POSITION OF EXPLOSION: X— 8525.84 
DISTANCE FRGH TAR6ET = 5071.78 



2, DISTANCE* 254,148,64491 
2.58.108 



Y— 34192. 



2—54394 
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ESTIMATED DISTANCE 66497,2 
INPUT ANGLE DEVIATION FROH X, DEVIATION FROH Z, DISTANCE? 236,154,664?? 



RABIAMS HOh X AXIS ■ 4.46803 FROM Z AXIS ■ 
SHOT IN FRONT OF TARGET 496.472 KILOMETERS. 
SHOT TO UFT OF TARGET HIS. 32 KILOMETERS. 
SHOT 8ELOU TARGET 853.184 KILOMETERS. 
APPRO* PQ8ITIW OF EXPLOSION: X*-7052,?6 
DISTANCE FROM TAR8ET * 1893,81 



2.6378 



T— 28285*8 Z— 3T766.6 



ESTIMATE! DISTANCE* 664?*. 2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROH Z, DISTANCE? 256,153,6649? 

&ADIANS FROM X AXIS = 4.46803 FROH I AXIS ■ 2.67(34 
SHOT IN FRONT OF TARGET 247.38 KILOMETERS. 
SHOT TO LEFT OF TAR6ET 607.723 KILQHETERS. 
SHOT BELOU TAR6ET 335.316 KILOMETERS. 
ftPPROX POSITION OF EXPLOSION* XW304.25 T»-2?2?3,d 
DISTANCE FROM TARGET * 736.859 



Z*-5?Z50*? 



ESTIMATED I1STAHCE= 66499.2 
INPUT ANGLE DEVIATION FROM X. DEVIATION 



FRO* Z, DISTANCE? 256,152,664?? 



RADIANS FROM X AXIS ■ 4.46803 FROH Z AXIS ■ 2.65289 
SHOT BEHIND TARGET 1.68652 KILOMETERS. 
SHOT TO RIGHT OF TARGET 391.156 KILOMETERS. 
SHOT ABOVE TARGET 200.602 KILOMETERS. 
APPROX POSITION OF EXPLOSION! XW553.32 Y=-302?2.5 
DISTANCE FRQR TARGET * 439.39? 



Z«-58714; 



10 

20 
30 

too 

110 

lie 

130 
HO 
150 
140 
170 
180 
190 
220 
?40 
210 
290 
140 
345 
330 
355 
360 
365 
370 
375 
390 
410 
405 
410 
420 
425 
480 
510 
520 
530 
550 
570 
580 
590 
670 
710 
730 
740 
750 
770 
780 
790 
810 
820 
830 
??9 



PRINT TAB(33>;-TARGEr 

PRINT TAB(15);-CREATIVE COMPUTING HORRISTOItN, NEU JERSEY" 

PRINT: PRINTt PRINT 
R=1: R1*57.2?6: M.14I3I2 

PRINT -YOU ARE THE UEAPONS OFFICER ON THE STARSHIP ENTERPRISE" 
PRINT "AND THIS IS A TEST TO SEE HON ACCURATE A SHOT YOU" 
PRINT "ARE IN A THREE-DIMENSIONAL RANGE. TOO UILL BE TOLD" 
PRINT "THE RAMAN OFFSET FOR THE X AND I AXES, THE LOCATION- 
PRINT "OF THE TAROET IN THREE DIMENSIONAL RECTANGULAR COORDINATES," 
PRINT "THE APPROXIMATE NUMBER OF DEGREES FROH THE X AND Z" 
PRINT "AXES, AMD THE APPROXIMATE DISTANCE TO THE TARGET. " 
PRIHT -TOU UILL THEN PROCEEED TO SHOOT AT THE TAROET UNTIL IT IS" 
PRINT "DESTROYED!"! PRINTt PRINT -GOOD LOCKI Tt PRINT t PRINT 
A=RHD<1>*2tP; B=RMD(11*2*Fi 0*INT<A*Rt>t U»1NHR*R1> 
PRINT "RADIANS FROM X AXIS ■"!*!" FROH 2 AXIS *"fl 
PI«IOO0OO*RND(n*RNDUJ! XtSlN<R)*C0S<A»*P1 1 Y*SIN<8»*5INIA)*P1 
Z=C05<»)*P1 

PRINT "TARGET SIGHTED! APPROX COORDINATES X»";X;" T» - ;V;" Z*";Z 
Mill IF R75 THEM 390 
OH R GOTO 355,360,365,370,375 
P3*INUP1».05>*20! GOTO 390 
P3=INT(PU.1>«tO: GOTO 3?0 
P3*l«UPt*.5)*2: GOTO 390 
P3*IMT(P1)i OOTO 396 
P3-P1 

PRINT * ESTIMATED DISTANCE"' ;P3 

PRINT "INPUT ANGLE DEVIATION FRflH X, 
INPUT AUI1»P2 
PRIWT* IF P2<20 THEN PRINT "YOU DLEU 



BEVIATION FROH Z> DISTANCE"; 



YOURSELF UP!! - ! GOTO 580 



Al-AI/RIi Bi-flWRl: PRINT "RADIANS FROH X AXIS »"JAi; 

PRINT "FROH Z AXIS ■■;■! 

X1=P24SIN(in«C0S<An: YI-P2*SIN(D1)*SINfA1>i Z1*P2»C0S<B1) 

D=((X1-XK2*(Y1-Yr2*(Zt-Z)*2)*(1/2> 

IF D>20 THEM 670 

PRINT: PRINT " * t * MIT * * t TAROET IS NON-FUMCTIONAL p t PRINT 

PRINT "DISTANCE OF EXPLOSION FROM TAROET UA8 M ;D;"KIL0MET£RS" 

PRINT: PRINT "MISSION ACCOMPLISHED IN "(Rj* SHOTS. 41 

R*0: FOR 1*1 TO 5: PRINTi NEXT I: PRINT "NEXT TARGET. ,•": PftlNT 

GOTO 220 

X2*X1-X: Y2*T1-Y: Z2=Z1-Z: IF X2<0 THEN 730 

PRINT "SHOT IN FRONT OF TARGET~;X2; u KIU)HET&ftS.": OOTO 740 

PRINT "SHOT DEHIND TAR6ET";-X2; H KIL0HETERS." 

If T2<0 THEN 770 

PRINT "SHOT TO LEFT OF TARt3ET*;Y2;"KILO!tETERS.": GOTO 7G0 

PRINT -SHOT TO RIGHT OF IARGET-;-T2;*KILCflETERS." 

IF Z2<0 THEN 810 

PRINT -SHOT ADOVE TAR8ET";Z2;"KIL0HETERS.": GOTO 820 

PRINT "SHOT BELOW TA*6ET*;-Z2;-KILONETERS," 

PRINT "APPROX POSITION OF EXPtOSIOHi X*";Xi;" V^-jYi;" Z«"J2I 

PRINT * DISTANCE FROM TARGET »";Dt PRINT: PRINT: PRINTi O0T0343 

END 
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3-D PLOT will plot the family of curves 
of any function. The function Z is 
plotted as "rising" out of the x-y plane 
with x and y inside a circle of radius30. 
The resultant plot looks almost 3- 
dimensional 

You set the function you want plotted 
in line 5. As with any mathematical plot, 
some functions come out "prettier*' 
than others. Here are some that work 
nicely: 

5 DEF FNA (Z) = 3CTEXP (-Z*Z/100) 
5DEFFNA (Z)=SQR (900.01-Z # Z) \9-2 
5 DEF FNA (Z) = 30*(COS(Z/16) 2 
5 DEF FNA (Z) = 30-30*SIN (Z/1B) 
5 DEF FNA (Z> = 3CTEXP (-COS (Z/16) ) -30 

(Bessel function— Summerfeld's Integral) 

5 DEF FNA <Z) = 30*SIN (Z/10) 

The author of this amazingly clever 
program is Mark Bramhall of DEC* 



30 FUJI 
CREAUYE C0WUTIH6 H0KRJ3T0W* r HEU JERSEY 



* 

• * 

< 4 

• * 

4 * 

• 4 

• 9 

• 4 

• * 

t ♦ w 

I 4 * * 

• 4 4 

4 4 *• 

* » 

* 4 4 

4 4 4 

♦ * 4 
* 4 • 

• 4 • 

* 4 4 

• 4 * 
• * 4 

* * 



i 4 

♦ ♦ 

• mm 

4 4 4 

4 4 4 

* • * 

4 4 4 

* * * 
4 4 4 

m » * 



4 * 



• 4 4 - 

4 4 4 4 

• 4 * 4 4 

4 4* 4 4 

4 4 4 4 * 

4 4 4 4 4 * 

M * * * • » 

44 4 4 4 4 4 

4 4 4 4 * 4 4 

4 4 4 4 4 * * 

44 4 4 4*4 4 * 

♦ 44444 4 4 

**4»44 4 4 

| 4 * *• 4 4 4 

4 4 4 4 4 4 4 

4 4 4 44 4 • 

• 4 4 4 4 4 

4 4 44 4 4 

44 4 4 4 4 

44 4 4 4 4 

44 4 4 4 4 

4 4 44 4 4 

4 4 4 4 4 4 

4 4 • 44 4 4 

4 4 4 4 4 4 t 

* 44 4 4 4 

4 4 4 4 4 4 4 

4 4 4 4 4 4 4 

4 4 4 4 4 4 4 

4 4 4 4 * 4 

4 4 4 4 * * 4 

44 4 * 4 « 4 

44 4 4 4 4 4 

4 4 4 4 4 • 

4 4 4 4 4 

4 4 4 4 4 

4 4 4 4 4 

4 4 4 4 

4 4 4 

• 



t PR1KT TA9(32>;"30 P10T" 

2 PRINT TA»(f5»; M GREATIVC COMPUTES AQRRISTOUN, MEU JERSEY* 

3 f fMHT:PRINT:m*T 

3 BEf fMU>-304EXP<-Z4i/IOO> 

100 PRINT 

110 FM X— 30 II 30 SUP 1.3 

120 L-0 

130 Tl«34llir(3QI(?00~X4X)/5> 

1« FM Y»Y! TO -Yl SIEP -3 

150 Z*IKT<25*FKM8«tU*X4Y4 , m-.?4n 

140 IF K = L THEN 190 

170 fZ 

180 PRIRT I*||(Z);*4 M J 

\tt KEXT T 

200 PRUT 

210 tfKT X 

300 £HD 
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3-D TIC-TAC-TOE is the game of tic- 
tac-toe in a 4x4x4 cube. You must get 4 
markers in a row or diagonal along any 
3-dimensional plane in order to win. 

Each move is indicated by a 3-digit 
number (digits not seperated by commas), 
with each digit between 1 and 4 inclusive. 
The digits indicate the level, column, and 
row, respectively, of the move. You can win 
if you play correctly; although, it is consid- 
erably more difficult than standard, two- 
dimensional 3x3 tic-tac-toe. 

This version of 3-D TIC-TAC-TOE is 
from Dartmouth College. 



TIC TAC TOE 

CREATIVE COMPUTING MMISTQWt, HEU JERSEY 

10 YOU UAHT INSTRUCTIONS? YES 

THE GAME IS TIC-TAC-TOE IK A 4 X « X 4 CUIE. 

EACH HOVE IS IHDICAIEI hi * 3 DIBIT NUMBER, UITH EACH 

DIBIT IETUEEN 1 AMD 4 INCLUSIVE. THE DIGITS INDICATE THE 

LEVEL, M» t AND COLUMN, RESPECTIVELY OF THE OCCUPIED 

PUCE. 

TO PRINI THE PLAYIHO BOARD, TYPE 4ZER0I AS YOUR MOVE. 
THE PROGRAM UUL PRINT THE BOARD UITH TOUR MOVES INDI- 
CATED! UITH A (T), THE MACHINE'S ROVES KITH A* IN), AW 

UNUSED SQUARES UITH A 1 ). 
1 

TO STOP THE PRI6RAR RUH, TYPE I AS YOUR HOVE. 
DO TW KMT TO DOVE FIRSTT YES 

YOUR ROVET 122 

MACHINE NOVEB TO Ml 

YOUR ROVET 112 

MACHINE MOVES TO 411 

YQUR NOUET 412 

MACHINE MOVES TO 414 

YOUR ROVET 212 

MICE IRT lACKIHE ROVES TO 312 



YOUR MOVET 
(ft) <T> 



(I C ) 



( > (Y) I J ( ) 

( ) II ( » 1 ) 

( ) < > < I < ) 

( » m ( » n 
4 > 1 ) i > ( > 

(i i ) i ) .( » 

(i (i ii ( ) 

(I (Ml ( » ( > 

{ ) (I I ) ' ) 

< ) I) ( ) (I 

(1 I ) < I t I 



m m * i (n> 
i ) (i it ( ) 
(i ( ) < > < i 
t i ( > t f < i 



YQUR HOVE* 442 
MACHINE MOVES TO 114 
YOUR ROVET 214 

MACHINE MOVES TO 213 , AND UIHS AS FOLLOUS 
411 312 213 114 
BO YOU HART TO TRY ANOTHER GAME? NO 
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no 

120 

210 

220 

230 

240 

250 

240 

263 

270 

280 

290 

300 

303 

J 06 

307 

208 

30* 

310 

311 

312 

313 

315 

320 

330 

340 

350 

3(0 

370 

380 

390 

440 

410 

420 

430 

440 

450 

460 

4/0 



KKftlSfOUtt, NEU JERSEY- 



US? 

50 Pftlrtl CHMl2A)tUI0TH BO 

100 PRIST TM(33>;"0U»IC"iPRHT 

PRINT TAG<15);"CREATItfE COMPUTING 

pfti»TieRi*ir i^hikt 

PRINT "DO YOU UANT INSTRUCT IOHS" J 
INPUT Ct 

If LEMm*,1>=-N- THEN 313 
rr urTt<c* f n=-Y" then 265 

PI IflT "INCORRECT 
GOTO 220 

■THE Om 13 TIC-TflC-TUE IN A 4 X 4 X 4 CURE." 
"EACH HOVE IS INBICATEI BY * 3 0IG1T NWBER, UITH 
-OWn BETUEEH 1 AND 4 INCLUSIVE. THE UMTS lHOiCftTt 
•LEVEL, StOU, AMD COLUHN, RESPECTIVELY, Of THE OCCUPIED" 
"PLACE- * 



answer, heme r^p£ 'yes' or 'no 



M t 



PRINT 

PRINT 

PRIHT 

PRINT 

PRIKT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRIHT 



EACH' 



THE' 



MO PRINT THE PLAT 1R8 BOARD, TYPE UER01 AS YOUR *WE.' 
■THE PROGRAfl ttllt PRINT THE BOAR* UITH YOUR ROVES I«B1- 4 ' 
"CA1ED UITK A <T>, THE RACHIKE'5 fiOVES UITH AN til)* AND* 
"UNUSED SQUARES UITH A I K" 



490 

350 

310 

920 

521 

522 

323 

324 

525 

526 

530 

540 

350 

560 

570 

380 

310 

600 

610 

620 

630 

640 

650 

660 

670 



-TO STOP THE PROGRArt RUN, TYPE 1 AS YOUR HOVE." 

PRINT ;Ptl NT 

im xu4),u76>,nt;6,4},ni6) 

FOR I * 1 TO 1* 

R£A» T i t J 

NEXT 1 

fOR 1-1 10 76 

FOR J » 1 TO 4 

REAOflU,J> 

REXT J 

NEXT 1 

FOR I ■ 1 TO 44 

LET X <I) *0 

NEXT I 

LET Z=1 

PRinr "00 IOH UAHT TO ROVE FIRST"; 

INPUT SI 

IF tEfTtC$O f l)«"ir YHE« 630 

If LEFTII81 P 1H a V" THEN 500 

PRINT "INCORRECT AN3UER* PLEASE IYPE 'YES' Of 'NO'. - ! 

SOTO 430 

PRINT ■ " 

PRIHI "TOUR nuvt"; 

INPUTJ1 

IF JIB] THEN 2770 

IF J1O0THEN523 

GOSUB 2550 

G0T0300 

IFJK111THEN2750 

IFJ1>444THEN2730 

GOSUB 2500 

LEfK1*INItJ1/109> 

LET JZ»(J1-K1*10O) 

LET K2-INTU2/10) 

LET R3= J1 - miOO -K2*!0 

LET fl=16*Kl*4*K2*K3-20 

If XtN)=Q THEN 620 

PRINT 'THAT S8UARE IS USED, TRT AGAIN." 

GOTO 500 



6J0 
/CO 
710 
720 
730 
/40 
750 
740 
770 
780 
790 
800 
810 
620 
930 
8*0 
650 
860 
970 



THEN 690 

WIN AS FOLLOWS' *; 



8*0 
9*0 



LET X*A>*1 

GOSUB 1640 

J*l 

i*T 

IF J»1 fHEN 720 

IF J*2 THEN 790 

IF J»3 THE* 930 

1 = 1*11 IF W7A 1H£H 660 

Jvjtl: IF J<=3 THEN 650 

0010 1300 

IF L(I><>4 

PRINT "YOU 

FOR J=l TO 4 

LET flsft(I,J) 

GOSUB 1570 

NEXT J 

60TO 1490 

If LIDOtS THEN 690 

FOR J»l TO 4 

LET fl*tt<I p J) 

If XtfUOQ THEN 860 

LET XIH)"5 

PRINT -rtACHlNE ROVES 10**; 

GOSUB 1570 

NEX1 J 

PRINT *, AND UIN3 AS FOLLOWS' 

FOR JM TO 4 

LET n«fltI,J) 

GOSUB 1570 



9tO 

920 

930 

940 

950 

940 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

10*0 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

12B0 

1290 

1300 

1310 

1320 

1330 

1340 

1330 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1540 

1570 

1580 

1390 

160O 

1410 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1730 

1760 

1770 

1780 

1790 

1800 

18*0 



REIT J 

IITfl 1490 

If LU>03 THEM 

PRINT 'RICE TRT 

FOR J"1 TO 4 

LET n=ttU,Jl 

If X1HJQ0 THEN 

LET X(fl)=5 

GOSUB 1570 

500 

J 

13O0 



690 
RACHIHE 



J01C 



noves TO"; 



GOTO 

NEXT 
6010 

1=1 

LET LU)*XtN<I, 1 >>**<«< t,2>HX<flU,3)HXfH<l, 4) > 

LET L w HI) 

IF I <2 THEN 1130 

IF L>=3 THEN 1130 

IF L>2 THEN 2230 

FOR J ■ 1 TO 4 

IF X(IHI,J)K>0 THEN 1120 

LET xcihi,ji>*i/i 

NEXT J 

1=1*1 : If 1<=76 THEH 1040 

GOSUB 1640 

1=1 

If LlPM/2 THEN 2360 

IF HI)*t*3/8 THEM 2360 

I=1*U IF K»76 THEN 1160 

SOTO 1830 

LET I = 1 

IF XH«))*0 THEN 1250 

LET 2=2+1 

If Z017 THEN 1210 

SOTO 1720 

LET H=YU) 

LET X(R)*3 

PRINT "MACHINE ROVES TO 14 ; 

GOSUft 1570 

GOTO 500 

LET X*X 

1=1 

LEI UI>=X<rtU,1M*Xin<l,2)>+X<flU,3)>*Xina,4)> 

LEI L=LUI 

IF L<!0 THEN 1410 

IF L>»11 IHEN 1410 

If L>10 THEN 2230 

FOR J=l 10 4 

IF X(NU r jm>0 THEN MOO 

LET X<HII,JI>*1/S 

NEXT J 

1=1*1: IF K»7a TKtN 1320 

6Q5L-B 1640 

1-1 

IF Lm»+3 TKEN 2360 
IF LUt*5*3/8 THEN 2360 
I»I*1l If 1<=76 THER 1440 
BU50B 2300 



1030 
PRIRT N " 

PRIRI "00 Y1>« HANI TO TRY AtfOTHER MHf; 
IRPUf t% 

If LEFnut,!)**^" 
If LEFT4a^,1>="N** 



400 
1360 
AfttiUEft. PLEASE 



THEH 



PRINT -INCORRECT 

GOTO 1510 

RUN "HEHU* 

LET K1«IRtUrt-n/16)*1 

LET J2=N'16*(K1-1) 

LET S2=MTIU2-1)/4)*1 

LET X3=fl-lK1-1J*14-(K2-U»4 

LET R-K1*100*K2t10*Ki 

PRINT n; 

RETURN 

FOR $*T TO 76 

J1 » N(B f l) 

J2>HiS,21 

J3=H(S,3J 

J1=f1tS,4) 

LlS*eX<J1)+X(J2)*XUlHX<J4) 
5 



TYPE 'YES' OR 'NO' 



LET 
LIT 
LET 
U1 

LET 

#EXT 

RETURN 

FOR 1*1 TO 64 

If XIDOQ T«H 

LET X(I)=5 

LET H=I 

PRINT "WACHINE 

SOSUB 1570 

PR1RT * " 

GOTO 300 

REIT I 

PRINT -1HC fiAME 



ld05 



LIKE5' 



IS A DRAfe." 
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1820 GOTO 149Q 

1830 FOR K»1 TO IS 

1840 LEI P-0 

1850 FO(f MiH-J 10 4** 

1860 FOR J-1 TO 4 

1870 LET P=P*X<fl(l,J)) 

1880 NEXT J 

1890 NEXT 1 

1900 IF P<4 THE* 1?40 

TtlO IF P<5 THE* 1t70 

1920 IF t<9 THEH 1940 

1t30 IF KtO THEN 1*70 

1940 NEXT K 

1950 60SU8 2500 

I960 8010 1200 

TWO LET S*1/8 

1980 FOR I*4*X-J TO 4»K 

1990 8CF0 2370 

2000 HEX! I 

2010 LET S=0 

2020 60TO 1980 

2030 DATA 1,49,52,4,13,61 ,44, 16,22, 39, 23, 38, 24, 42,27, 43 

2040 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13, 14, 13, 16,1W*t^ 
2050 DATA 21,22,23,24,25,26,27,28,29,30,31 ,32,33,34,35,34,37,38 

2060 DATA 39,40,41,42,43,44,43 ( 46,47,48,4?,30,31 ,32,33,54,55,56 

2070 DATA 57,58,59,60,61 ,42,63,64 

2080 DAI At, 17,33, 49, 5, 21, 37, 53, 9,25,41,57, 13,29, 45, 61 

2090 PATA 2,18,34,50,4,22,38,34,10,26,42,38,14,30,46,62 

2100 DATA 3, 19, 35, 51, 7, 23, 39,55, 11, 27, 43, 39, 15,31, 47,63 

2H0 *A1A 4,20,36,52,8,24,40,56,12,28,44,60,16,32,48,64 

2120 ftATA 1,5,9, 13,17,21,25,29,33,37,41, 4S,49,53,57,41 

2130 8ATA 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62 
2140 8ATA 3,7,11,13,19,23,27,31,35,39,43,47,51,35,59,63 
2130 DATA4, 8, 12,16,20,24, 28,32,36, 40,44,48,32,56,60,44 
2160 0ATA1, 6, II, 16,17,22, 27,32,33,38,43, 48, 49,34,59,64 
2170 OATA tJ, 10,7, 4, 29,26,23, 20,45, 42, 39,34,61,58,53,32 
2180 DATA1, 21, 41 ,41, 2, 22, 42,62, 3, 23,43, 43, 4, 24, 44, 64 

2190 OATA 49,37,23,13,50,38,24,14,51,39,27,15,32,40,28,14 
2200 DATA 1,18,35,52,5,22,39,34,9,24,43,40,13,30,47,64 
2210 OAIA 49, 34, 19, 4, 33, 38, 23, 8, 57, 42, 2/,12,61, 44, 31, 14 
2220 DATA 1 ,22,43,64,16, 27,38,49,4,23, 42,61, 13,26,39,52 
2230 FOR J»l TO 4 

2240 IF XUf(I f J!K>1/8 IHEH 2330 

2250 LET X(fl(I,J))=5 

2260 IF LUK5 THEN 2290 

2270 PRINT 'LET'S SEE TOU SET GOT OF THIS: ftACHJNE H0VE5 TO"; 

2280 8010 2300 

2290 PRIHT "YOU FOX. JUST IN THE HICK Of TlflE, MACHINE H0V£S TO"; 

2300 LET fltfltltJI 

2310 80SU8 1570 



2330 
2340 
2350 
2340 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2440 
2470 
2480 
2490 
2500 
2310 
2520 
2530 
2340 
2350 
2560 
2362 
2564 
2366 
25 70 
2600 
2610 
2620 
2630 
2440 
2650 
2635 
2660 
2665 
2470 
2480 
2690 
2700 
2710 
2720 

a/» 

2740 
2750 
2760 



80 TO 500 
HEXT J 

PRIKT "rtACHIHE CONCEDES THIS HMIfc.- 

6010 1490 

LET 8*1/8 

If I-INT<I/4**4>1 THE* 2400 

LET A=l 

80TQ 2410 

IET A*2 

FOR J=A TO 3-A STEP 5*2*A 

IF X<HU,J)J>9 THEN 2450 

HEXT J 

8DT0 2000 

LET XtH<I,J}>=5 

LET n*fi(l,J) 

PRiKI -riACHIffC TAKES"; 

60SU* 1570 

60T0 500 

FOR 1=1 TO 64 

If XUKM/8 TH€W 2330 

LET X(I>'0 

HEXT I 

SETURN 

FOR XX»1 TO ?tLPrtirr:HEXr:f(WI*1I04 

F0RJ=1TO4 

FMllilTQj 

LPRIIIT* ■; 

KCXTtl 

F0RKMT04 

LET Q»16*I*4+J*K-20 

lFX(8K70rHfc*;4JO 

LPRlHT*l I "J 

1FXCQK75THEK2450 

LPRIHT'tfl) ■; 

1FX(QX>1IH£H2460 

LPtlHTMY* ■; 

IF X1fi)<>1/3THE«2670 

LPR1H1** ) "i 

NEXT* 

Mil! 

LPR1XT 

KEXU 

LPHI«T 

LPRIRT 

REXfl 

LPRIRT CHRK12) 

RETURN 

PRIKl-IMCORftEUI flOVE, «ETTPt IT— "J 

60TO520 

*UH "*E*IT 
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The game of tic-tac-toe hardly needs 
any introduction. In this one, you play 
versus the computer. Moves are 
entered by number: 

1 2 3 
4 5 6 



If you make any bad moves, the 
computer will win; if the computer 
makes a bad move, you can win; 
otherwise, the game ends in a tie. 

A second version of the game is 
included which prints out the board 
after each move. This is ideally suited 
to a CRT terminal, particularly if you 
modify it to not print out a new board 
after each move, but rather use the 
cursor to make the move. 

The first program was written by 
Tom Koos while a student researcher 
at the Oregon Museum of Science and 
Industry; it was extensively-modified by 
Steve North of Creative Computing. 
The source of the second game is 
unknown. 



TIC TAC TOE 
CREATIVE CMFUTIM MOM I SIMM, «EU JERSEY 

THE BANE MM! 18 HUflKKtll 

1 2 3 
■ I I 

7 4 5 



COMPUTEB H0VE8 9 
TOUR HO 'JET 3 
COMPUTER MOVES 4 
YOUR MOVCT e 
CBHPUYER MOVES 6 
YBUR I0VET 7 
COMPUTER HOWES 2 
AM NIBS ••••»••• 

COMPUTER MOVES 9 
TOUR HOVET 3 
C8HPUTER MOVES 6 
TOUR MQVET 2 
COMPUTER BQUC3 8 
YOUR HGVET 4 
COMPUTER ROVES 3 
TOUR ROVE? 7 
COMPUTER MOVES I 
THE OAHE IS A BRAU 



MORRISTQUN, NEU JERSEY* 



10 PRIM TM(30>;"TIC 1AC l«" 

20 PRINT TAIM3);-CBEATIVE COHPUTIBO 
30 PBWiPBlMTlPRINT 

30 REM 

110 REM THIS PIOBMM PLAYS IIC TAC TOE 

110 BEM THE MACHINE 0OE3 FIRST 

120 MIRT "THE BABE SDARB IS NUHBEREBs-i PRINT 

110 PRINI '1 2 l-i P»H -t » •»": PtW -? I 

HO PtlNl 

130 BEN 
140 REH 

170 REM 

ISO BEF FWm-l-l*W<U-t>/l! 

190 REB 

2H REB MAIN PRQBRAH 
PBIMT 



210 
270 



PRINT 



230 A" 9 

2*0 K-B 

230 60SUI 6M 

24* P-R 

270 B"FHH(P*1» 

2B0 M«l 

290 6QSUB 430 

300 Q<B 

31* IF 0"FWltB*4) TREK 360 

320 C»FMH(I*4> 

330 B«C 

340 BOSUI 700 

330 00 TO 730 

34* C-FW(B«2) 

370 H»C 

3B0 BQSUB 630 

390 B«M 

400 IF B-FRH(CM) THEB 45* 

410 IWflflfCtO 

420 M»B 

430 008UB 700 

440 BDTO 730 

430 IF P/2<>IBT(r/2t THEB 300 

440 D"fBM(C*7) 

470 KM 

400 06SUI 70* 

490 80T0 730 
■FRH(C*3) 
Ml 



300 
510 
320 66SUI 630 



530 
540 
330 

3*0 
570 
580 



5-H 

IF S»FBM(I*4) Th£B 390 

E>FNH(P*4> 

fl-E 

909UB 700 

REH 

59* E*FNfl(D+6> 
60* M-E 
41* QOSUB 700 

020 PRINT "THE OABE 13 A BRAU' 
430 GBTQ 210 
440 REH 
650 B0SUB 700 
640 PBIMT "YOUR MOVE"; 
070 INPUT H 
600 RETURN 

700 PRINT -COMPUTER NBVES";R 
710 RETURN 
720 REB 

730 PRINT "ABB UINS ••••**♦•" 
740 B0TO 210 
730 EBB 
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f 



HUflBEREBt' 



'X' Oft '0'-;« 



2 PRIHT TAB(30);-TIC^TAC-T0£" 

4 PRIM T8BU3); - C«EATIVE C0HPUTIH6 

6 mniimnMniHi 

9 HINT "THE BOARD IS 
]• NNiT * 1 2 3' 

PRUT '4 3 4- 

PRIAT - 7 I 9* 

PRJHTiPRINTtPIIMT 

BIN Sf?) 
IHPUT'BO TOO UAHT 

TFCI"*X-THEH475 

Q«-1iH*1tIF8<5K>0THEH103 

9{3>»-1t60T0195 

IF5I3>OHM£HI06 

1F$(1K>0THEJH10 

5U)a-1:S0TO195 

IFSt2)*1ANfl5(l)"OTH£H1S: 

IFSM>»1AH0SU)*0THEN181 

IFS<4)«1AN8 8<? lOTHEMS? 

1FS(8)*1AHBS(9)»8THE*I18? 

IFG-1TKERI12 

G8T01I8 

>3*IRT<IH-1>/3I4I 

IF3*INT(<H-1>/3)«l»NTHENK«t 

IF3*IHT<<H-l)/3l+2-NTH£NK*2 

IF3»I«M («-U/3>*3»HT««K-3 

G0T0120 

F0RJ-1T078TEP3iF8BH-1TO3 

IFS(J><>BTKEH138 

IF3U+2X>flTHEH133 

irO(J*1K>OTHE*130 

8*J*t)»-1*80T01M 

IFS(J>-HT4£N150 

IFS(Jt2JOGlHENIM 

IFSU+UOflTHEmO 

S(j»-ifeoroit3 

IF5(J*2>OOTHCN150 

1F3(J*1)06TH£N130 

SUt2>*-1s60TQ1?5 

Jf6<K)<>OIHEH140 

IFS(K*4H>8TH£N165 

JF3<K*3X>8THEH1?0 

&(K«3)*-1iG0T01t3 

IFS(K>-HfHEH170 

IF8<K*4)OGTKEH170 

IF$(K*3K>8THEIM70 

ftttl — tiOOTOlfS 

IF$U*4>O0THEHI70 

IFS1K+31O6THEN170 

SUU)=-1:GQT0195 

60T0450 

IF$I3)*GAHBS<?>-0THEH187 

lFS(t)<iGAW311}*0THEtft&1 

IF5(7)»QAH8S<3>*0THEH183 

IfS(*)«8AABS<l>"GTHENie9 

IFG—HHEH8»1iH— 1:6010110 

IF5(1>«IAHBS(3M0TH£R182 

F0RI*2I0?:IFSlI)O0THEH17f 

8<I>-1l$8T01t3 

KIT I 

S<1>»-1:08T01« 

IF8<1)'1TKEH1?7 

SU>**-ti60TQlfS 

a*?)— neoTOi« 
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12 
14 
II 
20 
3D 
35 
ao 
in 

102 

103 

184 

183 

104 

187 

188 

18? 

118 

111 

112 

113 

114 

113 

1U 

118 

128 

122 

124 

128 

130 

131 

132 

133 

133 

13ft 

138 

130 

132 

134 

158 

160 

Hi 

142 

143 

143 

144 

148 

170 

171 

172 

173 

174 

173 

174 

177 

178 

17P 

181 

182 

183 

187 

18* 

195 

202 

205 

430 

433 

440 

443 

447 

475 

540 

302 

303 

503 

306 



sm»-t 

PRIHT:PftIHT*TH£ C8HPUTER ftOVES TO..." 

eosuBiooo 

6OT03O0 

IFG'1THEH465 

1F>?ANBK=3THEN463 

NEXTKtJ 

IFS*3)-8THEH171 

80T0175 

Pi="X'tai'"0 fl 

fl3«tIHPUT-UBERE 80 T0U &QVE';H 

If H>0 THEHPRIHT"THAHK8 FOR THE 6Aft£ u tG0TO 2O00 

[FM>f THEM 304 

IFS(HI">QTH£H310 

PRWTHAT SRUARE IS OCCUPIED"tP*INTjPRIHTi80T0300 

6M:S(H)*1 



510 

320 &0SU8 1000 

330 88T0 100 

1400 PRIHTrF8RI»lI0?iPRINT 

1012 PRINTG8" -;t60T01020 

1814 IF SfHOOTHEH 1018 

1016 FRIJtT* ";:6flT01020 

1018 TRIHTPO- •; 

1020 IFIO3AMIIO4THCH1050 

1030 PRIHTiPRWr — *— f 

1040 GOTO 1080 

1850 IFU9THEN1080 

1040 PRINT"!*: 



";:IFS(I)O-1TltEM>014 



TfBO KXTIlPfllKTtPRIHTlPRINT 

14P3 FOR I-IT878UP3 

1100 1FS<I)<>841*1)THEH1113 . 

1105 IF8U)OSUt2)THE»M15 ■"■ 

1110 1FS<I>*-1THEH1330 

1112 IFSU)«1THE81280 

1115 NEXn*F0RI"1T03iIF8<I)OS<I*3>THEIH150 

1130 IfSUK>S<!«4)TH£Jm30 

1133 lFSm»-tTHEH1350 

1137 !f$(I>»1THEN12O0 

1150 H XT I « FOR I ■> 1 TO? « 1FS II) -OTHEJIt 155 

1152 HEXTIiBOTOHOO 

1153 iFS(5)O8THEH1170 

1160 IFS(1)3G4MI5m-6THEK1180 

1145 IFS<3>*GAHB5(7)"GTHEH1180 

1170 RETUIH 

1180 lF0«-1?HE*O350 

1200 PRINT*YQU BEAT HE! • GOOD BArtE"! GOT 02000 

1350 PRINT"! UIN, TURKtl ! I! ■;08TO2O0O 

MOO PRINT-IT'S A DRAU. THANK YOU" 

2000 EH 5 



TIC-TAC-TOE 
CREATIVE COHPUTIHG HDRRISTOUN, M£U JERSET 



THE BOARD 18 HUH&EREl 

1 2 3 

4 5 4 

7 8 f 



BO YOU UAKT 'X' OR '0'? X 

UHEffE 80 VCu B QVE? 5 

! I 

( X I 

— * 1 

I I 



THE COMPUTER MOVES TO... 
8 ! 1 
1 X I 



UHERE 80 YOU HOVE? 7 
I 1 



1 I 1 X 

™f— f — 

XI .J. 



THE COMPUTER H3VE5 TO., 

1 10 

* 4 

1)11 

X i I 



WERE BO TOU ItOVEt 2 



I 



UHERE DO YOU HOVET 4 

o i ; 

— * — p — 

I X I X 

I I 



THE COMPUTER ROVES TO, 



I X ! X 

-♦ — + — 



I I X IX 



THE COMPUTER nSVES TO, 
D I I I 
I X 1 X 

X I I 



UHERC 80 YOU HOVE? ? 

8 I X 1 

f X 1 X 
— * — l» M 

X 1 I X 
IT'S A QftAU. THANK YOU 
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Thisisasimulationofagameoflogic 
that originated in the middle East. It is 
sometimes called Pharoah's Needles, 
but its most common name is the 
Towers of Hanoi. 

Legend has it that a secret society ot 

monks live beneath the city of Hanoi. 

They possess three large towers or 

needles on which different size gold 

disks may be placed. Moving one at a 

time and never placing a larger on a 

smaller disk, the monks endeavor to 

move the tower of disks from the left 

needle to the right needle. Legend says 

when they have finished moving this 

64-disk tower, the world will end. How 

many moves will they have to make to 

accomplish this? If they can move 1 

disk per minute and work 24 hours per 

day, how many years will it take? 

In the computer puzzle you are faced 
with three upright needles. On the 
leftmost needle are placed from two to 
seven graduated disks, the largest 
being on the bottom and smallest on 
the top. Your object is to move the 
entire stack of disks to the rightmost 
needle. However, you may only move 
one disk at a time and you may never 
place a larger disk on top of a smaller 

one. 

In this computer game, the disks are 
referred to by their size — i.e., the 
smallest is 3, next 5. 7, 9. 11, 13. and 15. 

If you play with fewer than 7 disks 
always use the largest i.e. with 2 disks 
you would use nos. 13 and 15. The 
program instructions are self- 
explanatory. Good luck! 

Charles Lund wrote this program 
while at the American School in the 
Hague, Netherlands. 



THIERS 

attain tMmim horristoun, reu jerset 



TOWERS OF HANOI PUZZLE 

YQI KUST IRARSfER THE DISKS FROR THE LEFT 10 THE RI6HI 
TWER, ME « A TINE, NEVER MTTUB A LAR6ER DISK 0* ft 
SRALLEft DISK* 

HJJ ttftRT DISKS DO TOR UART TO HRVE <7 IS RAX)T 3 

IN THIS rROSRAfl, HE SHALL REFER IB RISKS RT MUNEKICAL COM. 
3 WILL REPRESENT THE SHALLEST DISK, 3 THE NEXT SIZE, 
7 THE «H, MD SO OK, UP TO IS. IF 10U 10 TRE PUZZLE UITH 
2 RISKS. THEIR CDBE IMES WULI RE 13 AND 13* WITH 3 DISKS 
THE C0OE HARES U0OLR It U, 13 AND 15, ETC. THE NEEDLES 
ARE RUHRCREI FAOK LEFT TO AIBIT, I TO 3. UE "ILL 

start uith the disks oh needle 1, and attenpi 10 hove tkeh 
ii needle 3. 

oqob luck! 



* 
* 
* 



i 

«t*t*Mt*ff * 

UHICH DISK ROULI YOU LIKE TO ROVE? 11 
PLACE RISK OR UH1CH NEEDLE? 3 

• * 

• * 

• * 

UHICH RISK UOULD TOU LIKE TO HOVE? 13 
PLACE RISK OH KHICH HEEN-E? 2 



* 
* 



* 
* 



* 
* 



UHICH DISK UOULD YQU LIKE TO ROVE? II 
PLACE DISK OH UHICH NEEDLE? 2 



4 
* 



* 
* 
* 



UKICH DISK WULD 10U LIKE TO HOVE? 13 
PLACE DISK ON WHICH NEEDLE? 3 

I * 

f »«*»*•»*•* 

I MMHtttttM 

UHICH DISK U0OLR TOR LIKE TO HRVET 13 



* 
* 



• 



* 
* 
* 



* 

4 

* 



THAT RISK IS iELOU MOTHER ORE, HAKE AHOTHER CHOICE 
UHICH RISK ROULD tOO LIKE TO HOVE? 11 
PLACE RISK OR WHICH NEEILET t 



• 



* 
* 



it* 



UKKH DISK UOULD TOU LIKE TO HOVE? 13 
PLACE DISK OR MICH WEDLE? 3 

* * 

• * 
t • 

* • 

• * 
M*mo*M* • 

URICH DISK UQULI TOW LIKE TO HOW? 11 

PLACE DISK ON UHICH NEEDLE? 3 

4 • 

• • 

# * 

CRN6RITULAT10RS11 

YOU HAVE KRFORKER THE TASK IN 7 MOVES. 

1RT AGAIN (TES Ot NO)? HO 

THAHKS FOR THE SArtEl 



. * 
* 



* 
• 



* 
* 
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*0 PRINT TAR<33);"T0UERS" 

20 PRIHT TriBCI5) ["CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 

10 PRINTlPRINT:PRINT 

?0 PRINT 

100 REN*o INITIALIZE 

tlO BIN T(7 t 3) 

120 1*0 

130 FOR 1-1 TO 7 

140 FOR H'\ TO 3 

ISO T<D,N>-0 

UO NEXT N 

170 NEXT D 

180 PRINT "TOWERS OF HANOI PUZZLE't PRINT 

200 PRUT "YOU MUST TRANSFER THE DISKS FROH THE LEFT TO THE RIGHT** 

205 PRINT "TOUER, ONE AT A TIME, NEVER PUTTING A LARGER BISK ON A 1 * 

210 PRINT "SMALLER DISK,"; PRINT 

213 INPUT "HOtf MANY DISKS DO TOO WANT TO HOVE (7 15 HAX)";S 

220 PRINT 

230 N-0 

240 FOR 0*1 TO 7 

250 IF Q*S THEN 350 

200 NEXT 8 

270 E»E*1 

260 IF E>2 THEN 310 

290 PRINT "SORRY, RUT I CAN'T DO THAT JOB FOR YOU, 1 *: SOTO 213 

310 PRINT "ALL RIGHT, UISE OUT, IF YOU CAN'T PLAT THE BAKE RIGHT, I'll* 

320 PRINT "JUST TAKE NY PUZZLE AND GO HOME. SO LONG.": STOP 

340 REN •*» STORE BISKS FROH SMALLEST TO LARGEST 

350 PRINT "IN THIS PROGRAM, UE SHALL REFER TO BISKS BY NUMERICAL CODE." 

355 PRINT "3 HILL REPRESENT THE SMALLEST BISK, 5 THE NEXT SIZE." 

340 PRINT "7 THE NEXT, AND SO ON. UP TO 15, IF YOU DO THE PUZZLE WITH* 

365 PRINT "2 BISKS, THEIR COIE NAMES UOULI BE 13 ANI 15. UITH 3 DISKS' 

370 PRINT "THE CODE MAKES UOULO BE II, 13 ANI 15, ETC. THE NEEDLES" 

375 PRINT "*RE NUMBERED FROH LEFT TO RIGHT, 1 TO 3. UE UIU* 

380 PRINT "START UITH THE DISKS ON NEEDLE I, AND ATTEMPT TO HDVE THEh" 

383 PRINT "TO NEEDLE 3." 

3*0 PRINTi PRINT "&OBD LUCKl": PRINT 

400 Y«7i B»15 

420 FOR X"S TO 1 STEP -1 

430 TIY t 1 l-»i D"R-2t Y»Y-1 

460 NEXT X 

470 603UD 1230 

400 PRINT "WHICH BISK UOULD YOU LIKE TO ftQVE";tE*0 

500 IHPjBT I 

510 IF <D-3>*<B-3)»(D-7>*<D-9U<B*int<l-13>»(D-15)»0 THEN 5B0 

520 PRINT "ILLEGAL ENTRY.., YW* HAT ONLY TYRE 3,5,7*9,11 ,13, OR 15." 

530 E*E*1t IF E>» THEN 560 

550 SOTO 500 

560 PRINT "STOP VASTIHG NT TIRE. BO BOTHER SOMEONE ELSE,"" STOP 

5B0 RER *•• CHECK IF REQUESTED DISK IS DELOU ANOTHER 

590 FOR R"t TO 7 

600 FOR CI to a 

610 IF T(R t C)«B THEN 640 

620 NEXT Cl NEXT R 

640 FOR l«R TO 1 STEP -1 

645 IF HO,C>*0 THEN 660 

650 IF T(0,CKD THEN 660 

660 NEXT 8 

670 SOTO 700 

680 PRINT "THAT BISK IS BELOW ANOTHER ONE, HAKE ANOTHER CHOICE," 

690 SOTO 400 

700 E'O 



70S INPUT -PLACE IISK ON UHICH NEEDLE";N 
730 IF fN-1**<N-2)*(N-3)»0 THEH BOO 
735 E*E*1 

740 IF E>t THEN 760 

750 PRINT "I'LL ASSUME TOO HIT THE URDUS KEY THIS TIME. BBT BATCH IT, 

760 PRINT "I ONLY ALLDU ONE MISTAKE.": 6BT0 703 

7B0 PRINT "I TRIED TO WARN YON, BUT YOU WOULDN'T LISTEN." 

7*0 PRINT "BYE BYE, BIO SHOT,'* STDP 

800 FOR R*l TO 7 

810 IF TfR»N><>0 THEN 840 

820 NEXT R 

030 SOTO 8B0 

835 REM *** CHECK IF BISK TO DE PLACEB OH A LARDER ONE 

840 IF D<T(R f N) THEN 880 

850 PRINT "YOU CAN'T PLACE A LAR6ER BISK OH TOP OF A SMALLER ONE," 

660 PRINT "IT NIGHT CRUSH IT!": PRINT "NOV THE, ";iOOTO 460 

673 REM M» HOVE RELOCATED BISK 

6B0 FOR VI TO 7: FOR U<1 TO 3 

900 IF T<V,«)-D THEN 930 

910 NEXT Ui NEXT V 

925 REN ••* LOCATE ENPTT SPACE ON HEMLt N 

930 FOR U"1 TO 7 

940 IF T<U,HX>0 THEN 970 

950 NEXT J 

960 U*7i GOTO 960 

965 REM **» MOVE BISK AND SET OLD LOCATION TO 

970 U*U-1 

9B0 T(U,N>*T<V,U>| T(V,U)«0 

995 REM •*• PRINT OUT CURRENT STATUS 

1000 GOSUB 1230 

1018 REN Mi CHECK IF DONE 

1020 H«H+1 

1030 FOR R*l TO 7; FOR C"l TO 2 

1030 IF T(R,CK>6 THEN t090 

1060 NEXT Ci NEXT R 

1080 SOTO 1120 

1090 IF iK- 12fl THEN 480 

1100 PRINT "SORAT, BUT I HAVE ORDERS TO STOP IF YOU HAKE MORE THAN' 

1110 PRINT "126 MOVES. "i STOP 

1120 IF H02'S-t THEN 1140 

1130 PRINT "CONGRATULATIONS!!* 

1140 PRINT -T06 HAUE PERFORMED THE TASK IN";H;"HOVES.' 

1150 PRINT: PRINT "TRY AGAIN (YES OR NOr;i INPUT At 

1160 IF AO«"NO" THEN 1390 

1170 IF A**"YES" THEN 90 

1180 PRINT: PRINT "'Y£9' OR 'NO' PLEASE";: INPUT A*: GOTO 1160 

1230 REM ••« PRINT SUBROUTINE 

1240 FOR K»1 18 7 

1250 Z=1C 

1260 FOR >1 TO 3 

1270 IF TtK,J)*0 THEN 1330 

1260 PRINT TAB(Z-IHT<T(K t J>/2)>; 

1290 FOR V<1 TO T<K,J> 

1300 PRINT "»"; 

1310 NEXT V 

1320 SOTO 1340 

1330 PRINT TAB(Z>; W «"; 

1340 2=2*21 

1350 NEXT J 

1360 PRINT 

1370 NEXT K 

1380 RETURN 

1390 PRIHI; PRINT "THAMKS FOR THE OAME»"| PRINT? END 
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Train 



A 



* * • 




TRAIN is a program which uses the 
computer to generate problems with 
random initial conditions to teach 
about the time-speed-distance 
relationship (distance = rate x time). 
You then input your answer and the 
computer verifies your response. 

TRAIN is merely an example of a 
student-generated problem. Maximum 
fun (and benefit) comes more from 
writing programs like this as opposed 
to solving the specific problem posed. 
Exchange your program with others — 
you solve their problem and let them 

solve yours. 

TRAIN was originally written in 
FOCAL by one student for use by 
others in his class. It was submitted to 
us by Walt Koetke, Lexington High 
School. Lexington, Mass. 

TRAIR 

creative cbkputiw norristoun, nem jersey 



TINE - 8PEEI DISTANCE EXERCISE 

A CAR THVELIW 3* HPH CAM HAKE A CERTAIN TRIP IN 
11 HOURS LESS THAN A TRAIN TRAVELING AT H (1PH. 

HflU L0N8 DOES THE TRIP TARE IT CAR* 23 

GOOD' AHSUER WITHIN 4 PERCENT. 

CORRECT AHSUER IS 22 HOURS. 

ANOTHER PROBLEH (YES OR NO)? YES 

A CAR TRAVELINB 40 HP* CAN HAKE A CERTAIN TRIP IN 
14 HOURS LESS THAN A TRAIN TRAVELING AT 34 HPH. 

HON LONB WES THE TRIP TARE BY CAR* 20 

SORRY. TOU UERE OFF BY 29? PERCENT. 

CORRECT AISUER IS 7f.3333 HOURS. 

AIOTHER PROBLEM (YES OS NO)? YES 

A CAR TtMELIH 47 NPH CAN WAKE A CERTAIN TRIP IN 
16 HOURS LESS THAN A TRAIN TRAVELING AT 22 HPH. 

HBU L0N6 I0ES THE TRIP TAKE BY CART 14 

OflQD! ANSWER WITHIN 1 PERCENT. 

CORRECT ANSUER IS 14. OB HOURS. 

AUTHEI PROBLEM (YES OR NO)? NO 



CQHPUTHB NORRISTOUN, NEtf JERSEY" 



1 PRINT TAB(33);-TRAir 

2 PRINT TAB(!3);"CREATIVE 

3 PRINTi PRINTi PRINT 

4 PRINT "TINE - SPEED OISTANCE EXERCISE"! PRINT 
ID C-INT<23*RNDI1))»40 

D«INT(I9>RND(I))*S 

T«INT(I?»RND<1>>*20 

PRINT - A CAR TRAVELIH8';C;"HPH CAN HARE A CERTAIN TRIP 

PRINT D;*H0URS LESS THAN A TRAIN TRAVELINB AT"JT;-RPH.- 

PRINT "HBU LONS DOES THE TRIP TARE BY CAR"; 

INPUT A 

V-D»T/(C-TI 

E-INT<AD3((V-A)*1«0/A)*.5) 

IF E>3 THEN 79 

PRINT -BOOB! ANSUER til TMN';E J "PERCENT." 



15 
20 
2S 
3D 
33 
41 
45 
50 
33 
Off 
6\ 
?0 



If 



6QT0 81 
PRINT • 
PRINT ' 
PRINT 
PRINT ' 
100 INPUT 
103 PRINT 
110 IF hi- 
999 END 



SORRY. YOU WERE OFF BY";E;-PERCENT, 
CORRECT ANSWER IS';V;-H0URS." 



90 
93 



ANOTHER 
M 



PROBLEB IYE5 Oft NO)' 



"TES" THEN 10 
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This is another in the family of "guess 
the mystery number" games. In TRAP 
the computer selects a random number 
between I and 100 (or other limit set in 
statement 20) . Your object is to find the 
number On each guess, you enter 2 
numbers trying to trap the mystery 
number between your two trap 
numbers. The computer will tell you if 
its number is larger or smaller than 
your trap numbers or if you have 
trapped the number. 

To win the game, you must guess the 
mystery number by entering it as the 
same value for both of your trap 
numbers. You get 6 guesses (this 
should be changed in statement 10 if 
you change the guessing limit In 
statement 20), 

After you have played GUESS. 
STARS, and TRAP, compare the 
guessing strategy you have found best 
for each game. Do you notice any 
similarities? What are the differences? 
Can you write a new guessing game 
with still another approach? 

TRAP was suggested by a 10-year 
old when he was playing GUESS. It was 
originally programmed by Steve Ul- 
(man and extensively modified into its 
final form by Bob Albrecht of People's 
Computer Co, 



I RAP 
CREATIVE COMPUTING HORRIST0WN, NEU JERSEY 

INSTRUCTIONS! YES 

I AH THINKING OF A MUrtlEft BETUECN 1 AN* 100 

TIT TO 0UCSS hi HUflBER. OH EACH GUESS, 

TOU ARE TO ENTER 2 NUABER5, TRYING TO TRAP 

NT NUMBER BETWEEN THE TUQ HUHBERS. I UJLL 

TELL TOU IF YOU HAVE TRAPPE1 HT UMBER, IF AT 

NUflBER IS LARGER THAN TOUR TU0 ftUttlERS, OR IF 

AT NUMBER IS SIALLER THAN TOUR TU0 NUHBERS. 

IF YW VAKT TO GUESS ORE SINGLE WWBER, TYPE 

YOUR GUESS FOR BOTH YOUR TRAP MUHBERS, 

YOU HT * 8UE55ES TO SET IT NUNBEft. 

GUESS B 1 T 23,75 

YOU HAVE TRAPPED NT NUMBER. 

GUESS B 2 T 40,40 

HT RUBBER IS SMALLER THAN YOUR TRAP NUMBERS. 

GUESS I 3 T 30,37 

YOU HAVE TRAPPED HY NUMBER. 

GUESS * 4 T 34,34 

YOU HAVE TRAPPED HY NUHBER. 

GUESS I5f 55,35 

HT UMBER IS SBAUER TH« TOUR TRAP NUMBERS. 

GUESS M? 34,34 
YOU SOT ITHI 

TftT ABAIN* 



KORRISTflim, HEU JERSEY' 



GUESS I 1 1 30,80 

YBU HAVE TRAPPER NY NUMBER. 

GUESS B 2 T 30,60 

NT NUNBER IS SNALLER IMAM YOUR TRAP NUMBERS, 

QJES3 B 3 t 35,43 

HT MMBEt IS SNALLER THAN YOUR TRAP NUhBERS. 

OBESS B 4 f 32,34 

YOU HAVE TRAPPED NY HUHBER. 

GUESS B 3 T 33,33 

NT NUMBER IS SNALLER THAN YOUR TRAP NUMBERS, 

BUESS I 6 T 32,32 
YOU HT IT! If 

1 PRINT TAB«34);*TRAP" 

2 PRINT TAB(15);*XREAI1UE C8HPUIIN8 

3 PRINTiPRIHTiPRINT 
.0 6" A 

20 N-100 

30 REN- TRAP 

40 REN-STEVE ULLHAN, 6-1-72 

« PRINT -IHETEUCTiawS'"; 

At INPUT IS 

?t IF LCFH(2«»tK>-Y- TNEN ISO 

80 PRINT "I AN THINKING OF A NUrtBER DETUEEN 1 AND fl ;N 

90 PRINT "TRY TO GUESS NY NUMBER. ON EACH 6UESS," 

100 PRINT "YOU ARE TO ENTER 2 NURBERS, TRYING TO TRAP* 

110 PRINT "HT NUrtBER BETUEEN THE TU0 NUMBERS, I ttlLL" 

120 PRINT "TELL YOU IF YOU NAVE TRAPPED HT MMKft, IP HY" 

110 PRINT •NUHBER IS IARBER THAN TOUR TWO NUHJERS, 0« IF" 

140 PRINT # HY HUrtflER IS SNALLER THAN TOUR TUO NUMBERS." 

150 PRINT "If YOU WART TO 0UES8 ONE SINGLE NUMBER, TYPE- 

UO PRINT 'TOUR GUESS FOR BOTH YOUR TRAP NUHIERS*" 

170 PRINT 'TOU 8ET"{B; H flll£S8ES TO GET HY RUHBER." 

180 X-lNTCNtftNfliniH 

1?0 FOR 0"1 TO 

200 PRINT 

210 PRINT -GUESS i*';Q; 

220 INPUT A,B 

230 IF A=B AND X=A THEN 400 

240 IF A <* I THEN 240 

230 80SUB 360 

2M If A <• X AND X <■ I THEN 320 

270 IF X<A TNEN 300 

280 PRINT -HY NUA1£R IS LARGER THAN TOUR TRAP NUMBERS.' 

2*0 SOTO 330 

30* PRINT H NY HUftKR IS SIALLER THAN YtUVt TRAP NUMBERS." 

310 SOTO 330 

321 PRINT "TOU RAVE TRAPPED NY NUHBER." 

330 NEXT 

340 PRINT "SORRY, THAT'S";G; H GUESSES. NUMBER VAS M ;X 

330 SOTO 414 

340 R^fl 

370 A-l 

390 l-ft 

3Y0 RETURN 

400 PRINT "YOU SOT 111 II* 

410 PRINT 

420 PRIHT -TRY AGAIN." 

430 PRINT 

440 GOTO ISO 

130 END 
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In the game of twenty-three matches, 
you start with 23 matches lying on a 
table. On each turn, you may take 1 , 2, 
or 3 matches. You alternate moves with 
the computer and the one who has to 
take the last match loses. 

The easiest way to devise a winning 
strategy is to start at the end of the 
game. Since you wish to leave the last 
match to your opponent, you would 
like to have either 4. 3, or 2 on your last 
turn so you can take away 3, 2, or 1 and 
leave 1. Consequently, you would like 
to leave your opponent with 5 on his 
next to last turn so, no matter what his 
move, you are left with 4, 3, or 2. Work 
this backwards to the beginning and 
you'll find the game can effectively be 
won on the first move. Fortunately, the 
computer gives you the first move, so if 
you play wisely, you can win. 

After you've mastered 23 Matches, 
move on to BATNUM and then to NIM. 

This version of 23 Matches was 
originally written by Bob Albrecht of 
People's Computer Company. 



23 MICHES 
CSEATIVC CONFUTIM HOIPISTQMI, NEU JERSEY 

THIS 15 A MlE CALLED '23 HATCHES'. 

UIEM IT H YOUR TURN, TOU MY TAKE ONE, TUO, OR THREE 
MICHES. THE OBJECT Of THE SHE IS HOT 10 HAVE TO TAKE 
THE LAST HATCH. 

LET'S FLIP A COIN 10 SEE UHO B0E8 FUST. 
IF IT CQHCS UP HEAB3, I WILL UIN THE TOSS. 

HEABSI I MINI HAI Ml 

PREPARE II LOSE, HEATMLL-NOSE II 

I TAKE 2 HATCHES 
THE NUHBER Of HATCHES IS NGU 21 

VSUR TURK - YOU MI TAKE 1,2,« 3 MICHES. 
HON HAHY DO YOU U1SK 10 REHOUE T 3 

THERE AIE HOU 18 HATCHES REHAINIRG. 
MY TURN 1 I REHOUE 1 HATCHES 
THE KUHIER OF MICHES IS KOU 17 

YOUR TURH — YOU MY TAKE 1,2,08 3 HATCHES. 
HOU HAHY SO YOU U1SK TO REHOUE T I 

THESE AIE HOU 14 HATCHES BEHAINIH8. 
MY TURH I I REftOVE 3 HATCHES 
THE HUHHR OF MTCHES IS HOD 13 

YOUR TUIH -- YOU HAY TAKE t,2,tt 3 HATCHES. 
HtU HAHY 10 YOU UI8H TO 8EH0W 1 1 

HERE ARE HOU 12 HATCHES REHAIHIH8. 
MY TURK I I REMOVE 3 MTCHES 
THE HUHIER OF MATCHES IS IOU f 



YOUR TURH -- YOU HAT TAKE 1.2.0R 3 MTCHES. 
HOU HAHY DO YOU UI3H TO REHOtfE ' » 

THERE ARE HOU 8 HATCHES RENAIHIW. 
MY TURH ! I REMOVE 3 HATCHES 
THE HUHIER OF HATCHES IS HOU 3 

IflUR TURH - IOU HAY TAKE l,2,M 1 MATCHES. 
HOU HAHY DO YOU UISH TO REHOUE Y 2 

THERE ARE HOU 3 HATCHES REHAINIH8. 
MY TURH 1 I REHOUE 2 MATCHES 

YOU POOR BOOB I YOU TOOK THE LAST MICH I I GOTCHA 
HA ( HAI I BEAT YOU Ml 

GODS BYE LOSER! 



4B PRIHTsPRIHTiPRIHT 

80 PRINT ■ THIS IS A SAME CALIEI '23 MTCHES'." 

"/Jllll "UHEH IT IS YOUR TURH, YOU HAY TAKE ONE, TUB, OR THREE" 
"HATCHES. THE OBJECT OF THE 6AHE IS NOT 10 HAVE TO I AXE' 
■THE LAST MTCH." 



110 PRINT 
120 PRIHT 

14« PRIHT 'LET'S FLIP A COIH TO SEE UHO 60E5 FIRST." 
'If IT COHES UPHEAI8 ' T "" 



1 UJLL UIH THE TOES.' 



150 PRIHT 

135 PRINT 

140 REM 

143 H ■ 23 

170 - INII2«8HB(5H 

ISO IF ■ I THEM 210 

Itt PRIHI "TAILS I YOH SO FIRST ■ 

1« PRIHT 

2A0 DOTO 300 

210 PRINT "HEADS! I UINt HAI HA!" 

22B PRIHI "PREPARE TO LOSE, NEATMLL-WSE II" 

230 PRIHT 

250 PRIHT ■ I TARE 2 HATCHES' 

240 H ■ H -2 

270 PRINT "THE HUHIER OF MATCHES IS HOU" N 

I" PRIHI "TOUR TURN -- YIU MY TAKE 1,2,0* 3 MATCHES." 
30O PRINT "HOH MARY Bl YflU UISH TO REH6VE", 

310 INPUT K 

320 IF K > 3 THEN 430 

311 IF K « • THEN 430 

340 N • N - K 

350 PRIHT "THERE ARE HOH "^"HATCHES REMAINING." 

331 IF N ■ 4 THEN 311 
352 IF H • 3 THEN 3B3 
383 IF N • 2 THEN 383 
340 IF N <• 1 THEN 330 
370 I • < - K 
372 GB10 390 
360 PRIHT 
381 I * 3 
3B2 6OT0 3)0 

383 Z • 2 

384 SOTO 3« 

383 Z ■ 1 

3»0 PRINT "HY TURN I I REHOUE" I "HATCHES' 

400 H ■ N - I 

41* IF N < ■ 1 THEN 470 

420 SOTO 27* 

430 PRINT "WERT FUMY I DUMHY1" 

440 PRIHI "DO YOU UAHI 10 PLAT OR GOOF AROUND T* 

430 PRINT "HtU HOU HAHY HATCHES DO YOU UANT", 

440 OOTO 310 

480 PftlNT-YOl) POOR BOOS I YOU IOOX THE LASI MATCH I I OOTCHA 11' 

490 PRIHI 'M I HAI I BEAT YOU lit* 

300 PRINT 

510 PRINT "BOOB BYE L0SER1" 

520 SOTO 340 

530 PRINT "YOU UOI, FLOPPY EARS I" 

540 PRINT "THIHK YOU'RE PRETTY SMART I" 

350 PRINT "LETS PLAY AOAIK ANB I'LL BLOU YOUR SHOES OFF II" 

340 STOP 
370 EMI 
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This program plays the card game of 
A/ar. In War, the card deck is shuffled, 
hen two cards are dealt, one to each 
player. Players compare cards and the 
higher card (numerically) wins- Incase 
of a tie. no one wins- The game ends 
when you have gone through the whole 
deck (52 cards, 26 games) or when you 
decide to quit 

The computer gives cards by su it and 
number, for example. S-7 is the 7 of 

spades. 



UAR 
CREATIVE COMPUTUS nORRISTQUrt, HEU JERSEY 

TNIS IS THE CARD SAME OF UAR. EACH CARD IS 6IVEH IY SUIT-I 
AS $-7 FOR SPADE 7. SO YOU UANT DIRECTIONS? YES 
THE CMPUTER flIVES YOU AND IT A 'CARD'. THE HIGHER CARD 
(HUffEtlCAUT) UIHS. THE GAME CND5 UHEN YOU CHOOSE NOT TO 
CONTINUE OR WE* TOU HAVE FINISHED ™E PACK. 



YIU: S-IO COHPUTERi S-2 

YOU NIN. YOU HAVE 1 COMPUTER HAS 

ID YOU RANT TO CONTINUE? YES 

tOUt S-t COMPUTER! H-J 

COMPUTER NIRStM YIU HAVE 1 COMPUTER HAS 1 

ID YW IAIIT TO COHTINUET YES 

YIU: $-3 COMPUTER: D-3 

YIU MM. YOU HAVE 2 COMPUTER HAS 1 

Dl tail HART TO CONTINUE? YES 

YIU: S-R COKPUTERi H-Q 

YIU yiR, TOU HAVE 3 COMPUTER HAS l 

II TOU UANT TO CONTINUE! YES 

YIU: C-10 COMPUTER: C-8 

YIU UtH. YOU HAVE 4 COMPUTER HAS 1 

OS YOU UAMT TO CONTINUE? YES 

YOUt H-3 COflPUTER: C-3 

TIE. HO SCORE CHANGE, 

00 YOU UAtfT TO COHTItfUET YES 



YOU! H-A 

YOU UIH. YOU 

DO TOU VANT TI 



COMPUTER: 5-4 
HAVE 5 COMPUTER HAS 1 
CONTINUE? YES 



YOU: D-K CWiPUTERi C-K 

TIE. HO SCORE CHANGE. 

DO YDU UAJU TO CONTINUE? YES 

YW: C-J CONPUTERi C-? 

COMPUTER MRS HI YOU HAVE 5 
DO YOU UAMT TO CONTINUE? YES 

YOU: H-7 COMPUTER: C-fl 

COMPUTER KIWI 1 1 YOU HAVE 9 
DO TOU UAHT TO CONTINUE! YES 



CQHPUUR HAS 2 



COMPUTER HAS 3 



10 PRINT TA9(33>;*UAR* 








21 PRIRT TAB(15>;"CR£AUYE COflPUYIttO 


MWRISTOUI' r HtL .ssr . '- 


31 PRINT: PRINT: PRINT 








tlO PRINT "THIS IS THE CARD SAME OF 


UAR. EACH CARD 


IS GIVEN DY SUIT 


110 PRINT "AS 3-7 FOR 3PAIE 7. *; 








120 PRINT "DO YOU VAN! DIRECT JONS' 1 ; 








130 IMPUT SI 








140 IF D»-"M9' TIER 211 








150 IF D»«"YES" THEN 110 








160 PRINT -YES OR HO, PLEASE, •( 








170 SOTO 120 








180 PRINT "THE COMPUTER OIVES TOU AND IT A 'CARD'. 


THE HI6HER CARD* 


190 PRINT "(NUMERICALLY) WINS. THE 


GAME ENDS 


UHEN YOU CHOOSE HOT TO 


210 PRINT "COMTINOE OR UHEN TOU HAVE 


FINISHED 


THE PACK*" 


210 PRINT 








220 PRINT 








230 DIM A*<S2*»L(54> 








240 FOR 1-1 TO 52 








250 READ At(I> 








240 NEXT I 








270 REN 








210 FOR J"1 TO 32 








2*0 LET LtJ>«IHT<92iRRDm>t1 








2?5 If ±*\ THEM 350 








300 FOR U\ TO J-1 








310 IF tmOLU) THEN 340 








320 REM 








330 GOTO 290 








340 REIT K 








350 NEXT J 








341 P«P*1 








371 HI -UP) 








310 P=P+! 








3tO H2=L<PI 








400 PRINT 








420 PRINT 'TOU: ";«<H1) ? - CWtPUTER! 


rt ;AI(H2) 






430 NI=INT{(H1-,5)/4> 








441 R23lRU(H2-.5>/4> 








450 IF N1>-M2 THEN 470 








460 A1-AH1 








470 PRINT "COWUTER UIN3H! YOU HAW 


;-;Bf;" cowf ; i r r rw;*] 


490 GOTO 340 








4*1 IF Nl-tU THEN 530 








300 lt>ll+1 








510 PRINT "TOU UIH. YOU HAVE";!!;" 


COMPUTER HAS*;A1 


520 GOTO 540 








330 PRINT "TIE. HO SCORE CHAHOE." 








340 IF L(ptt)>0 THEN 610 








330 PRIRT "ID TOU UArtT TO CONTINUE-; 


1 
1 






5*0 INPUT VS 








570 IF VS»"YE5" YMEN 340 








580 IF Vf'NO- THEN 430 








5*0 PRINT -YES OR NO, PLEASE, "J 








6C0 60T0 540 








610 PRINT 


- 






620 PRINT 








630 PRINT *YOU HAVE RUN OUT OF CARDS. FINAL 


SCORE; 


rait"" ;ii; 


640 PRINT '; COMPUTER-*;*! 








450 PRINT "THAMKS FOR PLAYINfl. IT WAS FUR." 






610 DATA ■5-2VH-2VC-2V0-2VS- 


;3' f "^-3-| 


"C-3\ 


"1-3" 


470 RATA i S-4% i W% , C-«V"l-«% i 8- 


5%"H-5- ( 


"C-5" ( 


"1-3" 


680 DATA *3«4 l, # "H-6" t "C-4- > "D-4" ? "S* 


7-,-«-7-, 


"C-7% 


"0-7" 


4*0 DATA *S-8" f # H-0VC-8 l, ( *D-BVS- 


*?VH-?% 


-c-*-, 


"1-9" 


700 DATA "S*10 - f "H*10" t "C-lO** f , *»-H>' 


VS-JVH 


l-J",'C 


*JVR-J" 


710 RATA -S-OVH-OVC-OVD-OVS' 


K%"H-K" t 


*C-K* ( 


»!-*• 


720 DATA "B-AVH-AVC-AVD-A" 








?** END 
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This program gives facts about your 
date of birth (or some other day of 
interest). It is not prepared to give 
information on people born before the 
use of the current type of calendar, i.e. 

year 1582. 

You merely enter today's date in the 
form — month, day, year and your date 
of birth in the same form. The computer 
then tells you the day of the week of 
your birth date, your age, and how 
much time you have spent sleeping, 
eating, working, and relaxing. 

This program was adapted from a GE 
timesharing program by Tom Kloosat 
the Oregon Museum of Science and 
Industry. 

CREATIVE COHPUriHQ MOER19T0UH, NEU JERSEY 

IIECUIY IS A COMPUTER. DEMONSTRATION THAT 
OIVES fACTS ABOUT A DATE Of INTEREST TO TOU. 

EITEK TODAY'S DATE IN THE FlRMl 3,24,1978 T , ' 7 ' l " 8 OD 
ENTER DAY Of BIRTH (OR AT** W OF INTEREST!? 12,2,1999 

12 / 2 / lltl HILl « * THHRSBAY 



UEEKBAT IS A COMPUTER BEHONSTIATIC* THAT 
OIVES FACTS ABOUT A IATE OF INTEREST TO TOU. 

ENTER TOWS DATE II THE FORMl 3,24,197$ 9 12,1,1977 
ENTER DAT OF BIRTH (OP OTHER DAT OF INTEREST)! 4,12,1952 



4 1 12 / 1952 MAS A SATURDAY 


YOUR flBE IF BIRTNBATE 

YOU HAVE SLEPT 

YDS NAVE EATEN 

YOU HAVE BORKEB/PLAYEB 

YOU HAVE RELAXED 


YEARS 
25 

a 

4 
1 
6 



MONTHS 


BAYS 


7 


19 


11 


24 


4 


10 


10 


27 


4 


IB 



10 POINT TA|(32>;-UE£KDAY- 
20 PRINT HI(!S);"CRE«TI*£ 

30 PKINIiPRINTtPIINT 

140 PRINT -yEEKlAY IS A COHPUTER DEMONSTRATION 

■aiVES FACTS ABOUT A BATE OF INTEREST 



•YDU NAT RETIRE IN 2017 • 



110 
120 

130 

140 

150 
140 

170 

ICO 

no 

200 

210 

220 

230 

240 

250 

240 

270 

280 

290 

3*0 

310 

320 

310 

3*0 

350 

340 

370 

380 

390 

410 

410 

420 

430 

440 

430 

440 

470 

480 

418 

3(0 

310 

92* 

530 

540 

530 

5t« 

570 



PRINT 

PRINT 

PRINT 

INPUT 

RER 

REH 

Hf 



CQftPUTINfl R0RRIST0UN, MEN JERSEY- 



THAI" 
TO YOU." 



TOBAT'B BATE IN TNE FOBNi 3,24,1978 •; 



Hi" 



•ENTER 
HI 
THIS PR06RAH DETERHINES 
FOR A DATE AFTER 1502 
fNA<A)>INKA/4) 

BIH 1(121 

BEF FNIlA)-IW(A/7) 

REH SPACE OUTPUT AND READ ID 

FOR I- 1 TO 12 

READ Till 

HUT I 



THE DAY Of THE WEEK 



INITIAL VALUES FOR H0NTH8. 



BAT OF IIRTH (OR OTHER MY OF INTEREST!' 



PAINT-ENTER 

INPUT M,I,T 

PRINT 

HI II • INT(1Y-1500)/IOO> 

REH TEST FOR BATE BEFORE CURRENT CALENDAR. 

IF Y-1582 <0 THEN 1300 

LET A ■ 11«5*(11*3I/4 

LET I2»IMT(A-FNB<A»4?> 

LET M"lNT(Y/1O01 

LET Y3 »INT(Y-Y2»100) 

LET A ■Y3/4*Y3+l*T(N)tI2 

LEI B=UT(A-FNB(A1«7I«1 

IF H > 2 THEN 470 

IF 13 ■ THEN 440 

LET T1"INT(Y-FNA(T)"41 

IF T1 <> TNEH 470 

IF BOO THEN 420 

LET B-A 

LET 8 • 8-1 

60TO 470 

LET A > 11-1 

LET Tl"INT<A-FKAtA)»4) 

IF T1 • THEN 400 

IF B <>0 THEN 490 

LEI I • 7 

IF (T1»12*M1!»31*BKCY»12*H!"31»D THEN 

IF (T1»12tH11*31*Bl"(Yt12*M!»31*D THEN 

print n;"/";i;v";t;- uas a "j 

6QT0 370 



5M 
5J0 



PRINT H 
GOTO 570 

print »;■/■;» 
rem print the 

If | OI.TNEH 



F-SllV-iT!" IS A 



■v-;y;" uiu. be 
bay of the veen 

590 



THE DATE 



FULLS ON. 
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310 MIIF 'SUKDAf 




310 IF B<>2 TH* 610 


1085 GOTO 1530 


410 PBIHT ■flOKOflT " 


1090 PRINT "TQU HAVE RELAXED -,K5,X6,K7 


610 IF l<>3 THEM 630 


1100 PRINT 


620 riinr -Tuesday" 


1110 PRINT ■ "■'•YOU MY RETIRE IN";E;"*" 


610 IF K>4 THEN 630 


1120 PRINT 


640 PRINT ■IfclKSlAI" 


1140 PRINT 


654 IF BOS THEN 670 


1130 PRINT 


660 PINT ■TWIWNY- 


1160 PRINT 


670 IF l<>6 THEN *M 


1170 PRINT 


610 OBIS 1230 


1180 PRINT 


6t0 IF »<>? THEN 710 


1190 PRINT 


7M MUM •SATUSB*¥" 


1200 PRINT 


710 IF WI»12«n»ll*H"<t*l2MH«IHi THEB 1120 


1210 PRINT 


720 tET 15-tl-Y 


1220 PRINT 


730 MIHT 


1230 PRINT 


740 LET I6«Hl-n 


1240 END 


730 LET I7-M-I 


1250 IF 0-13 THEN 1280 


740 IF I7>M THEN 7?0 


1260 PRINT "ftllAY * 


770 LET Ii> 14"! 


1270 GOTD 710 


7B0 LET I7«I7*30 


1280 PRINT "FRIDAY THE THIRTEENTH— BEWARE* 


7?0 IF U>-0 THEW 82* 


1290 60TO 710 


800 LET 13-15-1 


1300 PRINT "NOT PREPARER TO GIVE MY Of UEEK PRIOR TO HDLXXXXI. " 


Bit LET 16*14*12 


UIO GOTO 1140 


WIT Wk ■ + W »^ » » 

820 If 13<0 THE" »3lO 


1320 REH TABLE OF VALUES FOR THE NORTHS 10 IE USER IN CALCULATIflNS 


flld IF I? <> THEM 830 


1330 BATA 0, 3, 3, 6, 1, 4, 6, 2, 5, 8* 3, 3 


833 IF U <> THEN 85G 


1340 REN THIS IS THE CURRENT IATE USED IN THE CALCULATIONS. 


840 rRIIIT"*»*l(fcrPY BlfiTHBAY***" 


1350 REH THIS IS THE IATE TO BE CALCULATED ON. 


850 PRUI • V " t -YE«S-,"ftMIltS-,-MY3- 


1360 REH CALCULATE T1HE IN YEARS, NORTHS, AND DAYS 


840 PRINT "YAW ABC IF UtTMMK -,13,16,17 


1370 LET KT=INT<F**8> 


870 LET A8 ■ n5*345l*IU*30HI7*INT(tt/2> 


1380 LET IS * lHT(K1/365> 


880 LET 13-13 


1390 LET Kl = HI- (15*365) 


690 LET X* ■ II 


1400 LET U ■ INKK1/30) 


900 LET X7 * 17 


1410 LET 17 * Kl -(16*30) 


910 REft CALCULATE RETIREMENT IATE. 


1420 LET K5 - K5-I5 


MB LET t » 1*63 


1430 LET K6 "K6-I6 


930 REN CALCULATE TIME SPEW IN THE F0UOHIH8 FUNCTIONS. 


1440 LET K? * K7-I? 


940 LET f « ,33 


1450 IF K7>*0 THEN 1480 


930 PRINT "Toil HAVE SLEPT % 


1460 LET K7«K7*30 


940 6ISUI 1370 


1470 LET K6*K6-1 


070 LET E * .17 


1460 IF K6>0 THEN 1310 


no print -you have uteh *, 


1490 Ut K6*X4tl2 


990 GDBU& 1370 


1500 LET K5*K3-1 


1000 LET F = ,23 


1510 PRINT 13,16,17 


1010 IF K3 > 3 THE* 10*0 


1320 RETURN 


1030 PRINT h YBU HAVE PLAUB", 


1530 If K6»12 THEN 1550 


1030 GOTO 1080 


1540 GOTO 1090 


1040 IF K5 > 9 TH£H 1070 


1530 LET X3-K5*1 


1050 MINT "YOU HAUE PLAYED/STUBI£D\ 


1S60 LET X6-0 


1060 BOTO 1030 


1570 80T0 1090 


1070 PRINT "YOU HAVE DOMED/PLATED", 


1380 REH 


10HO 80SU8 1370 


1590 END 
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WORD is a combination of 
HANGMAN and BAGELS- In this 
game, the player must guess a word 
with clues as to letter position fur- 
nished by the computer However, 
instead of guessing one letter at a time, 
in WORD you guess an entire word (or 
group of 5 letters, such as ABODE). 
The computer will tell you if any letters 
that you have guessed are in the 
mystery word and if any of them are in 
the correct position. Armed with these 
clues, you go on guessing until you get 
the word or, it you can't get it. input a 
"?" and the computer will tell you the 
mystery word. 

You may change the words In Data 
Statements 512 and 513, but they must 
be 5-letter words. 

The author of this program is Charles 
Reid of Lexington High School, Lex- 
ington, Massachusetts. 

UIU 

CRCATtVE COHPUTIWG HORRISTOUH, HEU JERSEY 

I AH THIHKIHfl OF A UORO - TOU BUMS II. I MU GIVE YOU 
CLUES TO HELP YOU GET IT. 8001 LUCKU 



YOU USE 5TARTIHQ A HEU SAKE... 
GUESS A FIVE UTTER UORO* ABCOE 
THERE UERE 3 WATCHES AHt THE COHHOH 
FROA THE EXACT LETTER HATCHES, YOB 



LETTERS 

KNOU,... 



MERE,*. CAD 



-0- 



GHE3S A FIVE LETTER U0R&? FOHU 

THERE HERE HATCHES AM THE COHHOH LETTERS UERE... 

FfcOH THE EXACT LETTER HATCHES. TOU KHQU 



-»- 



"IF YOU SHE UP, TYPE 'V FOR YOUR REIT GUESS. 

OUESS A FIVE LETTER UORO? LHHOP 

THERE WERE t HATCHES AMI THE COHHOH LETTERS UCR£.*.N 

FROfl THE EXACT LETTER HATCHES, TOU KHOU 



-HI- 



IF YOB 6IIE Of, TTPE '?' FOR YOUR NEXT OUESS. 

GUESS A FIVE LETTER UORO* CMBY 

THERE HERE 5 HATCHES AMI THE COHHOH LETTERS UERE...CAHDT 

FROR IKE EXACT LETTER HATCHES. TOU KHOU CAHIY 

YOU HAVE GUESSED THE UORR. IT TOOK 4 GUESSES! 

UNIT TO PLAY ASAIRt YES 

YOU ARE STARTIHB A HEU GAHE... 

GUESS A FIVE LETTER UORI? AICRE 

THERE UERE HATCHES AHO THE COHHOH LETTERS UERE... 

FRO* THE EXACT LETTER HATCHES, TOU KHOU 



IF TOU GIVE UP, TTfE *V FOR TODR HEXT OUESS, 

OUESS A FIVE LETTER UORDT FGHIJ 

THERE WERE 2 HATCHES AHO THE COHHOH LETTERS UERE...FI 

FROH THE EXACT LETTER HATCHES, YOU KHOU F< 



OUESS A FIVE LETTER UORI? HHOPS 

THERE WERE 1 HATCHES AND THE COHHOH LETTERS UERE..*3 

FROH THE EXACT LETTER HATCHES, YOU KHOU F" 



IF TOU GIVE W f TTPE '?' FOR TOUR HEXT OUESS. 

GUESS A FIVE LETTER UORO* FISIS 

THERE UERE 5 HATCHES AHO THE COHHOH LETTERS UERE...F13ST 

FROH THE EXACT LETTER HATCHES, TOU KHOW H— 



6IE5S A FIVE LETTER UORDt FIRST 

THERE UERE 5 HATCHES AHO THE COHHOH LETTERS UERE*,, FIRST 

FIOH THE EXACT LETTER HATCHES, YOU KHOU ..FIRST 

YOU HAVE GUESSED THE UORD. IT TOOK 5 6UESSES! 

MANT TO PLAY AOAW MO 



2 PRIHT TAB(3J); K UQRD- 

3 NtMT TAB115>;"CREATIVE CGHPUTIHO HORRISTOWt, HEU JERSEY 

4 PRIHT* PRIHTl PRIHT 

3 IIH S<?» f A(7> f L(7> f lM7)*P«?» 



10 PRIHT "I AH THIHKIHO 

15 PRIHT -CLUES TO HELP 

20 REH 

31 PRIHTt PRIHTt PRIHT 

35 RESTORE 

40 REAt H 

50 C=IHT(RHD<1)*H*I) 

60 FOR 1-1 TO C 

70 REAB Si 

80 HEXT I 

?0 6=0 

95 S(OJ*LER(S4) 

190 FOR I e » TO LEH1S«)e 



A UORD — 
YOU GET IT. 



YOU 



GUESS IT. 
LUCSH-i 



I U1LL GIVE 
PRIHT I fRIHT 



YOU* 



TOU ARE STARTIHB A HEU GAHE..." 



-ASttflIDSC5f,I,int 



« -T I 



SU) 
FOR I-t TO 5 
Ain-45 
HEXT I 

FOR J"1 TO 5 
P<J>"0 
HEXT J 

PRIHT "GUESS A FIVE LETTER UORD"; 
INPUT Li 
6=6+1 
IF SS=Gt THE* 500 

for 1=1 to ?; piij-oi wen i 

LtO)-LEHUt> 

FOR 1-1 TO LEHCLS): LCIHftSCUUMtLMfim HEXT 1 
IF LU>-43 THEH 300 
IF U«OJ THEN 400 
H«0: 0=1 
FOR T>1 TO 5 
FDR J-l TO 5 
IF Stl)OL(J) THEH 260 
>(Q)=L(J) 
232G«GH 

233 IF IOJ THEH 250 
ItJMUJ) 
H-H*1 
HEX! J 
HEXT I 
A10J=5 
PC0)=H 

At» N "; FOR I«1 TO 
M""l FOR 1*1 TO 

PRIHT "THERE UERE";H;'HATCKES AHO THE 

PRINT -FROH THE EXACT LETTER HATCHES, 

IF A!*S$ THEH 500 

IF fi>1 THEH 26? 

PRIRTi PRIHT -IF TOU GIVE UP t TTPE 

PRIHT 

SOTO 150 

Si*"": FOR 1=1 TO 7i S»=S**CHRt<S(inr HEXT I 

PRIHT -THE SECRET UQRD IS -;5f: PRIHT 

80T0 30 

PRIHT "YOU HUST 6UESS A 5 LETTER UORB. START AGAIN." 

PRIHT; G=6-1t GOTO 150 

PRIHT "TOU HAVE GUESSED THE VORD, IT TOOK ";G;"GUESSES!": 

IHPUT "UART TO HAY A6AIH M ;G* 

IF Q1--TES* THEH 30 

DATA urRIHKTVSHOKEVUArERVBRASSV'TRAIHV'r:' TV 

DATA -CAHIY-^CHAHP'^UOULD", 

W 



110 
120 
130 
140 
144 
144 
150 
UO 
170 
172 
173 
175 
180 
1?0 
200 
205 
210 
220 
230 
231 



240 

250 

260 

265 

270 

272 

275 

277 

290 

235 

206 

207 

28fl 

28? 

2f0 

300 

310 

320 

400 

410 

50O 

510 

520 

530 

540 
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Index by Game Category 



Introductory Fun 




Buzzword 


36 


Hello 


82 


Name 


116 


Poetry 


128 


Rock, Scissors, Paper 


137 


Russian Roulette 


141 


Weekday 


179 


Educational 




Animal 


4 


Change 


39 


Chemist 


42 


Chief 


43 


Civil War 


46 


Fur Trader 


69 


._ Hammurabi 


78 


Hangman 


80 


Kinema 


95 


King 


96 


Literature Quiz 


104 


Math Dice 


113 


Stock Market 


154 


Synonym 


164 


Train 


175 


Plotting and Pictures 


i 

■n, 


Amazing 


3 


Banner 


10 


Bounce 


25 


Bug 


30 


Bunny 


35 


Calendar 


37 


Diamond 


56 


Life 


100 


Life for Two 


102 


Love 


105 


Sine Wave 


146 


3-D Plot 


167 


Number or Letter Guessing 


Guess 


75 


Hi-Lo 


85 


Letter 


99 


Number 


121 


Stars 


153 


Trap 


176 



Remove an Object 

Bantum 
Even Wins (2) 
Nim 


14 

60 

118 


Football (2) 
Golf 
Hockey 
Slalom 


64 

71 

88 

147 


23 Matches 


177 


Gambling and Casino 




Matrix Manipulation 

Battle 
Bombardment 


15 
22 


Blackjack 

Craps 

Dice 


18 

52 

57 

92 

129 

138 

149 


Depth Charge 
Hurkle 
Mugwump 
Pizza 


55 

94 
114 
126 


Horserace 
Poker 
Roulette 
Slots 


Salvo 


142 


Card and Board 


A 


Logic 

Awari 




Acey Ducey 


2 
40 

-j A 


6 


Checkers 


Bagels 
Chomp 


9 
44 


Gomoko 
War 


74 
178 


Cube 
Digits 

Flip Flop 
Hexapawn 

High l-O 


, 53 

58 
63 


Combat 

Bombs Away 


24 


83 
86 


Combat 
Gunner 


50 
77 


Master Mind* 


110 






Nicomachus 


117 






One Check 


122 






Queen 


133 






Reverse 


135 






3-D Tic Tac Toe 


168 






Tic Tac Toe (2) 


171 






Tower 


173 






Word 


181 






Space 




* 




Lunar, LEM, Rocket 


106 






Orbit 


124 






Splat 


151 






Super Star Trek* 


157 






Target 


165 






Sports Simulation 








Basketball 


12 






Bowling 


26 






Boxing 


28 






Bullfight 


32 






Bullseye 


34 
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If you enjoyed 
Basic Computer 
Games, Micro- 
computer Edition, 
then you'll enjoy 
a subscription 
to Creative 
Computing 
magazine. 
Use the form 
attached to order 
yours now. 

Mail to 

Creative 

Computing 

39 E- Hanover Ave. 

Morris Plains, 

New Jersey 

07950 
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Sure, we could tell you were (he premier magazine 
ofcomputcrapplicaitonsand software (or both beginners 
and experts, but our readers say it even better- 

AlvinToffler. author of Future Shock and the Third 
Wav* says. "I read Creative Computing rot only for 
information about how* to make the most of my own 
equipment but to keepan eye on how the whole field is 

emeriting.** 

David Gcrrokl of Star Trek fame says. "Creative 
Computlnc wim its unpretenotioos down-to-earth lucidity 
encourages the computer user to have lun. Creative 
Computing makes it possible for me to learn basic 
prowrummintf skills and use the computer belter than 

any other source** 4 

Order today at no risk. Well «ive you a complete 
refund i( you're not satisfied. But were sure you'll 
want to join over 95,000 subscribers like Ann Lewin. 
Director of the Capital Children's Museum who says. 
"Creative Computing helps demystify the computer 
It's articles are helpful, humorous and humane. The 
world needs Creative Computing." 

Creative Computing, Morris Rains* NJ 07950 
Toll-free 8U0631-8112 tin NJ 201-540-04451 



Yes. enter my one-year 
( 12 issues) trial 
subscription at 
no risk. 

□ $20 USA 

O $29 Canada and 

Foreign Surface mail 
O S50 Foreign Airmail 

□ Payment Enclosed 

□ American Express 
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proKrammin)! skills nnd use the computer better than 
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want to join over 95.000 subscribers like Ann Lewin. 
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information about how to make the most of my own 
equipment but to keepan eye on how the whole field is 
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David Gerrold of Star Trek fame says. "Creative 
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programming skills and use the computer better than 
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FROM 



CREATIVE 
COMPUTING 



I w 1 mugazifw of computer upplk ati i j are 

101 imaginative and challenging games for one, 

l\vo f or more players — EUiskclbalU Craps. Comoko, 

Blackjack, Even Wins, Digits, Bombs Away, Horserace. 

Simulate lunar landings. Play the slock markeL 

Write poetry. Draw pictures* 

All games conic complete with step-by-step prugramsand 

sample runs. All programs run on Microsoft 8K Basic, Rev. 4.0. 

Basic conversion table included 

David H. AhJ is lh£ founder and publisher oiCtvative Computing. 
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